Fix TODO tests t/issue90.t 1, t/issue200.t 1

rurban · Nov 13, 2013 · be620a1 · be620a1
1 parent 1454433
commit be620a1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/t/issue200.t b/t/issue200.t
@@ -13,8 +13,8 @@ sub test3 {
   my $script = shift;
   my $cmt = join('',@_);
   my $todo = "";
-  #$todo = 'TODO ' if $name eq 'ccode90i_c' or $] > 5.015;
-  plctestok($i*3+1, $name, $script, $todo);
+  #$todo = 'TODO ' if $] > 5.015;
+  plctestok($i*3+1, $name, $script, $cmt);
   ctestok($i*3+2, "C", $name, $script, "C $cmt");
   ctestok($i*3+3, "CC", $name, $script, $todo."CC $cmt");
   $i++;

diff --git a/t/issue90.t b/t/issue90.t
@@ -14,7 +14,7 @@ sub test3 {
   my $cmt = join('',@_);
   my $todo = "";
   $todo = 'TODO ' if $name eq 'ccode90i_c' or $] > 5.015;
-  plctestok($i*3+1, $name, $script, $todo);
+  plctestok($i*3+1, $name, $script, $todo." BC ".$cmt);
   ctestok($i*3+2, "C", $name, $script, "C $cmt");
   ctestok($i*3+3, "CC", $name, $script, $todo."CC $cmt");
   $i++;