Author: coke
Date: Wed Aug 3 20:18:16 2005
New Revision: 8798
Modified:
trunk/languages/tcl/t/tcl_misc.t
Log:
no extra characters after close quote
more comment tests
Modified: trunk/languages/tcl/t/tcl_misc.t
==============================================================================
--- trunk/languages/tcl/t/tcl_misc.t (original)
+++ trunk/languages/tcl/t/tcl_misc.t Wed Aug 3 20:18:16 2005
@@ -2,7 +2,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 13;
+use Parrot::Test tests => 16;
use Test::More;
use vars qw($TODO);
@@ -93,3 +93,30 @@ puts 1
TCL
1
OUT
+
+language_output_is("tcl",<<'TCL',<<'OUT',"comments must *start* commands
(does), with whitespace");
+ # comment
+ puts 1
+TCL
+1
+OUT
+
+language_output_is("tcl",<<'TCL',<<'OUT',"comments end on newline, not ;");
+ # comment ; puts 1
+ puts 2
+TCL
+2
+OUT
+
+TODO: {
+local $TODO = "unimplemented";
+
+language_output_is("tcl",<<'TCL',<<'OUT',"no extra characters after close
quote")
+set a 2
+puts [set "a"a]
+puts 1
+TCL
+extra characters after close quote
+OUT
+
+}
