Lines Matching full:foo*
56 eval '$ENV{"FOO"} = "hi there";'; # check that ENV is inited inside eval
59 if ($Is_MSWin32) { ok `set FOO` =~ /^(?:FOO=)?hi there$/; }
61 elsif ($Is_VMS) { ok `write sys\$output f\$trnlnm("FOO")` eq "hi there\n"; }
62 else { ok `echo \$FOO` eq "hi there\n"; }
66 open(FOO,'ajslkdfpqjsjfk');
68 close FOO; # just mention it, squelch used-only-once
142 'foobarbaz' =~ /b(a)r/;
143 ok $` eq 'foo', $`;
149 @a = qw(foo bar baz);
150 ok "@a" eq "foo bar baz", "@a";
153 ok "@a" eq "foo,bar,baz", "@a";
158 $h{'foo', 'bar'} = 1;
159 ok((keys %h)[0] eq "foo\034bar", (keys %h)[0]);
163 $h{'foo', 'bar'} = 1;
164 ok((keys %h)[0] eq 'fooxbar', (keys %h)[0]);
178 eval { die "foo\n" };
179 ok $@ eq "foo\n", $@;
277 $ENV{foo} = "bar";
281 ok ($Is_MSWin32 ? (`set foo 2>NUL` eq "")
282 : (`echo \$foo` eq "\n") );
285 $ENV{__NoNeSuCh} = "foo";
289 ok ($Is_MSWin32 ? (`set __NoNeSuCh` =~ /^(?:__NoNeSuCh=)?foo$/)
290 : (`echo \$__NoNeSuCh` eq "foo\n") );
340 $ENV{'Foo'} = 'bar';
341 $ENV{'fOo'} = 'baz';
343 ok exists($ENV{'FOo'});
344 ok (delete($ENV{'foO'}) eq 'baz');
376 open(FOO, "nonesuch"); # Generate ENOENT