Permalink
Browse files

[also.t] rewrite to S&, too lazy to rename file

git-svn-id: http://svn.pugscode.org/pugs@29160 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent c8d20e0 commit eb8297fbe84c51074d23a057f942871e2954fb49 lwall committed Nov 20, 2009
Showing with 7 additions and 7 deletions.
  1. +7 −7 S03-operators/also.t
View
14 S03-operators/also.t
@@ -1,21 +1,21 @@
use Test;
plan 8;
-# L<S03/"Junctive and (all) precedence"/"infix:<also>">
+# L<S03/"Junctive and (all) precedence"/"infix:<&>">
-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)";
+ok ?(1 S& 2), "basic infix:<S&>";
+ok ?(1 S& 2 S& 3), "basic infix:<S&> (multiple S&'s)";
+ok !(0 S& 1), "S& has and-semantics (first term 0)";
+ok !(1 S& 0), "also has and-semantics (second term 0)";
my $x = '';
-ok ?('a' ~~ { $x ~= "b"; True } also { $x ~= "c"; True }), 'also with two blocks';
+ok ?('a' ~~ { $x ~= "b"; True } S& { $x ~= "c"; True }), 'S& with two blocks';
is $x, 'bc', 'blocks called in the right order';
my $executed = 0;
-ok !('a' ~~ 'b' also { $executed = 1; True }), 'and semantics';
+ok !('a' ~~ 'b' S& { $executed = 1; True }), 'and semantics';
ok !$executed, 'short-circuit';
# vim: ft=perl6

0 comments on commit eb8297f

Please sign in to comment.