t/run/switches.t

17 # due to a bug in VMS's piping which makes it impossible for runperl()
20 $TODO = "runperl() unable to emulate echo -n due to pipe bug" if $^O eq 'VMS';
28 $r = runperl(
35 $r = runperl(
42 $r = runperl(
49 $r = runperl(
56 $r = runperl(
63 $r = runperl(
70 $r = runperl(
78 $r = runperl(
99     $r = runperl(
135         runperl( switches => [ '-c' ], args  => [ $tempdir ], stderr => 1),
144 $r = runperl(
152 $r = runperl(
167     $r = runperl(
183     $r = runperl(
202     $r = runperl(
207     $r = runperl(
212     $r = runperl(
221     $r = runperl(
231     is( runperl( switches => [ '-MTie::Hash' ], stderr => 1, prog => 1 ),
234     like( runperl( switches => [ "-M:$package" ], stderr => 1,
239     like( runperl( switches => [ '-mA:B:C' ], stderr => 1,
244     like( runperl( switches => [ '-m-A:B:C' ], stderr => 1,
249     like( runperl( switches => [ '-m-' ], stderr => 1,
254     like( runperl( switches => [ '-M-=' ], stderr => 1,
260 is runperl(stderr => 1, prog => '#!perl -m'),
262 is runperl(stderr => 1, prog => '#!perl -M'),
272     like( runperl( switches => ['-V'] ), qr/(\n.*){20}/,
275     like( runperl( switches => ['-V'] ),
280     chomp( $r=runperl( switches => ['-V:osname'] ) );
284     chomp( $r=runperl( switches => ['-V:this_var_makes_switches_test_fail'] ) );
291     $r = runperl( switches => ['"-V:i\D+size"'] );
312         like( runperl( switches => ['-v'] ),
323     like( runperl( switches => ['-h'] ),
327     like( runperl( switches => ['-?'] ),
339     like( runperl( switches => ["-$switch"], stderr => 1,
345     like( runperl( stderr => 1, prog => "#!perl -$switch" ),
353     $r = runperl(
379     runperl( switches => ['-pi.bak'], prog => 's/foo/bar/', args => ['tmpswitches'] );
396     my $out1 = runperl(
407     my $out2 = runperl(
421     my $out3 = runperl(
457             my $out = runperl (
476     my $out4 = runperl
695 $r = runperl(
700 $r = runperl(
706 $r = runperl(
721     $r = runperl(