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

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Roary/t/Bio/Roary/SequenceLengths.t	Fri May 14 20:27:06 2021 +0000
@@ -0,0 +1,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();