diff options
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/switches.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index 839a860864..57998ddeda 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!)"'] ); |