Searched refs:FOO (Results 1 - 25 of 40) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dread.t8 open(FOO,'op/read.t') || open(FOO,'t/op/read.t') || open(FOO,':op:read.t') || die "Can't open op.read";
9 seek(FOO,4,0);
10 $got = read(FOO,$buf,4);
15 seek (FOO,0,2) || seek(FOO,20000,0);
16 $got = read(FOO,$buf,4);
H A Dcmp.t34 @FOO = ('s', 'N/A', 'a', 'NaN', -1, undef, 0, 1, 3.14, 1e37, 0.632120558, -.5,
39 $expect = 7 * ($#FOO+2) * ($#FOO+1);
49 for my $i (0..$#FOO) {
50 for my $j ($i..$#FOO) {
56 ($FOO[$i], $FOO[$i], $FOO[$i], $FOO[$i], $FOO[
[all...]
H A Dstat.t46 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
47 close FOO;
49 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
51 my($nlink, $mtime, $ctime) = (stat(FOO))[$NLINK, $MTIME, $CTIME];
71 print FOO "Now is the time for all good men to come to.\n";
72 close(FOO);
355 open(FOO,$statfile);
357 eval { -T FOO; };
362 ok(-T FOO, ' -T');
363 ok(! -B FOO, ' !
[all...]
H A Dmagic.t56 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
376 open(FOO, "nonesuch"); # Generate ENOENT
H A Dref.t48 $FOO = \$BAR;
51 print $$$FOO;
124 $anonhash2 = {FOO => BAR, ABC => XYZ,};
146 print $THIS->{FOO} eq BAR ? "ok $ARGS[0]\n" : "not ok $ARGS[0]\n";
171 $main'object = bless {FOO => foo, BAR => bar};
181 $foo = doit $object "FOO";
H A Dtaint.t418 test 71, eval { open FOO, $foo } eq '', 'open for read';
429 test 74, eval { open FOO, "> $foo" } eq '', 'open for write';
441 test 76, eval { open FOO, "| x$foo" } eq '', 'popen to';
444 test 78, eval { open FOO, "x$foo |" } eq '', 'popen from';
504 local *FOO;
507 test 96, open(FOO, "> $temp"), "Couldn't open $temp for write: $!";
509 test 97, eval { ioctl FOO, $TAINT, $foo } eq '', 'ioctl';
513 test 99, eval { fcntl FOO, $TAINT, $foo } eq '', 'fcntl';
520 close FOO;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Env/t/
H A Darray.t9 $ENV{FOO} = "foo";
13 use Env qw(FOO $BAR);
15 $FOO .= "/bar";
20 print "not " if $FOO ne 'foo/bar';
H A Denv.t16 use Env qw(@FOO);
36 print "# FOO = (", join(", ", @FOO), ")\n";
40 else { print "not " unless array_equal(\@FOO, \@BAR); }
48 @FOO = qw(a B c);
53 $FOO[1] = 'b';
58 $#FOO = 0;
63 push @FOO, 'b', 'c';
68 pop @FOO;
73 shift @FOO;
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DSelectSaver.t12 open(FOO, ">foo-$$") || die;
16 my $saver = new SelectSaver(FOO);
21 open(FOO, "foo-$$") || die;
22 chomp($foo = <FOO>);
23 close FOO;
H A DFatal.t13 eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' };
17 my $foo = 'FOO';
25 eval qq{ close FOO };
30 eval { opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' };
34 eval { my $a = opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' };
H A DSymbol.t36 $FOO = 'Eymascalar';
37 *FOO = $sym1;
39 is( $sym1, *FOO{IO}, 'assigns into glob OK' );
41 is( $FOO, 'Eymascalar', 'leaves scalar alone' );
47 readline FOO;
57 ::ok( qualify("x", "FOO") eq "FOO::x", 'qualify() with a package' );
62 ::ok( qualify("ARGV", "FOO") eq "main::ARGV",
66 ::ok( qualify("^FOO") eq "main::\cFOO",
H A DSelfLoader.t21 open(FOO, ">$dir${sep}Foo.pm") or die;
22 print FOO <<'EOT';
48 close(FOO);
H A DAutoLoader.t25 open(FOO, '>', File::Spec->catfile( $fulldir, 'foo.al' ))
27 print FOO <<'EOT';
32 close(FOO);
H A DDumpvalue.t27 is( ref( Dumpvalue::unctrl(*FOO) ), 'GLOB', 'unctrl should not modify GLOB' );
38 is( $d->stringify(*FOO), *FOO . "", 'stringify stringifies globs alright' );
123 $d->unwrap(*FOO);
125 $d->unwrap(*FOO);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dcrlf.t19 ok(open(FOO,">:crlf",$file));
20 ok(print FOO 'a'.((('a' x 14).qq{\n}) x 2000) || close(FOO));
21 ok(open(FOO,"<:crlf",$file));
24 { local $/; $text = <FOO> }
28 binmode(FOO);
29 seek(FOO,0,0);
30 { local $/; $text = <FOO> }
49 ok(close(FOO));
59 open(FOO, ">
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/
H A DStd.t61 our ($HELP, $FILE, $FOO, $BAR, $NO);
66 'foo!' => \$FOO,
73 ok( $HELP && $FOO && !$BAR && $FILE eq 'foo' && $NO == 5, 'options set' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Ddclone.t49 package FOO; @ISA = qw(Storable); package
59 $foo = FOO->make;
H A Dfreeze.t57 package FOO; @ISA = qw(Storable); package
67 $foo = FOO->make;
H A Dstore.t54 package FOO; @ISA = qw(Storable); package
64 $foo = FOO->make;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Doutput.t50 open(FOO, ">>foo") or die $!;
51 $out = $Test->output(\*FOO);
H A Dmaybe_regex.t24 my $r = $Test->maybe_regex(qr/^FOO$/i);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t443 my $star = 'FOO';
444 star FOO, sub {
445 print "not " unless $_[0] eq 'FOO';
446 print "ok $i - star FOO\n";
448 star(FOO, sub {
449 print "not " unless $_[0] eq 'FOO';
450 print "ok $i - star(FOO)\n";
452 star "FOO", sub {
453 print "not " unless $_[0] eq 'FOO';
454 print qq/ok $i - star "FOO"\
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafeops.t260 open open FOO
261 close close FOO
262 pipe_op pipe FOO,BAR
263 fileno fileno FOO
265 binmode binmode FOO
272 select select FOO
273 getc getc FOO
274 read read FOO
285 eof eof FOO
288 truncate truncate FOO, 4
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Dxref.t96 $xreftable{$thisfile}{'Testing::Xref::foo'}{'Testing::Xref'}{'*FOO'},
97 '1001', 'glob FOO used in subroutine foo'
109 sub foo { print FOO %::xreftable; }
110 sub bar { print FOO foo; }
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dfresh_perl.t124 package FOO;sub new {bless {FOO => BAR}};
127 my $self = new FOO;
128 print $$self{FOO};
230 local(*FOO);
231 tie(*FOO,'foo');
232 print FOO "sentence.", "reversed", "a", "is", "This";
233 print "-- ", <FOO>, " --\n";
237 read(FOO, $buf, $len, $offset) == 100 or die "foo->READ failed";
238 getc(FOO) e
[all...]

Completed in 95 milliseconds

12