/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | read.t | 8 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 D | cmp.t | 34 @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 D | stat.t | 46 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 D | magic.t | 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 376 open(FOO, "nonesuch"); # Generate ENOENT
|
H A D | ref.t | 48 $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 D | taint.t | 418 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 D | array.t | 9 $ENV{FOO} = "foo"; 13 use Env qw(FOO $BAR); 15 $FOO .= "/bar"; 20 print "not " if $FOO ne 'foo/bar';
|
H A D | env.t | 16 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 D | SelectSaver.t | 12 open(FOO, ">foo-$$") || die; 16 my $saver = new SelectSaver(FOO); 21 open(FOO, "foo-$$") || die; 22 chomp($foo = <FOO>); 23 close FOO;
|
H A D | Fatal.t | 13 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 D | Symbol.t | 36 $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 D | SelfLoader.t | 21 open(FOO, ">$dir${sep}Foo.pm") or die; 22 print FOO <<'EOT'; 48 close(FOO);
|
H A D | AutoLoader.t | 25 open(FOO, '>', File::Spec->catfile( $fulldir, 'foo.al' )) 27 print FOO <<'EOT'; 32 close(FOO);
|
H A D | Dumpvalue.t | 27 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 D | crlf.t | 19 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 D | Std.t | 61 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 D | dclone.t | 49 package FOO; @ISA = qw(Storable); package 59 $foo = FOO->make;
|
H A D | freeze.t | 57 package FOO; @ISA = qw(Storable); package 67 $foo = FOO->make;
|
H A D | store.t | 54 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 D | output.t | 50 open(FOO, ">>foo") or die $!; 51 $out = $Test->output(\*FOO);
|
H A D | maybe_regex.t | 24 my $r = $Test->maybe_regex(qr/^FOO$/i);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | proto.t | 443 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 D | safeops.t | 260 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 D | xref.t | 96 $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 D | fresh_perl.t | 124 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...] |