add tests for RT #74478

Raku · Dec 18, 2012 · c50e4ea · c50e4ea
1 parent cdca426
commit c50e4ea
Showing 1 changed file with 15 additions and 1 deletion.
diff --git a/S02-magicals/args.t b/S02-magicals/args.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 4;
+plan 6;
 
 isa_ok @*ARGS, Array, '@*ARGS is an Array';
 is_deeply @*ARGS, [], 'by default @*ARGS is empty array';
@@ -19,4 +19,18 @@ is_run 'print @*ARGS.join(q[, ])', :args[1, 2, "foo"],
         status => 0,
     }, 'providing command line arguments sets @*ARGS';
 
+is_run 'for @*ARGS[ 1 ..^ +@*ARGS ] { .say };', :args[1, 'two', 'three'],
+    {
+        out => "two\nthree\n",
+        err => '',
+        status => 0,
+    }, 'postcircumfix:<[ ]> works for @*ARGS';
+
+is_run 'my @a = @*ARGS; for @a[ 1 ..^ +@*ARGS ] { .say };', :args[1, 'two', 'three'],
+    {
+        out => "two\nthree\n",
+        err => '',
+        status => 0,
+    }, 'can copy @*ARGS to array.';
+
 done;