Author: mdiep
Date: Thu Dec 29 11:18:55 2005
New Revision: 10772
Modified:
trunk/languages/tcl/t/cmd_proc.t
Log:
tcl: Expose a [proc] bug
Modified: trunk/languages/tcl/t/cmd_proc.t
==============================================================================
--- trunk/languages/tcl/t/cmd_proc.t (original)
+++ trunk/languages/tcl/t/cmd_proc.t Thu Dec 29 11:18:55 2005
@@ -2,7 +2,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 11;
+use Parrot::Test tests => 12;
use Test::More;
language_output_is("tcl",<<'TCL',<<OUT,"return value");
@@ -16,6 +16,15 @@ TCL
OUT
+language_output_is("tcl",<<'TCL',<<'OUT',"return value from user-defined
command");
+ proc foo {} {
+ append x {foo bar}
+ }
+ puts [foo]
+TCL
+foo bar
+OUT
+
language_output_is("tcl",<<'TCL',<<OUT,"noarg");
proc me {} {
puts 2
