Add TODO tests for RT#115156

Perl · Oct 7, 2012 · f8cafa5 · f8cafa5
1 parent 5c1648b
commit f8cafa5
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t
@@ -627,6 +627,19 @@ s/a\{3\}/a rep 3/
 [TheEnd]
 },
 
+### s2 ### RT #115156
+'s2' => {
+  todo   => 'RT #115156',
+  script => 's/1*$/x/g',
+  input  => 'bins',
+  expect => <<'[TheEnd]',
+0x
+x
+1000x
+1000x
+[TheEnd]
+},
+
 ### t ###
 't' => {
   script => join( "\n",
@@ -815,6 +828,8 @@ my $indat = '';
 for my $tc ( sort keys %testcase ){
     my( $psedres, $s2pres );
 
+    local $TODO = $testcase{$tc}{todo};
+
     # 1st test: run psed
     # prepare the script 
     open( SED, ">$script" ) || goto FAIL_BOTH;