Author: coke
Date: Tue Apr 19 16:52:12 2005
New Revision: 7887
Modified:
trunk/languages/tcl/t/cmd_global.t
Log:
Make some tests easier to read
Modified: trunk/languages/tcl/t/cmd_global.t
==============================================================================
--- trunk/languages/tcl/t/cmd_global.t (original)
+++ trunk/languages/tcl/t/cmd_global.t Tue Apr 19 16:52:12 2005
@@ -5,20 +5,20 @@
use Parrot::Test tests => 3;
use vars qw($TODO);
-language_output_is("tcl",<<TCL,<<OUT,"missing global");
+language_output_is("tcl",<<'TCL',<<OUT,"missing global");
proc a {} {
global q
- puts \$q
+ puts $q
}
a
TCL
can't read "q": no such variable
OUT
-language_output_is("tcl",<<TCL,<<OUT,"one global");
+language_output_is("tcl",<<'TCL',<<OUT,"one global");
proc a {} {
global q
- puts \$q
+ puts $q
}
set q 2
a
@@ -26,10 +26,10 @@
2
OUT
-language_output_is("tcl",<<TCL,<<OUT,"few globals");
+language_output_is("tcl",<<'TCL',<<OUT,"few globals");
proc a {} {
global q r s
- puts "\$q \$r \$s"
+ puts "$q $r $s"
}
set q 1
set r 2
