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();