/openbsd-current/gnu/usr.bin/perl/t/run/ |
H A D | switchx.t | 12 print runperl( switches => ['-x'], 16 print runperl( switches => ['-x./run'], 23 like(runperl(switches => ['-x'], progfile => 'run/switchx3.aux', stderr => 1), 31 is(runperl(progs => \@progs, stderr => 1, non_portable => 1), 33 is(runperl(progs => \@progs, stderr => 1, non_portable => 1,
|
H A D | switchd.t | 32 $r = runperl( 40 $r = runperl( 48 $r = runperl( 60 runperl( # less is useful for something :-) 73 runperl( 85 runperl( 100 runperl( 116 runperl( 132 runperl( 141 runperl( [all...] |
H A D | switchC.t | 23 $r = runperl( switches => [ '-CO', '-w' ], 28 $r = runperl( switches => [ '-C2', '-w' ], 38 $r = runperl( switches => [ '-CI', '-w' ], 45 $r = runperl( switches => [ '-CE', '-w' ], 50 $r = runperl( switches => [ '-Co', '-w' ], 55 $r = runperl( switches => [ '-Ci', '-w' ], 64 $r = runperl( switches => [ '-Ci', '-w' ], 69 $r = runperl( switches => [ '-Ci', '-w' ], 74 $r = runperl( switches => [ '-CA', '-w' ], 80 $r = runperl( switche [all...] |
H A D | switchM.t | 16 like(runperl(switches => ['-Irun/flib', '-Mbroken'], stderr => 1), 21 like(runperl(switches => ['-Irun/flib/', '-Mbroken'], stderr => 1), 39 like(runperl(switches => ['-Irun/flib', '-Mt2'], prog => 'print t2::id()', stderr => 1), 43 like(runperl(switches => ['-Irun/flib/', '-Mt2'], prog => 'print t2::id()', stderr => 1),
|
H A D | 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( [all...] |
/openbsd-current/gnu/usr.bin/perl/t/io/ |
H A D | iprefix.t | 18 runperl( prog => 'print qq(foo\n);', 31 is ( runperl( prog => 'print<>;', args => \@tfiles ), 35 is ( runperl( prog => 'print<>;', args => \@tfiles_bak ),
|
H A D | inplace.t | 16 runperl( prog => 'print qq(foo\n);', 29 is ( runperl( prog => 'print<>;', args => \@tfiles ), 33 is ( runperl( prog => 'print<>;', args => \@tfiles_bak ), 41 runperl( prog => 'print qq(bar\n);', 54 # runperl may quote its arguments, so don't expect to be able 58 is( runperl( prog => 'print<>;', args => \@my_ifiles ), 66 runperl( prog => 'print qq(bar\n);', 80 is( runperl( prog => 'print<>;', args => \@my_ifiles ), 101 runperl( prog => $code,
|
H A D | argv.t | 27 $x = runperl( 34 $x = runperl( 42 $x = runperl( 50 $x = runperl( 56 $x = runperl( 64 $x = runperl( 71 $x = runperl( 82 runperl( prog => 'eof()', stdin => "nothing\n" ); 172 $x = runperl( 178 $x = runperl( [all...] |
H A D | fflush.t | 30 my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X; 31 $runperl .= qq{ "-I../lib"}; 77 my $command = qq{$runperl "$ffprog" "$f" "l"}; 109 my $command = qq{$runperl $ffprog "$f" "rl"}; 126 system("$runperl -e 0");
|
H A D | errno.t | 40 is( runperl( prog => "$rs_code; $test_prog",
|
/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | my_stash.t | 34 is runperl(prog => 'my main $r; sub FIELDS; $$r{foo}; print qq-ok\n-'), 37 is runperl(prog => 'my main $r; sub FIELDS; @$r{f,b}; print qq-ok\n-'),
|
H A D | override.t | 8 require 'Config_heavy.pl'; # since runperl will need them 151 is runperl(prog => 'sub CORE::GLOBAL::do; do file; print qq-ok\n-'), 154 is runperl(prog => 'sub CORE::GLOBAL::glob; glob; print qq-ok\n-'), 157 is runperl(prog => 'sub CORE::GLOBAL::require; require re; print qq-o\n-'), 161 like runperl(prog => 'use constant foo=>1; ' 167 like runperl(prog => 'use constant foo=>1; ' 174 is runperl(prog => 'use constant t=>42; '
|
H A D | stash.t | 317 is runperl( 325 is runperl( 332 is runperl( 339 is runperl( 346 is runperl( 353 is runperl(
|
H A D | coresubs.t | 154 is runperl(prog => 'print CORE->lc, qq-\n-'), "core\n", 156 is runperl(prog => '@ISA=CORE; print main->uc, qq-\n-'), "MAIN\n", 161 like runperl(prog => '$foo/; \&CORE::lc', stderr => 1),
|
/openbsd-current/gnu/usr.bin/perl/lib/ |
H A D | h2ph.t | 30 my $result = runperl( progfile => $extracted_program, 40 $result = runperl( progfile => 'lib/h2ph.pht', 45 $result = runperl( progfile => '_h2ph_pre.ph', 50 $result = runperl( switches => ['-I.', "-w"],
|
H A D | perlbug.t | 49 $result = runperl( progfile => $extracted_program, 56 $result = runperl( progfile => $extracted_program, 62 $result = runperl( progfile => $extracted_program, 70 $result = runperl( progfile => $extracted_program, 79 $result = runperl( progfile => $extracted_program, 92 $result = runperl( progfile => $extracted_program, 100 # runperl has trouble with whitespace 126 $result = runperl( progfile => $extracted_program, 162 $result = runperl( progfile => $extracted_program, stderr => 1, args => ['-o'] ); # Invalid option 165 $result = runperl( progfil [all...] |
/openbsd-current/gnu/usr.bin/perl/t/porting/ |
H A D | pod_rules.t | 38 my $result = runperl(switches => ['-f', '-Ilib'],
|
/openbsd-current/gnu/usr.bin/perl/ext/re/t/ |
H A D | intflags.t | 16 my $out = runperl(progfile => "t/intflags.pl", stderr => 1 );
|
H A D | lexical_debug.t | 16 my $out = runperl(progfile => "t/lexical_debug.pl", stderr => 1 );
|
/openbsd-current/gnu/usr.bin/perl/t/ |
H A D | test.pl | 640 # runperl, run_perl - Runs a separate perl interpreter and returns its output. 659 my ($runperl, $args) = @_; 665 $runperl = $runperl . ' ' . $_; 667 return $runperl; 670 sub _create_runperl { # Create the string to qx in runperl(). 672 my $runperl = which_perl(); 673 if ($runperl =~ m/\s/) { 674 $runperl = qq{"$runperl"}; 815 sub runperl { subroutine [all...] |
/openbsd-current/gnu/usr.bin/perl/ext/IPC-Open3/t/ |
H A D | fd.t | 19 my $stderr = runperl(
|
/openbsd-current/gnu/usr.bin/perl/ext/B/t/ |
H A D | o.t | 41 split(/[\r\n]+/, runperl( switches => [ '-Ilib', '-It', $compile ],
|
H A D | concise.t | 10 require 'test.pl'; # we use runperl from 'test.pl', so can't use Test::More 17 $out = runperl(switches => ["-MO=Concise"], prog => '$a', stderr => 1); 35 $out = runperl( 358 $out = runperl ( switches => ["-MO=Concise,Config::AUTOLOAD"], 365 $out = runperl ( switches => ["-MO=Concise,Config::AUTOLOAD"], 373 $out = runperl ( switches => ["-MO=-qq,Concise,-stash=B::Concise,-src"], 385 $out = runperl ( switches => ["-MStorable", "-MO=Concise,-stash=Storable,-src"], 394 $out = runperl ( switches => ["-MO=Concise,-stash=ExtUtils::Mksymlists,-src,-exec"], 400 $out = runperl ( switches => ["-MO=Concise,-stash=Data::Dumper,-src,-exec"], 413 $out = runperl ( switche [all...] |
/openbsd-current/gnu/usr.bin/perl/Porting/ |
H A D | test-dist-modules.pl | 713 # runperl - Runs a separate perl interpreter. 732 my ($runperl, $args) = @_; 738 $$runperl .= ' ' . $_; 742 sub _create_runperl { # Create the string to qx in runperl(). 744 my $runperl = which_perl(); 745 if ($runperl =~ m/\s/) { 746 $runperl = qq{"$runperl"}; 750 $runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl"; [all...] |
/openbsd-current/gnu/usr.bin/perl/dist/Devel-SelfStubber/t/ |
H A D | Devel-SelfStubber.t | 7 my $runperl = $^X; 150 print "# $runperl \"-I$inlib\" $module--$$\n"; 151 ($output{$module} = `$runperl "-I$inlib" $module--$$`) 191 print "# $runperl \"-I$lib\" $module--$$\n"; 192 ($output{$module} = `$runperl "-I$lib" $module--$$`) 204 system "$runperl -w \"-I$lib\" \"-MData\" -e \"Data::ok\""; 208 system "$runperl -w \"-I$lib\" \"-MEnd\" -e \"End::lime\"";
|