[svn:parrot] rev 8274 - trunk/languages/tcl/t

[coke]

Author: coke
Date: Sun Jun  5 07:29:31 2005
New Revision: 8274

Modified:
   trunk/languages/tcl/t/cmd_proc.t
Log:
add a small test for arbitrary # of args for a proc.



Modified: trunk/languages/tcl/t/cmd_proc.t
==============================================================================
--- trunk/languages/tcl/t/cmd_proc.t    (original)
+++ trunk/languages/tcl/t/cmd_proc.t    Sun Jun  5 07:29:31 2005
@@ -58,7 +58,9 @@ language_output_is("tcl",<<'TCL',<<OUT,"
   puts $a
  }
  me
+ me 7
 TCL
 2
+7
 OUT
 }