Lines Matching refs:r
23 my $r;
29 $r = runperl(
34 is( $r, "<foo\0><bar\0><baz\0>", "-0" );
36 $r = runperl(
41 is( $r, "foo\nbar\nbaz\n", "-0 after a -l" );
43 $r = runperl(
48 is( $r, "foo\0bar\0baz\0", "-0 before a -l" );
50 $r = runperl(
55 is( $r, "<foox><barx><bazx>", "-0 with octal number" );
57 $r = runperl(
62 is( $r, 'abc-def--/ghi-jkl-mno--/pq-/', '-00 (paragraph mode)' );
64 $r = runperl(
69 is( $r, 'abc-def--ghi-jkl-mno--pq-/', '-0777 (slurp mode)' );
71 $r = runperl(
75 is( $r, "(\066)[\066]", '$/ set at compile-time' );
92 $r = runperl(
100 $r =~ /$filename syntax OK/
101 && $r =~ /\bblock 1\b/
102 && $r =~ /\bblock 2\b/
103 && $r !~ /\bblock 3\b/
104 && $r !~ /\bblock 4\b/
105 && $r !~ /\bblock 5\b/,
113 $r = runperl(
117 is( $r, 'fooxbarx', '-l with octal number' );
121 $r = runperl(
126 is( $r, '21-', '-s switch parsing' );
137 $r = runperl(
141 is( $r, 'foo', '-s on the shebang line' );
156 $r = runperl(
160 is( $r, '<swtest>', '-M' );
161 $r = runperl(
165 is( $r, '<swtest><foo>', '-M with import parameter' );
166 $r = runperl(
173 is( $r, '', '-m' );
175 $r = runperl(
179 is( $r, '<swtest><foo><bar>', '-m with import parameters' );
198 chomp( $r=runperl( switches => ['-V:osname'] ) );
199 is( $r, "osname='$^O';", 'perl -V:osname');
202 chomp( $r=runperl( switches => ['-V:this_var_makes_switches_test_fail'] ) );
203 is( $r, "this_var_makes_switches_test_fail='UNKNOWN';",
209 $r = runperl( switches => ['"-V:i\D+size"'] );
211 like( $r, qr/^(?!.*(not found|UNKNOWN))./, 'perl -V:re got a result' );
214 ok( !( grep !/^i\D+size=/, split /^/, $r ), '-V:re correct' );