From 3012b81707473847efa9174655723b1a2ad3b6de Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 18 Jul 2009 10:38:02 -0500 Subject: [PATCH] Some of the TODOs in switches.t actually work on VMS. --- t/run/switches.t | 6 ++++++ 1 file changed, 6 insertions(+) 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>", '-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!)"'] ); -- 2.7.4