From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 18 Jul 2009 15:38:02 +0000 (-0500)
Subject: Some of the TODOs in switches.t actually work on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3012b81707473847efa9174655723b1a2ad3b6de;p=p5sagit%2Fp5-mst-13.2.git

Some of the TODOs in switches.t actually work on VMS.
---

diff --git a/t/run/switches.t b/t/run/switches.t
index 839a860..57998dd 100644
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -193,6 +193,9 @@ SWTESTPM
     is( $r, "<$package><foo><bar>", '-m with import parameters' );
     push @tmpfiles, $filename;
 
+  {
+    local $TODO = '';  # these work on VMS
+
     is( runperl( switches => [ '-MTie::Hash' ], stderr => 1, prog => 1 ),
 	  '', "-MFoo::Bar allowed" );
 
@@ -220,6 +223,7 @@ SWTESTPM
 		   prog => 'die "oops"' ),
 	  qr/Module name required with -M option\b/,
   	  "-M- not allowed" );
+  }  # disable TODO on VMS
 }
 
 # Tests for -V
@@ -330,6 +334,8 @@ __EOF__
 
 # Tests for -E
 
+$TODO = '';  # the -E tests work on VMS
+
 $r = runperl(
     switches	=> [ '-E', '"say q(Hello, world!)"']
 );