Permalink
Browse files

Prototype of the Array class

  • Loading branch information...
1 parent f13a472 commit ff2f9decfce83a1d89be479557b6958a4811cefc @sorear committed Aug 4, 2010
Showing with 15 additions and 0 deletions.
  1. +15 −0 test2.pl
View
@@ -0,0 +1,15 @@
+# vim: ft=perl6
+use Test;
+
+my class Array is List {
+ method new() {
+ Array.RAWCREATE("flat", 1, "items", LLArray.new, "rest", LLArray.new);
+ }
+}
+PRE-INIT { Q:CgOp { (prog (rawsset Kernel.ArrayP (@ (l Array))) (null Variable)) } }
+
+my @x;
+
+ok @x ~~ Array, '@x isa Array';
+
+done-testing;

0 comments on commit ff2f9de

Please sign in to comment.