Changeset 22040

Timestamp:

08/27/08 11:14:56 (3 months ago)

Author:

moritz

Message:

[t/spec] junction tests need explicit ?(...) to force boolean context,
otherwise ok() autothreads on it

Files:

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

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

@@ -5 +5 @@
 # L<S03/Junctive Operators/>
 
-ok any(1..2), 'any(1..2) in boolean context';
+ok ?any(1..2), 'any(1..2) in boolean context';
 ok !(any(0,0)), 'any(0,0) in boolean context';
 ok !(one(1..2)), 'one(1..2) in boolean context';
-ok 1|2, '1|2 in boolean context';
+ok ?(1|2), '1|2 in boolean context';
 ok !(1^2), '1^2 in boolean context';
 ok !(undef|0), 'undef|0 in boolean context';
@@ -15 +15 @@
 ok !(defined undef), 'defined undef in boolean context';
 ok !(all(undef, undef)), 'all(undef, undef) in boolean context';
-ok all(1,1), 'all(1,1) in boolean context';
+ok ?all(1,1), 'all(1,1) in boolean context';
 ok !(all(1,undef)), 'all(1,undef) in boolean context';
 
-ok 1|undef, '1|undef in boolean context';
-ok undef|1, 'undef|1 in boolean context';
+ok ?(1|undef), '1|undef in boolean context';
+ok ?(undef|1), 'undef|1 in boolean context';
 ok !(1&undef), '1&undef in boolean context';
 ok !(undef&1), 'undef&1 in boolean context';
-ok 1^undef, '1^undef in boolean context';
-ok undef^1, 'undef^1 in boolean context';
+ok ?(1^undef), '1^undef in boolean context';
+ok ?(undef^1), 'undef^1 in boolean context';
 
-ok -1|undef, '-1|undef in boolean context';
-ok undef|-1, 'undef|-1 in boolean context';
+ok ?(-1|undef), '-1|undef in boolean context';
+ok ?(undef|-1), 'undef|-1 in boolean context';
 ok !(-1&undef), '-1&undef in boolean context';
 ok !(undef&-1), 'undef&-1 in boolean context';
-ok -1^undef, '-1^undef in boolean context';
-ok undef^-1, 'undef^-1 in boolean context';
+ok ?(-1^undef), '-1^undef in boolean context';
+ok ?(undef^-1), 'undef^-1 in boolean context';
 
 (1|undef && pass '1|undef in boolean context') || fail '1|undef in boolean context';