Author: coke
Date: Mon Aug 8 11:34:30 2005
New Revision: 8871
Modified:
trunk/languages/tcl/t/cmd_proc.t
Log:
add a test for [proc]'s return value.
Modified: trunk/languages/tcl/t/cmd_proc.t
==============================================================================
--- trunk/languages/tcl/t/cmd_proc.t (original)
+++ trunk/languages/tcl/t/cmd_proc.t Mon Aug 8 11:34:30 2005
@@ -2,10 +2,21 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 4;
+use Parrot::Test tests => 5;
use Test::More;
use vars qw($SKIP $TODO);
+language_output_is("tcl",<<'TCL',<<OUT,"return value");
+ set a [proc me {} {
+ puts 2
+ }]
+ me
+ puts $a
+TCL
+2
+
+OUT
+
language_output_is("tcl",<<'TCL',<<OUT,"noarg");
proc me {} {
puts 2
