From: Craig A. Berry <craig.a.berry@gmail.com>
Date: Wed, 17 Mar 2010 19:50:22 +0000 (+0000)
Subject: Attached are two TODO patches for the remaining test failures on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff26e4c8efcd1b0f075892dd09118f525b8b8f54;p=p5sagit%2Fp5-mst-13.2.git

Attached are two TODO patches for the remaining test failures on VMS.
If these can go in for 5.12.0, I'd appreciate it.
---

diff --git a/t/io/errno.t b/t/io/errno.t
index aff3369..dadc4e0 100644
--- a/t/io/errno.t
+++ b/t/io/errno.t
@@ -32,10 +32,15 @@ SKIP:
 		my $test_in_esc = $test_in;
 		$test_in_esc =~ s/\n/\\n/g;
 		for my $rs_code ('', '$/=undef', '$/=\2', '$/=\1024') {
+		    TODO:
+		    {
+			local $::TODO = "We get RMS\$_IOP at EOF on VMS when \$/ is undef"
+			    if $^O eq 'VMS' && $rs_code eq '$/=undef';
 			is( runperl( prog => "$rs_code; $test_prog",
 						 stdin => $test_in, stderr => 1),
 				$test_in,
 				"Wrong errno, PERLIO=$ENV{PERLIO} stdin='$test_in_esc', $rs_code");
+		    }
 		}
     }
 }
diff --git a/t/op/ref.t b/t/op/ref.t
index db43562..019b47c 100644
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -440,10 +440,13 @@ is (runperl(
 # REGEX pad had already been freed (ithreads build only). The
 # object is required to trigger the early freeing of GV refs to to STDOUT
 
-like (runperl(
-    prog => '$x=bless[]; sub IO::Handle::DESTROY{$_="bad";s/bad/ok/;print}',
-    stderr => 1
-      ), qr/^(ok)+$/, 'STDOUT destructor');
+TODO: {
+    local $TODO = "works but output through pipe is mangled" if $^O eq 'VMS';
+    like (runperl(
+        prog => '$x=bless[]; sub IO::Handle::DESTROY{$_="bad";s/bad/ok/;print}',
+        stderr => 1
+          ), qr/^(ok)+$/, 'STDOUT destructor');
+}
 
 TODO: {
     no strict 'refs';