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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!/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::InflateClusters');
}
my $obj;
ok( $obj = Bio::Roary::InflateClusters->new(
clusters_filename => 't/data/clustersfile',
mcl_filename => 't/data/mcl_file',
output_file => 'example.output'
),'initialise object');
ok($obj->inflate,'inflate the results');
compare_ok('example.output','t/data/expected_inflated_results', 'inflated results as expected');
unlink('example.output');
ok( $obj = Bio::Roary::InflateClusters->new(
clusters_filename => 't/data/clusters_to_inflate',
mcl_filename => 't/data/clusters_to_inflate.mcl',
output_file => 'example.output'
),'initialise object');
ok($obj->inflate,'inflate the results');
compare_ok('example.output','t/data/expected_clusters_to_inflate', 'inflated results as expected');
unlink('example.output');
done_testing();
|
