0
|
1 #!/usr/bin/env perl
|
|
2 use strict;
|
|
3 use warnings;
|
|
4 use Data::Dumper;
|
|
5
|
|
6 BEGIN { unshift( @INC, './lib' ) }
|
|
7 $ENV{PATH} .= ":./bin";
|
|
8
|
|
9 BEGIN {
|
|
10 use Test::Most;
|
|
11 use_ok('Bio::Roary::SequenceLengths');
|
|
12 }
|
|
13
|
|
14 ok(
|
|
15 my $obj = Bio::Roary::SequenceLengths->new(
|
|
16 fasta_file => 't/data/example_1.faa',
|
|
17 ),
|
|
18 'Initialise object'
|
|
19 );
|
|
20
|
|
21 is_deeply(
|
|
22 $obj->sequence_lengths,
|
|
23 {
|
|
24 '1234#10_00006' => 211,
|
|
25 '1234#10_00003' => 113,
|
|
26 '1234#10_00001' => 145,
|
|
27 '1234#10_00005' => 207,
|
|
28 '1234#10_00002' => 246,
|
|
29 '1234#10_00007' => 242
|
|
30 },
|
|
31 'hash with lengths of each sequence'
|
|
32 );
|
|
33
|
|
34 done_testing();
|