[svn:parrot] r11161 - trunk/t/op

[leo]

Author: leo
Date: Fri Jan 13 14:09:53 2006
New Revision: 11161

Modified:
   trunk/t/op/calling.t
Log:
add todo test for missing get_params/param count mismatch

Modified: trunk/t/op/calling.t
==============================================================================
--- trunk/t/op/calling.t        (original)
+++ trunk/t/op/calling.t        Fri Jan 13 14:09:53 2006
@@ -469,6 +469,19 @@ CODE
 /too few arguments passed/
 OUTPUT
 
+pir_output_like(<<'CODE', <<'OUTPUT', "argc mismatch, too few", todo => 'no 
get_params at all');
+.sub main :main
+    .include "errors.pasm"
+    errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
+    foo(5)
+.end
+.sub foo
+    print "nada"
+.end
+CODE
+/too few arguments passed/
+OUTPUT
+
 pir_output_like(<<'CODE', <<'OUTPUT', "argc mismatch, too many");
 .sub main :main
     .include "errors.pasm"
@@ -1573,5 +1586,5 @@ OUTPUT
 
 
 ## remember to change the number of tests :-)
-BEGIN { plan tests => 57; }
+BEGIN { plan tests => 58; }