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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
BEGIN { unshift( @INC, './lib' ) }
$ENV{PATH} .= ":./bin";
BEGIN {
use Test::Most;
use_ok('Bio::Roary::SequenceLengths');
}
ok(
my $obj = Bio::Roary::SequenceLengths->new(
fasta_file => 't/data/example_1.faa',
),
'Initialise object'
);
is_deeply(
$obj->sequence_lengths,
{
'1234#10_00006' => 211,
'1234#10_00003' => 113,
'1234#10_00001' => 145,
'1234#10_00005' => 207,
'1234#10_00002' => 246,
'1234#10_00007' => 242
},
'hash with lengths of each sequence'
);
done_testing();
|
