Lines Matching defs:ok
8 # This ok() function is specially written to avoid any concatenation.
10 sub ok {
11 my($ok, $name) = @_;
13 printf "%sok %d - %s\n", ($ok ? "" : "not "), $test, $name;
15 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
18 return $ok;
25 ok("$a" eq "foo", "verifying assign");
26 ok("$a$b" eq "foobar", "basic concatenation");
27 ok("$c$a$c" eq "foo", "concatenate undef, fore and aft");
37 ok($_ eq "$dx$dx","bug id 20000819.004, back");
43 ok($_ eq "$dx$dx","bug id 20000819.004, front");
50 ok($_ eq "$dx$dx","bug id 20000819.004, front and back");
60 ok($a eq "\x{1ff}", "bug id 20000901.092, undef left");
62 ok($a eq "\x{1ff}", "bug id 20000901.092, undef right");
73 ok(!$@, "bug id 20001020.006, left");
77 ok(!$@, "bug id 20001020.006, right");
84 ok(!$@, "bug id 20001020.006, constant left");
88 ok(!$@, "bug id 20001020.006, constant right");
98 ok(beq($l.$r, $c), "concat utf8 and byte");
99 ok(beq($l, "\x{101}"), "right not changed after concat u+b");
100 ok(beq($r, "\x{fe}"), "left not changed after concat u+b");
103 ok(beq($l.$r, $c), "concat byte and utf8");
104 ok(beq($l, "\x{fe}"), "right not changed after concat b+u");
105 ok(beq($r, "\x{101}"), "left not changed after concat b+u");
110 ok($a == 5, '($a .= 5) . 6 - present since 5.000');
118 ok( "$x,$y" eq "x,xy", 'figures out correct target' );
133 ok(beq($p.$u, $p.$b), "perl #26905, left eq bytes");
134 ok(beq($u.$p, $b.$p), "perl #26905, right eq bytes");
135 ok(!beq($p.$u, $pu), "perl #26905, left ne unicode");
136 ok(!beq($u.$p, $up), "perl #26905, right ne unicode");
144 ok(beq($x1, $x2), "perl #26905, left, .= vs = . in bytes");
145 ok(beq($y1, $y2), "perl #26905, right, .= vs = . in bytes");
146 ok(($x1 eq $x2), "perl #26905, left, .= vs = . in chars");
147 ok(($y1 eq $y2), "perl #26905, right, .= vs = . in chars");