annotate Roary/t/Bio/Roary/SequenceLengths.t @ 0:c47a5f61bc9f draft

Uploaded
author dereeper
date Fri, 14 May 2021 20:27:06 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
1 #!/usr/bin/env perl
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
2 use strict;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
3 use warnings;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
4 use Data::Dumper;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
5
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
6 BEGIN { unshift( @INC, './lib' ) }
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
7 $ENV{PATH} .= ":./bin";
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
8
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
9 BEGIN {
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
10 use Test::Most;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
11 use_ok('Bio::Roary::SequenceLengths');
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
12 }
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
13
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
14 ok(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
15 my $obj = Bio::Roary::SequenceLengths->new(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
16 fasta_file => 't/data/example_1.faa',
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
17 ),
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
18 'Initialise object'
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
19 );
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
20
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
21 is_deeply(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
22 $obj->sequence_lengths,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
23 {
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
24 '1234#10_00006' => 211,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
25 '1234#10_00003' => 113,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
26 '1234#10_00001' => 145,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
27 '1234#10_00005' => 207,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
28 '1234#10_00002' => 246,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
29 '1234#10_00007' => 242
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
30 },
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
31 'hash with lengths of each sequence'
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
32 );
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
33
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
34 done_testing();