Lines Matching full:not
20 END {print "not ok 1\n" unless $loaded;}
30 # (correspondingly "not ok 13") depending on the success of chunk 13
38 print( ($ini ? "": "not "), "ok 2\n# HINI=`$ini'\n");
41 "not ok 3\n# err: `$^E'\n" : "ok 3\n");
45 "not ok 4\n# err: `$^E'\n");
48 print( $len == 3 ? "ok 5\n" : "not ok 5# len: `$len' err: `$^E'\n");
51 print( $val eq 'xyz' ? "ok 6\n" : "not ok 6# val: `$val' err: `$^E'\n");
54 print( $val eq "bbb\0" ? "ok 7\n" : "not ok 7# val: `$val' err: `$^E'\n");
57 print( $val eq "aaa\0" ? "ok 8\n" : "not ok 8# val: `$val' err: `$^E'\n");
60 print( $res ? "ok 9\n" : "not ok 9# err: `$^E'\n");
63 print( (! defined $val) ? "ok 10\n" : "not ok 10# val: `$val' err: `$^E'\n");
66 print( (! defined $val) ? "ok 11\n" : "not ok 11# val: `$val' err: `$^E'\n");
68 print((OS2::Prf::Close($ini) ? "" : "not ") . "ok 12\n");
71 print( (defined $files) ? "ok 13\n" : "not ok 13# err: `$^E'\n");
72 print( (@$files == 2) ? "ok 14\n" : "not ok 14# `@$files' err: `$^E'\n");
76 print( ($ini ? "": "not "), "ok 15\n# HINI=`$ini'\n");
80 "not ok 16\n# err: `$^E'\n");
83 "not ok 17\n# err: `$^E'\n");
86 "not ok 18\n# err: `$^E'\n");
89 "not ok 19\n# err: `$^E'\n");
100 print (@a1 == 2 ? "ok 21\n" : "not ok 21\n# `@a1'\n");
103 print ("@a2" eq "ccc ddd" ? "ok 22\n" : "not ok 22\n# `@a2'\n");
106 print ($val eq "xyz" ? "ok 23\n" : "not ok 23\n# `$val'\n");
109 print ($val eq "123" ? "ok 24\n" : "not ok 24\n# `$val'\n");
111 print (exists $hash1{ccc} ? "ok 25\n" : "not ok 25\n# `$val'\n");
113 print (!exists $hash1{hhh} ? "ok 26\n" : "not ok 26\n# `$val'\n");
116 print (exists $hash1{hhh} ? "ok 27\n" : "not ok 27\n# `$val'\n");
119 print ($val eq "12" ? "ok 28\n" : "not ok 28\n# `$val'\n");
130 print (@a1 == 2 ? "ok 31\n" : "not ok 31\n# `@a1'\n");
133 print ("@a2" eq "ddd hhh" ? "ok 32\n" : "not ok 32\n# `@a2'\n");
135 print (exists $hash1{hhh} ? "ok 33\n" : "not ok 33\n# `$val'\n");
138 print ($val eq "12" ? "ok 34\n" : "not ok 34\n# `$val'\n");
153 print (@a1 == 2 ? "ok 37\n" : "not ok 37\n# `@a1'\n");
156 print ("@a2" eq "aaa bbb" ? "ok 38\n" : "not ok 38\n# `@a2'\n");
158 print (exists $hash{aaa} ? "ok 39\n" : "not ok 39\n# `$val'\n");
161 print (ref $val eq "HASH" ? "ok 40\n" : "not ok 40\n# `$val'\n");
167 print (@a1 == 2 ? "ok 42\n" : "not ok 31\n# `@a1'\n");
170 print ("@a2" eq "ddd hhh" ? "ok 43\n" : "not ok 43\n# `@a2'\n");
172 print (exists $hash1{hhh} ? "ok 44\n" : "not ok 44\n# `$val'\n");
175 print ($val eq "12" ? "ok 45\n" : "not ok 45\n# `$val'\n");
187 print ($hash2{nnn}->{mmm} eq "67" ? "ok 48\n" : "not ok 48\n# `$val'\n");