Author: coke
Date: Mon Aug 15 10:32:03 2005
New Revision: 8969
Modified:
trunk/languages/tcl/t/cmd_join.t
Log:
tcl: nothing more TODO in this test
Modified: trunk/languages/tcl/t/cmd_join.t
==============================================================================
--- trunk/languages/tcl/t/cmd_join.t (original)
+++ trunk/languages/tcl/t/cmd_join.t Mon Aug 15 10:32:03 2005
@@ -4,7 +4,6 @@ use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 7;
use Test::More;
-use vars qw($TODO);
language_output_is("tcl",<<TCL,<<OUT,"bad join 1");
puts [join]
