diff --git a/t/parrot/parrot_method.t b/t/parrot/parrot_method.t new file mode 100644 index 0000000..fda532f --- /dev/null +++ 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); \ No newline at end of file diff --git a/t/parrot/parrot_new.t b/t/parrot/parrot_new.t new file mode 100644 index 0000000..d6c85ad --- /dev/null +++ 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"); \ No newline at end of file