t/issue237.t: fix tests (all passing)

rurban · Dec 6, 2013 · 202ac45 · 202ac45
1 parent bfd65ba
commit 202ac45
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/t/issue237.t b/t/issue237.t
@@ -9,5 +9,6 @@ BEGIN {
 use Test::More tests => 2;
 my $cmt = '#237 NULL in strings';
 my $script = 'print "\000\000\000\000_"';
-ctest(1,'^_$','C,-O3','ccode237i',$script,'#237 NULL in strings');
-plctest(2, '^_$', 'ccode237i', $script, "TODO ".$cmt);
+my $exp = "^\000\000\000\000_\$";
+ctest(1, $exp, 'C,-O3', 'ccode237i', $script, 'C '.$cmt);
+plctest(2, $exp, 'ccode237i', $script, "BC ".$cmt);