From 5b43411b3e6c1f162bab7c8356f6fe4913728db1 Mon Sep 17 00:00:00 2001
From: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Thu, 19 Mar 2009 22:54:26 +0000
Subject: [PATCH] [t] merge array_deref.t into autothreading.t

git-svn-id: http://svn.pugscode.org/pugs@25931 c213334d-75ef-0310-aa23-eaa082d1ae64
---
 S03-junctions/autothreading.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/S03-junctions/autothreading.t b/S03-junctions/autothreading.t
index c1871532a1..88e22d49f5 100644
--- 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';
+}