Searched refs:exists (Results 1 - 25 of 104) sorted by relevance

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DMemoize.t19 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 DRefHash.t83 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 Dexists_sub.t22 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 Dinccode.t49 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 Dlocal.t133 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 Ddelete.t16 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 Dver.t260 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 Dhints.t13 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 Dgol-linkage.t24 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 D17_misc_meth.t36 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 DConfig.t31 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 Dautouse.t54 ok( !exists $INC{$mod_file} );
56 ok( exists $INC{$mod_file} );
H A DSymbol.t72 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 Dhttp.t38 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 DAbbrev.t19 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 Dprint.t47 if (!exists &Errno::EBADF) {
H A Dread.t35 skip "no EBADF", 1 if (!exists &Errno::EBADF);
H A Dbinmode.t36 skip "no EBADF", 1 if (!exists &Errno::EBADF);
H A Dlayers.t19 $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 Dio_sel.t89 # 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 DIO.t76 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 DErrno.t29 # 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 DBackup.py156 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 Dhash.t54 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 Dlex.t260 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;

Completed in 88 milliseconds

12345