Add TODO tests for RT#115156
authorAaron Crane <arc@cpan.org>
Sun, 7 Oct 2012 11:40:52 +0000 (12:40 +0100)
committerKarl Williamson <public@khwilliamson.com>
Sun, 7 Oct 2012 15:30:05 +0000 (09:30 -0600)
t/x2p/s2p.t

index 9707a8b..0a0716d 100644 (file)
@@ -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;