/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | Memoize.t | 19 sub exists { my ($key, $dir) = @_; return -f File::Spec->catfile($dir, $key) } subroutine 23 tie my %hash, 'Tie::Memoize', \&slurp, $directory, \&exists, 27 ok(not exists $hash{'strict.pm'}); 28 ok(exists $hash{known_to_exist}); 31 ok(exists $hash{known_to_exist}); 32 ok(not exists $hash{'strict.pm'}); 35 ok(not exists $hash{known_to_exist}); 36 ok(not exists $hash{'strict.pm'}); 41 ok(not exists $hash{'strict.pm'}); 42 ok(exists [all...] |
H A D | RefHash.t | 83 test(exists $h{$ref}); 99 test(not exists($h{$ref})); 103 test(exists $h{$ox}); 105 test(not exists $h{"foobarraboof"}); 251 exists $h{foo}; 280 exists \$h{$key}; 285 exists \$h{$key};
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | exists_sub.t | 22 print "not " unless exists &t1 && not defined &t1; 24 print "not " unless exists &t2 && not defined &t2; 26 print "not " unless exists &t3 && not defined &t3; 28 print "not " unless exists &t4 && not defined &t4; 30 print "not " unless exists &t5 && defined &t5; 33 print "not " unless not exists &P2::tmc && not defined &P2::tmc; 37 print "not " unless exists &{$ref->{A}[0]} && not defined &{$ref->{A}[0]}; 40 print "not " unless exists &P1::tmc && not defined &P1::tmc; 42 eval 'exists &t5()';
|
H A D | inccode.t | 49 ok( exists $INC{'Foo.pm'}, ' %INC sees Foo.pm' ); 56 ok( exists $INC{'Foo1.pm'}, ' %INC sees Foo1.pm' ); 63 ok( exists $INC{'Foo2.pl'}, ' %INC sees Foo2.pl' ); 92 ok( exists $INC{'Bar.pm'}, ' %INC sees Bar.pm' ); 97 ok( exists $INC{'Bar1.pm'}, ' %INC sees Bar1.pm' ); 102 ok( exists $INC{'Bar2.pl'}, ' %INC sees Bar2.pl' ); 124 ok( exists $INC{'Quux.pm'}, ' %INC sees Quux.pm' ); 137 ok( exists $INC{'Quux1.pm'}, ' %INC sees Quux1.pm' ); 150 ok( exists $INC{'Quux2.pm'}, ' %INC sees Quux2.pm' ); 171 ok( exists [all...] |
H A D | local.t | 133 sub EXISTS { print "# EXISTS [@_]\n"; exists $_[0]->{$_[1]}; } 245 print "not " if exists $x{b}; 248 print "not " if exists $x{c}; 256 print "not " if exists $h{'y'}; print "ok 72\n"; 257 print "not " if exists $h{'z'}; print "ok 73\n"; 258 print "not " if exists $ENV{_A_}; print "ok 74\n"; 259 print "not " if exists $ENV{_B_}; print "ok 75\n";
|
H A D | delete.t | 16 unless (exists $foo{2}) {print "ok 2\n";} else {print "not ok 2 $foo{2}\n";} 27 unless (exists $foo{4}) {print "ok 10\n";} else {print "not ok 10 $foo{4}\n";} 28 unless (exists $foo{5}) {print "ok 11\n";} else {print "not ok 11 $foo{5}\n";} 75 unless (exists $foo[2]) {print "ok 19\n";} else {print "not ok 19 $foo[2]\n";} 86 unless (exists $foo[4]) {print "ok 27\n";} else {print "not ok 27 $foo[4]\n";} 87 unless (exists $foo[5]) {print "ok 28\n";} else {print "not ok 28 $foo[5]\n";}
|
H A D | ver.t | 260 ok( exists $h{v65}, "v-stringness is not engaged for vX" ); 262 ok( exists $h{chr(65).chr(66)}, "v-stringness is engaged for vX.Y" ); 264 ok( exists $h{chr(65).chr(66).chr(67)}, "v-stringness is engaged for X.Y.Z" );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | hints.t | 13 print "not " if exists $^H{foo}; 41 print "not " if exists $^H{foo}; 46 print "not " if exists $^H{foo}; 59 print "not " if exists $^H{foo};
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/ |
H A D | gol-linkage.t | 24 print (!(exists $lnk{baR}) ? "" : "not ", "ok 8\n"); 37 print (!(exists $lnk{foo}) ? "" : "not ", "ok 16\n"); 38 print (!(exists $lnk{baR}) ? "" : "not ", "ok 17\n"); 39 print (!(exists $lnk{bar}) ? "" : "not ", "ok 18\n");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
H A D | 17_misc_meth.t | 36 print !exists $a[0] ? "ok $N\n" : "not ok $N\n"; 39 print exists $a[0] ? "ok $N\n" : "not ok $N\n"; 41 print !exists $a[1] ? "ok $N\n" : "not ok $N\n"; 44 print exists $a[0] ? "ok $N\n" : "not ok $N\n"; 46 # exists $a[1] is not defined by this module under these circumstances 47 print exists $a[1] ? "ok $N\n" : "ok $N\n"; 49 print exists $a[2] ? "ok $N\n" : "not ok $N\n"; 51 print exists $a[-1] ? "ok $N\n" : "not ok $N\n"; 53 print exists $a[-2] ? "ok $N\n" : "not ok $N\n"; 55 print exists [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | Config.t | 31 ok( exists $Config{cc}, "has cc"); 33 ok( exists $Config{ccflags}, "has ccflags"); 35 ok(!exists $Config{python}, "has no python"); 37 ok( exists $Config{d_fork}, "has d_fork"); 39 ok(!exists $Config{d_bork}, "has no d_bork"); 51 ok(exists $Config{ccflags_nolargefiles}, "has ccflags_nolargefiles"); 91 ok(!exists $Config{d_bork}, "still no d_bork"); 97 ok( exists $Config{d_fork}, "still d_fork"); 103 ok( exists $Config{d_fork}, "still d_fork");
|
H A D | autouse.t | 54 ok( !exists $INC{$mod_file} ); 56 ok( exists $INC{$mod_file} );
|
H A D | Symbol.t | 72 ok( exists $::{'Transient::'}, 'transient stash exists' ); 75 ok( !exists $Transient::{variable}, 'transient variable no longer in stash' ); 77 ok( !exists $::{'Transient::'}, 'no transient stash' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | http.t | 38 push @expect, 'HTTPS' if not exists $ENV{HTTPS}; 39 push @expect, 'HTTPS_KEYSIZE' if not exists $ENV{HTTPS_KEYSIZE};
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | Abbrev.t | 19 print "not " if exists $x{'l'} || 20 exists $x{'li'} || 21 exists $x{'lis'};
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | print.t | 47 if (!exists &Errno::EBADF) {
|
H A D | read.t | 35 skip "no EBADF", 1 if (!exists &Errno::EBADF);
|
H A D | binmode.t | 36 skip "no EBADF", 1 if (!exists &Errno::EBADF);
|
H A D | layers.t | 19 $ENV{PERLIO} = 'stdio' if exists $ENV{PERLIO} && $ENV{PERLIO} eq ''; 20 if (exists $ENV{PERLIO} && $ENV{PERLIO} !~ /^(stdio|perlio|mmap)$/) { 25 $PERLIO = exists $ENV{PERLIO} ? $ENV{PERLIO} : "(undef)"; 32 my $NONSTDIO = exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio' ? 1 : 0;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
H A D | io_sel.t | 89 # Test new exists() method 90 $sel->exists(\*STDIN) and print "not "; 93 ($sel->exists(0) || $sel->exists([\*STDERR])) and print "not "; 96 $fd = $sel->exists(\*STDOUT); 103 $fd = $sel->exists([1, 'foo']);
|
H A D | IO.t | 76 ok( exists $INC{ $default }, "... import should default load $default" ); 95 sub exists { 1 } subroutine 114 ok( IO::fakemod::exists(), 'import() should import IO:: modules by name' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Errno/t/ |
H A D | Errno.t | 29 # Some systems have ESUCCESS 0, that's why exists instead of boolean. 30 print "not " unless exists $!{$err};
|
/osnet-11/usr/src/tools/onbld/Scm/ |
H A D | Backup.py | 156 if os.path.exists(bfile): 177 if os.path.exists(self.bu.backupfile('nodes')): 203 if os.path.exists(self.bu.backupfile(fname)): 294 # Check that the patch's parent changeset exists. 308 if not os.path.exists(diff): 351 if not os.path.exists(self.bu.backupfile('renames')): 380 if os.path.exists(diff): 401 if os.path.exists(self.bu.backupfile('renames')): 421 if os.path.exists(self.bu.backupfile(fname)): 450 if os.path.exists(fpat [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/t/ |
H A D | hash.t | 54 ok (!exists $h{$utf8_for_258}, 126 ok (exists $hash->{$key}, "hv_exists_ent present$message $printable"); 127 ok (XS::APItest::Hash::exists ($hash, $key), 134 ok (!exists $hash->{$key}, "hv_exists_ent absent$message $printable"); 135 ok (!XS::APItest::Hash::exists ($hash, $key),
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
H A D | lex.t | 260 print ((exists $str{foo} ? "" : "not ")."ok $test\n"); ++$test; 261 print ((exists $str{bar} ? "" : "not ")."ok $test\n"); ++$test; 262 print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n"); ++$test;
|