add tests for the pir() function, since apparently CharMatrix2D didn'…

…t work with it until recently
Whiteknight · Dec 3, 2009 · 3f29530 · 3f29530
1 parent 8783099
commit 3f29530
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/t/parrot/parrot_pir.t b/t/parrot/parrot_pir.t
@@ -1,7 +1,15 @@
-plan(2);
+plan(6);
 
 % Test the pir() function
 pir(".sub _tempa\nsay 'ok 1'\n.end")
 pir(".sub _tempb\n.param string a\nsay a\n.end", "ok 2")
+pir(".sub '' :anon\n.param string a\nsay a\n.end", "ok 3")
+pir([".sub '' :anon\n.param string a\nsay a\n.end"], "ok 4")
+pir([".sub '' :anon";".param string a";"say a";".end"], "ok 5")
+pir([".sub '' :anon"
+     ".param string a"
+     "say a"
+     ".end"],  "ok 6");
+