#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use Test::Files;

BEGIN { unshift( @INC, './lib' ) }
$ENV{PATH} .= ":./bin";

BEGIN {
    use Test::Most;
    use_ok('Bio::Roary::GroupLabels');
}

ok(
    my $obj = Bio::Roary::GroupLabels->new(
        groups_filename => 't/data/example_groups_without_labels'
    ),
    'initialise with a groups file'
);
ok($obj->add_labels, 'Add labels to groups');
compare_ok($obj->output_filename, 't/data/expected_group_labels', 'groups labeled as expected');
unlink('labelled_groups_file');

done_testing();