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

[mdiep]

Author: mdiep
Date: Mon Jul 25 14:05:32 2005
New Revision: 8701

Modified:
   trunk/languages/tcl/t/tcl_backslash.t
Log:
Add a test for {a\n}

Modified: trunk/languages/tcl/t/tcl_backslash.t
==============================================================================
--- trunk/languages/tcl/t/tcl_backslash.t       (original)
+++ trunk/languages/tcl/t/tcl_backslash.t       Mon Jul 25 14:05:32 2005
@@ -4,12 +4,18 @@
 
 use strict;
 use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 15;
+use Parrot::Test tests => 16;
 use Test::More;
 use vars qw($TODO);
 
 my($tcl,$expected);
 
+language_output_is("tcl",<<'TCL',<<'OUT',"in braces");
+ puts {a\n}
+TCL
+a\n
+OUT
+
 $tcl = <<'EOTCL';
  puts -nonewline "\n"
 EOTCL