Searched refs:runperl (Results 1 - 25 of 75) sorted by relevance

123

/openbsd-current/gnu/usr.bin/perl/t/run/
H A Dswitchx.t12 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 Dswitchd.t32 $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 DswitchC.t23 $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 DswitchM.t16 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 Dswitches.t17 # 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 Diprefix.t18 runperl( prog => 'print qq(foo\n);',
31 is ( runperl( prog => 'print<>;', args => \@tfiles ),
35 is ( runperl( prog => 'print<>;', args => \@tfiles_bak ),
H A Dinplace.t16 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 Dargv.t27 $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 Dfflush.t30 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 Derrno.t40 is( runperl( prog => "$rs_code; $test_prog",
/openbsd-current/gnu/usr.bin/perl/t/op/
H A Dmy_stash.t34 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 Doverride.t8 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 Dstash.t317 is runperl(
325 is runperl(
332 is runperl(
339 is runperl(
346 is runperl(
353 is runperl(
H A Dcoresubs.t154 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 Dh2ph.t30 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 Dperlbug.t49 $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 Dpod_rules.t38 my $result = runperl(switches => ['-f', '-Ilib'],
/openbsd-current/gnu/usr.bin/perl/ext/re/t/
H A Dintflags.t16 my $out = runperl(progfile => "t/intflags.pl", stderr => 1 );
H A Dlexical_debug.t16 my $out = runperl(progfile => "t/lexical_debug.pl", stderr => 1 );
/openbsd-current/gnu/usr.bin/perl/t/
H A Dtest.pl640 # 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 Dfd.t19 my $stderr = runperl(
/openbsd-current/gnu/usr.bin/perl/ext/B/t/
H A Do.t41 split(/[\r\n]+/, runperl( switches => [ '-Ilib', '-It', $compile ],
H A Dconcise.t10 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 Dtest-dist-modules.pl713 # 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 DDevel-SelfStubber.t7 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\"";

Completed in 120 milliseconds

123