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

[coke]

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