Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

RT#75626 tests - Implement Any.all (and .any, .one, .none) in Rakudo

git-svn-id: http://svn.pugscode.org/pugs@31205 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 4f9deaa0f1d9448020a5bad3ab2e01a01fbf60e7 1 parent 25f3f7b
mmcleric authored
Showing with 11 additions and 0 deletions.
  1. +11 −0 S03-junctions/misc.t
View
11 S03-junctions/misc.t
@@ -389,6 +389,17 @@ ok Mu & Mu ~~ Mu, 'Mu & Mu ~~ Mu works';
ok((WHAT any(1,2)) === junction, "test WHAT on any junction");
ok(any(1,2).WHAT === junction, "test WHAT on any junction");
}
+
+# Any list has junction methods
+{
+ jok(5 < (6,7,8).all, '.all method builds "all" junction');
+ jok(!(7 < (6,7,8).all), '.all method builds "all" junction');
+ jok(7 == (6,7,8).one, '.one method builds "one" junction');
+ jok(9 == (6,7,8).none, '.none method builds "none" junction');
+
+ my @x = (6,7,8);
+ jok(5 < @x.all, '.all method works on array objects');
+}
done_testing();
# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.