Commits

Sarah Richardson committed 374cfc8

tests for new count function

Comments (0)

Files changed (1)

   my $torfcount = $GD->count($seqobj);
   my $rorfcount = {A => 159, T => 95, C => 197, G => 149, R => 0, Y => 0,
     W => 0, S => 0, M => 0, K => 0, B => 0, D => 0, H => 0, V => 0,
-    N => 0, "?" => 0, d => 600, n => 0, GCp => 57.7, ATp => 42.3};
+    N => 0, "?" => 0, d => 600, n => 0, GCp => 57.7, ATp => 42.3, len => 600};
   is_deeply($torfcount, $rorfcount, "count non ambiguous bases");
 
   my $tbustcount = $GD->count($bustedobj);
   my $rbustcount = {A => 91, T => 31, C => 125, G => 113, R => 43, Y => 54,
     W => 4, S => 4, M => 21, K => 0, B => 0, D => 0, H => 1, V => 0,
-    N => 113, "?" => 0, d => 360, n => 240, GCp => 59.6, ATp => 40.4};
+    N => 113, "?" => 0, d => 360, n => 240, GCp => 59.6, ATp => 40.4,
+    len => 600};
   is_deeply($tbustcount, $rbustcount, "count ambiguous bases");
 };