Author: mdiep
Date: Tue Aug 9 15:12:50 2005
New Revision: 8897
Modified:
trunk/languages/tcl/t/cmd_switch.t
Log:
tcl: Fix the syntax error in the test script
Modified: trunk/languages/tcl/t/cmd_switch.t
==============================================================================
--- trunk/languages/tcl/t/cmd_switch.t (original)
+++ trunk/languages/tcl/t/cmd_switch.t Tue Aug 9 15:12:50 2005
@@ -7,7 +7,7 @@ use Test::More;
use vars qw($TODO);
TODO: {
- local $TODO = "switch not written yet."
+ local $TODO = "switch not written yet.";
language_output_is("tcl",<<'TCL',<<OUT,"too few args, 0");
switch
