Home
last modified time | relevance | path

Searched refs:exists (Results 1 – 25 of 1352) sorted by relevance

12345678910>>...55

/openbsd/gnu/usr.bin/perl/cpan/Test2-Suite/t/modules/Compare/
H A DFloat.t49 ok(!$num->verify(exists => 1, got => {}), 'ref will not verify');
52 ok(!$num->verify(exists => 1, got => 1), 'wrong number');
53 ok($num->verify(exists => 1, got => 22), '22.0 == 22');
57 ok(!$untrue->verify(exists => 1, got => {}), 'ref will not verify');
59 ok(!$untrue->verify(exists => 1, got => 'x'), 'x is not 0');
60 ok(!$untrue->verify(exists => 1, got => 1), '1 is not 0');
61 ok(!$untrue->verify(exists => 1, got => ''), '"" is not 0');
62 ok(!$untrue->verify(exists => 1, got => ' '), '" " is not 0');
63 ok($untrue->verify(exists => 1, got => 0), 'got 0');
64 ok($untrue->verify(exists => 1, got => '0.0'), '0.0 == 0');
[all …]
H A DString.t41 ok(!$number->verify(exists => 1, got => {}), 'ref will not verify');
44 ok(!$number->verify(exists => 1, got => 1), 'wrong number');
45 ok(!$number->verify(exists => 1, got => 22), '22.0 ne 22');
53 ok($string->verify(exists => 1, got => 'hello'), 'exact match');
58 ok(!$untru1->verify(exists => 1, got => 'x'), 'wrong string');
59 ok(!$untru1->verify(exists => 1, got => 1), 'not a number');
65 ok(!$untru2->verify(exists => 1, got => 'x'), 'x is not 0');
66 ok(!$untru2->verify(exists => 1, got => 1), '1 is not 0');
67 ok(!$untru2->verify(exists => 1, got => '0.0'), '0.0 ne 0');
68 ok(!$untru2->verify(exists => 1, got => '-0.0'), '-0.0 ne 0');
[all …]
H A DNumber.t26 ok(!$num->verify(exists => 1, got => {}), 'ref will not verify');
29 ok(!$num->verify(exists => 1, got => 1), 'wrong number');
30 ok($num->verify(exists => 1, got => 22), '22.0 == 22');
34 ok(!$untrue->verify(exists => 1, got => {}), 'ref will not verify');
36 ok(!$untrue->verify(exists => 1, got => 'x'), 'x is not 0');
37 ok(!$untrue->verify(exists => 1, got => 1), '1 is not 0');
38 ok(!$untrue->verify(exists => 1, got => ''), '"" is not 0');
39 ok(!$untrue->verify(exists => 1, got => ' '), '" " is not 0');
40 ok($untrue->verify(exists => 1, got => 0), 'got 0');
41 ok($untrue->verify(exists => 1, got => '0.0'), '0.0 == 0');
[all …]
H A DIsa.t35 ok(!$isa_foo->verify(exists => 0, got => undef), 'does not verify against DNE');
36 ok(!$isa_foo->verify(exists => 1, got => undef), 'undef is not an instance of Foo');
37 ok(!$isa_foo->verify(exists => 1, got => 42), '42 is not an instance of Foo');
38 ok($isa_foo->verify(exists => 1, got => $foo), '$foo is an instance of Foo');
39 ok($isa_foo->verify(exists => 1, got => $foo_bar), '$foo_bar is an instance of Foo');
40 ok(!$isa_foo->verify(exists => 1, got => $baz), '$baz is not an instance of Foo');
42 ok(!$isa_foo_bar->verify(exists => 0, got => undef), 'does not verify against DNE');
44 ok(!$isa_foo_bar->verify(exists => 1, got => 42), '42 is not an instance of Foo::Bar');
45 ok(!$isa_foo_bar->verify(exists => 1, got => $foo), '$foo is not an instance of Foo::Bar');
46 ok($isa_foo_bar->verify(exists => 1, got => $foo_bar), '$foo_bar is an instance of Foo::Bar');
[all …]
H A DUndef.t23 ok(!$undef->verify(exists => 0, got => undef), 'does not verify against DNE');
24 ok(!$undef->verify(exists => 1, got => {}), 'ref will not verify');
25 ok(!$undef->verify(exists => 1, got => 'x'), 'not looking for a string');
26 ok(!$undef->verify(exists => 1, got => 1), 'not looking for a number');
27 ok(!$undef->verify(exists => 1, got => 0), 'not looking for a 0');
28 ok($undef->verify(exists => 1, got => undef), 'got undef');
31 ok(!$isdef->verify(exists => 1, got => undef), 'got undef');
32 ok($isdef->verify(exists => 1, got => {}), 'ref is defined');
33 ok($isdef->verify(exists => 1, got => 'x'), 'string is defined');
34 ok($isdef->verify(exists => 1, got => 1), 'number is defined');
[all …]
H A DPattern.t7 ok(!$one->verify(got => {}, exists => 1), "A hashref does not validate against the pattern 'HASH'");
8 ok(!$one->verify(exists => 0), "DNE does not validate");
9 ok(!$one->verify(exists => 1, got => undef), "undef does not validate");
10 ok(!$one->verify(exists => 1, got => 'foo'), "Not a match");
11 ok($one->verify(exists => 1, got => 'A HASH B'), "Matches");
17 ok(!$one->verify(exists => 1, got => {}), "A hashref does not validate against the pattern 'HASH' e…
18 ok(!$one->verify(exists => 0), "DNE does not validate");
19 ok(!$one->verify(exists => 1, got => undef), "undef does not validate");
20 ok($one->verify(exists => 1, got => 'foo'), "Not a match, but negated");
21 ok(!$one->verify(exists => 1, got => 'A HASH B'), "Matches, but negated");
/openbsd/gnu/usr.bin/perl/ext/Tie-Memoize/t/
H A DTie-Memoize.t24 ok(not exists $hash{'strict.pm'});
25 ok(exists $hash{known_to_exist});
28 ok(exists $hash{known_to_exist});
29 ok(not exists $hash{'strict.pm'});
32 ok(not exists $hash{known_to_exist});
33 ok(not exists $hash{'strict.pm'});
38 ok(not exists $hash{'strict.pm'});
39 ok(exists $hash{'blib.pm'});
46 ok(not exists $hash{fake_file2});
47 ok(not exists $hash{fake_file1});
[all …]
/openbsd/gnu/usr.bin/binutils/gdb/testsuite/lib/
H A Dada.exp176 if [info exists CC_FOR_TARGET] {
182 if [info exists CXX_FOR_TARGET] {
188 if [info exists F77_FOR_TARGET] {
259 if ![info exists ldscript] {
273 if [info exists optimize] {
280 if [file exists $x] {
287 if [board_info $dest exists libs] {
354 if [host_info exists use_at] {
365 if [info exists redirect] {
369 if [info exists timeout] {
[all …]
H A Dgdb.exp29 if [info exists TOOL_EXECUTABLE] {
32 if ![info exists GDB] {
42 if ![info exists GDBFLAGS] {
50 if ![info exists gdb_prompt] then {
58 if ![info exists env(EXEEXT)] {
589 if [info exists timeout] {
593 if [info exists timeout] {
1457 if [info exists timeout] {
1468 if ![info exists gtimeout] {
1470 if [info exists timeout] {
[all …]
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/
H A Dcan_write_dir.t38 my $exists = FS->catdir(qw(exists));
42 ok mkdir $exists;
43 END { rmdir $exists }
45 ok chmod 0555, $exists, 'make read only';
48 if -w $exists; # these tests require a directory we cant read
50 is_deeply [can_write_dir($exists)], [0, $exists];
51 is_deeply [can_write_dir($subdir)], [0, $exists, $subdir];
53 ok chmod 0777, $exists, 'make writable';
54 ok -w $exists;
55 is_deeply [can_write_dir($exists)], [1, $exists];
[all …]
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/gcc.dg/format/
H A Dformat.exp20 if [info exists TORTURE_OPTIONS] {
22 } elseif [info exists old_TORTURE_OPTIONS] {
25 if [info exists torture_with_loops] {
27 } elseif [info exists old_torture_with_loops] {
30 if [info exists torture_without_loops] {
32 } elseif [info exists old_torture_without_loops] {
48 if [info exists old_TORTURE_OPTIONS] {
53 if [info exists old_torture_with_loops] {
58 if [info exists old_torture_without_loops] {
/openbsd/gnu/usr.bin/perl/dist/Carp/t/
H A Dvivify_gv.t3 our $has_is_utf8; BEGIN { $has_is_utf8 = exists($utf8::{"is_utf8"}); }
4 our $has_dgrade; BEGIN { $has_dgrade = exists($utf8::{"downgrade"}); }
5 our $has_swashnew; BEGIN { $has_swashnew = exists($utf8::{"SWASHNEW"}); }
6 our $has_strval; BEGIN { $has_strval = exists($overload::{"StrVal"}); }
7 our $has_sv2obj; BEGIN { $has_sv2obj = exists($B::{"svref_2object"}); }
12 print !(exists($utf8::{"is_utf8"}) xor $has_is_utf8) ? "" : "not ", "ok 1\n";
13 print !(exists($utf8::{"downgrade"}) xor $has_dgrade) ? "" : "not ", "ok 2\n";
14 print !(exists($utf8::{"SWASHNEW"}) xor $has_swashnew) ? "" : "not ", "ok 3\n";
15 print !(exists($overload::{"StrVal"}) xor $has_sv2obj) ? "" : "not ", "ok 4\n";
16 print !(exists($B::{"svref_2object"}) xor $has_sv2obj) ? "" : "not ", "ok 5\n";
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/lib/
H A Dgcc.exp60 if { $status == 0 && [info exists version] } then {
98 if ![info exists GCC_UNDER_TEST] {
99 if [info exists TOOL_EXECUTABLE] {
106 if ![info exists tmpdir] then {
111 ![info exists gluefile]} {
135 [info exists gluefile] } {
140 if [target_info exists gcc,stack_size] {
143 if [target_info exists gcc,no_trampolines] {
146 if [target_info exists gcc,no_label_values] {
149 if [info exists TOOL_OPTIONS] {
[all …]
H A Dg++.exp54 if { $status == 0 && [info exists version] } then {
121 if [file exists "${gccpath}/lib/libstdc++.a"] {
124 if [file exists "${gccpath}/libg++/libg++.a"] {
128 if [file exists "${gccpath}/libstdc++/libstdc++.a"] {
139 if [file exists "${gccpath}/librx/librx.a"] {
211 if ![info exists GXX_UNDER_TEST] then {
212 if [info exists TOOL_EXECUTABLE] {
234 if ![info exists tmpdir] {
238 if [info exists gluefile] {
256 if [info exists TOOL_OPTIONS] {
[all …]
H A Dg77.exp54 if { $status == 0 && [info exists version] } then {
86 if [file exists "${gccpath}/libf2c/.libs/libg2c.a"] {
90 if [file exists "${gccpath}/libf2c/libfrtbegin.a"] {
93 if [file exists "${gccpath}/libiberty/libiberty.a"] {
144 if ![info exists G77_UNDER_TEST] then {
145 if [info exists TOOL_EXECUTABLE] {
148 if { [is_remote host] || ! [info exists TESTING_IN_BUILD_TREE] } {
162 if ![info exists tmpdir] {
166 if [info exists gluefile] {
184 if [info exists TOOL_OPTIONS] {
[all …]
H A Dobjc.exp60 if { $status == 0 && [info exists version] } then {
99 if ![info exists OBJC_UNDER_TEST] then {
100 if [info exists TOOL_EXECUTABLE] {
107 if ![info exists tmpdir] then {
151 if { [target_info needs_status_wrapper]!="" && [info exists gluefile] } {
156 if [target_info exists objc,stack_size] {
159 if [target_info exists objc,no_trampolines] {
162 if [target_info exists objc,no_label_values] {
165 if [info exists TOOL_OPTIONS] {
233 if [info exists errorInfo] then {
[all …]
H A Dc-torture.exp27 if ![info exists TORTURE_OPTIONS] {
113 if [file exists [file rootname $src].x] {
153 if [info exists torture_compile_xfail] {
159 if [info exists torture_eval_before_compile] {
181 if [target_info exists no_long_long] then {
188 if [info exists torture_execute_xfail] {
192 if [info exists torture_eval_before_execute] {
211 if { ![isnative] && [info exists oldexec] } {
227 if [info exists status] {
276 if [file exists [file rootname $src].x] {
[all …]
H A Dobjc-torture.exp27 if ![info exists TORTURE_OPTIONS] {
109 if [file exists [file rootname $src].x] {
149 if [info exists torture_compile_xfail] {
155 if [info exists torture_eval_before_compile] {
177 if [target_info exists no_long_long] then {
184 if [info exists torture_execute_xfail] {
188 if [info exists torture_eval_before_execute] {
207 if { ![isnative] && [info exists oldexec] } {
223 if [info exists status] {
272 if [file exists [file rootname $src].x] {
[all …]
/openbsd/gnu/usr.bin/binutils/gdb/testsuite/config/
H A Dmonitor.exp84 if [target_info exists gdb_protocol] {
90 if [target_info exists baud] {
93 if [target_info exists binarydownload] {
102 if [target_info exists gdb_serial] {
104 } elseif [target_info exists netport] {
143 if [target_info exists gdb_download_size] {
155 if [info exists last_gdb_file] {
176 if [target_info exists gdb,use_standard_load] {
178 if ![target_info exists gdb,no_push_conn] {
230 if [target_info exists gdb_load_offset] {
[all …]
H A Dgdbserver.exp96 if [target_info exists gdb,socketport] {
105 if [target_info exists sockethost] {
111 if [target_info exists gdb_protocol] {
118 if [target_info exists gdb_server_prog] {
124 if [target_info exists sockethost] {
134 if [target_info exists gdb_server_args] {
199 if [info exists server_exec] { unset server_exec }
202 if { ! [info exists server_exec] } {
/openbsd/gnu/gcc/libgomp/testsuite/lib/
H A Dlibgomp-dg.exp39 if [info exists TOOL_OPTIONS] {
68 if ![info exists GCC_UNDER_TEST] then {
69 if [info exists TOOL_EXECUTABLE] {
76 if ![info exists tmpdir] {
80 if [info exists gluefile] {
84 if {![info exists CFLAGS]} {
98 if { [info exists lang_test_file] && [file exists "${blddir}/"] } {
128 if { [info exists lang_test_file] && [file exists "${blddir}/"] } {
140 if [info exists TOOL_OPTIONS] {
165 if { [target_info needs_status_wrapper] != "" && [info exists gluefile] } {
/openbsd/gnu/usr.bin/perl/t/op/
H A Dexists_sub.t21 my $has_t1 = ok( exists &t1, 't1 sub declared' );
27 my $has_t2 = ok( exists &t2, 't2 sub declared' );
33 my $has_t3 = ok( exists &t3, 't3 sub declared' );
39 my $has_t4 = ok( exists &t4, 't4 sub declared' );
45 my $has_t5 = ok( exists &t5, 't5 sub declared' );
51 my $has_p2_tmc = ok(! exists &P2::tmc, 'P2::tmc not declared, it was inherited');
59 my $ref_exists = ok( exists &{$ref->{A}[0]}, 'references to subroutines exist');
65 my $p1_tmc_exists = ok( exists &P1::tmc, 'test setup check');
72 $p1_tmc_exists = ok( exists &P1::tmc, 'P1::tmc was once defined, and continues to be after being un…
H A Ddelete.t24 ok(!(exists $foo{2}),'b absent');
35 ok(!(exists $foo{4}),'d absent');
36 ok(!(exists $foo{5}),'e absent');
47 ok(!(exists $foo{5}),'f absent');
48 ok(!(exists $foo{6}),'g absent');
96 ok(!(exists $foo[2]),'ary b absent');
107 ok(!(exists $foo[4]),'ary d absent');
108 ok(!(exists $foo[5]),'ary e absent');
119 ok(!(exists $bar[5]),'f absent');
120 ok(!(exists $bar[6]),'g absent');
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/consistency.vlad/
H A Dvlad.exp32 if ![info exists BASE_COMPILER] {
37 if ![info exists CONSISTENCY_OPTIONS] {
41 if ![info exists NO_LONG_DOUBLE] {
45 if ![info exists NO_LIBGLOSS_LIBRARY_OPTIONS] {
75 if [file exists $rootname.cexp] {
97 if [info exists consistency_compile_xfail] {
107 if {[file exists "$dirname/WRAP_FILE"] \
142 if { ![file exists $executable] } {
158 if [file exists $rootname.conly] {
165 if [target_info exists no_long_long] then {
[all …]
/openbsd/gnu/usr.bin/perl/lib/
H A DConfig.t27 ok(exists($Config{$first_each}), "First key exists");
28 ok(!exists($Config{"\n$first"}),
44 ok( exists $Config{cc}, "has cc");
46 ok( exists $Config{ccflags}, "has ccflags");
48 ok(!exists $Config{python}, "has no python");
50 ok( exists $Config{d_fork}, "has d_fork");
52 ok(!exists $Config{d_bork}, "has no d_bork");
219 ok(!exists $Config{d_bork}, "still no d_bork");
225 ok( exists $Config{d_fork}, "still d_fork");
231 ok( exists $Config{d_fork}, "still d_fork");
[all …]

12345678910>>...55