[t] merge array_deref.t into autothreading.t

git-svn-id: http://svn.pugscode.org/pugs@25931 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Mar 19, 2009 · 5b43411 · 5b43411
1 parent 25e2988
commit 5b43411
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S03-junctions/autothreading.t b/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';
+}