Mercurial > repos > dereeper > roary_plots
comparison Roary/t/Bio/Roary/SequenceLengths.t @ 0:c47a5f61bc9f draft
Uploaded
author | dereeper |
---|---|
date | Fri, 14 May 2021 20:27:06 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:c47a5f61bc9f |
---|---|
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(); |