Changeset 19197

Timestamp:

12/12/07 20:24:49 (12 months ago)

Author:

ferreira

Message:

r180@dracma: perl | 2007-12-12 17:24:08 -0200
fix todo test: ?| produces Bool, and False does not stringify to 0

Files:

• t/operators/operator.t (modified) (2 diffs)

t/operators/operator.t

@@ -54 +54 @@
 # L<S03/Tight or precedence/short-circuiting inclusive-or>
 is(2 || 3, 2, "|| returns first true value");
-is(2 ?| 3, 1, "boolean or (?|) returns 0 or 1");
 ok(!(defined( 0 || undef)), "|| returns last false value of list?");
-is(0 ?| undef, 0, "boolean or (?|) returns 0 or 1", :todo);
+
+is(2 ?| 3, True, "boolean or (?|) returns True or False"); 
+is(0 ?| undef, False, "boolean or (?|) returns True or False");
 
 # L<S03/Junctive operators/They thread through operations>
@@ -85 +86 @@
 @rv = (1,2,3,4) >>+<< (1,2,3,4);
 is("@rv[]", "2 4 6 8", 'hyper-add');
+