Permalink
Browse files

[t] merge array_deref.t into autothreading.t

git-svn-id: http://svn.pugscode.org/pugs@25931 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 25e2988 commit 5b43411b3e6c1f162bab7c8356f6fe4913728db1 moritz committed Mar 19, 2009
Showing with 11 additions and 1 deletion.
  1. +11 −1 S03-junctions/autothreading.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 69;
+plan 70;
{
# Solves the equatioin A + B = A * C for integers
@@ -229,3 +229,13 @@ plan 69;
is +primetest($idx + 2), $ref, "primality test for { $idx + 2 } works";
}
}
+
+
+#?rakudo skip 'autothreading over array indexing'
+#?pugs skip 'autothreading over array indexing'
+{
+ my $junc = 0|1|2;
+ my @a = (0,1,2);
+ my $bool = Bool::False;
+ ok ?(@a[$junc] == $junc), 'can autothread over array indexes';
+}

0 comments on commit 5b43411

Please sign in to comment.