add extra tests for CodonTable

bioperl · Feb 21, 2024 · 10e9208 · 10e9208
1 parent 4093e07
commit 10e9208
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/t/SeqTools/CodonTable.t b/t/SeqTools/CodonTable.t
@@ -6,7 +6,7 @@ use strict;
 BEGIN {
     use Bio::Root::Test;
 
-    test_begin(-tests => 85);
+    test_begin(-tests => 87);
 
     use_ok('Bio::Tools::CodonTable');
     use_ok('Bio::CodonUsage::IO');
@@ -22,6 +22,14 @@ isa_ok $myCodonTable, 'Bio::Tools::CodonTable';
 $myCodonTable = Bio::Tools::CodonTable->new( -id => 0);
 is $myCodonTable->id(), 0;
 
+# Access removed table e.g. 7 should return defaut table 1
+$myCodonTable = Bio::Tools::CodonTable->new( -id => 7);
+is $myCodonTable->id(), 1;
+
+# Access negative table must return defaut table 1
+$myCodonTable = Bio::Tools::CodonTable->new( -id => -2);
+is $myCodonTable->id(), 1;
+
 # defaults to ID 1 "Standard"
 $myCodonTable = Bio::Tools::CodonTable->new();
 is $myCodonTable->id(), 1;