1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/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();
|
