[svn:parrot] r8781 - in trunk/languages/tcl: lib/commands t

[coke]

Author: coke
Date: Wed Aug  3 09:12:10 2005
New Revision: 8781

Modified:
   trunk/languages/tcl/lib/commands/puts.pir
   trunk/languages/tcl/t/tcl_misc.t
Log:
Fixup comment skipping test, and a bug in [puts]



Modified: trunk/languages/tcl/lib/commands/puts.pir
==============================================================================
--- trunk/languages/tcl/lib/commands/puts.pir   (original)
+++ trunk/languages/tcl/lib/commands/puts.pir   Wed Aug  3 09:12:10 2005
@@ -73,7 +73,8 @@ bad_channel:
 bad_option:
   return_type = TCL_ERROR
   $S0 = "bad argument \""
-  $S0 .= $S1
+  $S3 = argv[2]
+  $S0 .= $S3
   $S0 .= "\": should be \"nonewline\""
   retval = $S0
   goto done

Modified: trunk/languages/tcl/t/tcl_misc.t
==============================================================================
--- trunk/languages/tcl/t/tcl_misc.t    (original)
+++ trunk/languages/tcl/t/tcl_misc.t    Wed Aug  3 09:12:10 2005
@@ -81,12 +81,8 @@ TCL
 invalid command name "a"
 OUT
 
-TODO: {
-local $TODO = "bug(s)";
-
-language_output_is("tcl",<<'TCL',<<'OUT',"bad argument error");
+language_output_is("tcl",<<'TCL',<<'OUT',"comments must *start* commands");
 puts 4 # comment
 TCL
 bad argument "comment": should be "nonewline"
 OUT
-}