Author: coke
Date: Tue Aug 9 10:34:50 2005
New Revision: 8895
Modified:
trunk/languages/tcl/t/cmd_list.t
Log:
tcl: add another TODO'd parser test.
Modified: trunk/languages/tcl/t/cmd_list.t
==============================================================================
--- trunk/languages/tcl/t/cmd_list.t (original)
+++ trunk/languages/tcl/t/cmd_list.t Tue Aug 9 10:34:50 2005
@@ -2,8 +2,9 @@
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);
language_output_is("tcl",<<'TCL',<<OUT,"no elements");
puts [list]
@@ -95,3 +96,12 @@ language_output_is("tcl",<<'TCL',<<'OUT'
TCL
\]
OUT
+
+TODO: {
+ local $TODO = "need smarter string to list processing.";
+language_output_is("tcl",<<'TCL',<<'OUT',"extra characters after close brace");
+ list {a}a
+TCL
+extra characters after close brace
+OUT
+}
