Changeset 22631 for t

Timestamp:

10/16/08 18:51:42 (3 months ago)

Author:

lwall

Message:

s/where/also/

Files:

• t/spec/S03-operators/where.t (modified) (1 diff)

t/spec/S03-operators/where.t

@@ -2 +2 @@
 plan 8;
 
-# L<S03/"Junctive and (all) precedence"/"infix:<where>">
+# L<S03/"Junctive and (all) precedence"/"infix:<also>">
 
-ok ?(1 where 2),         "basic infix:<where>";
-ok ?(1 where 2 where 3), "basic infix:<where> (multiple where's)";
-ok !(0 where 1),         "where has and-semantics (first term 0)";
-ok !(1 where 0),         "where has and-semantics (second term 0)";
+ok ?(1 also 2),         "basic infix:<also>";
+ok ?(1 also 2 also 3), "basic infix:<also> (multiple also's)";
+ok !(0 also 1),         "also has and-semantics (first term 0)";
+ok !(1 also 0),         "also has and-semantics (second term 0)";
 
 my $x = '';
 
-ok ?('a' ~~ { $x ~= "b"; True } where { $x ~= "c"; True }), 'where with two blocks';
+ok ?('a' ~~ { $x ~= "b"; True } also { $x ~= "c"; True }), 'also with two blocks';
 is $x, 'bc', 'blocks called in the right order';
 
 my $executed = 0;
 
-ok !('a' ~~ 'b' where { $executed = 1; True }), 'and semantics';
+ok !('a' ~~ 'b' also { $executed = 1; True }), 'and semantics';
 ok !$executed,                            'short-circuit';