Changeset 22856 for t

Timestamp:

11/03/08 11:53:31 (2 months ago)

Author:

masak

Message:

[S03-junctions/boolean-context.t] added test for collapsing of junctions in boolean context

Files:

• t/spec/S03-junctions/boolean-context.t (modified) (2 diffs)

t/spec/S03-junctions/boolean-context.t

@@ -1 +1 @@
 use v6;
 use Test;
-plan 37;
+plan 38;
 
 # L<S03/Junctive operators/>
@@ -58 +58 @@
 
 ok 0|undef == 0, '0|undef == 0 in boolean context';
+
+ok ("A" eq "A"|"B").perl eq 'Bool::True', 'a junction of booleans collapses to a boolean';