add tests for parrot_new and parrot_method

Whiteknight · Dec 8, 2009 · 6a2877e · 6a2877e
1 parent 9170801
commit 6a2877e
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/t/parrot/parrot_method.t b/t/parrot/parrot_method.t
@@ -0,0 +1,8 @@
+plan(4);
+
+x = [1];
+is(columns(x), 1);
+is(rows(x), 1);
+parrot_method(x, "resize", 2, 7);
+is(columns(x), 7);
+is(rows(x), 2);
diff --git a/t/parrot/parrot_new.t b/t/parrot/parrot_new.t
@@ -0,0 +1,3 @@
+plan(1)
+x = parrot_new("Integer");
+is(parrot_typeof(x), "Integer", "can create an Integer");