Author: coke
Date: Sat Jul 23 19:09:00 2005
New Revision: 8690
Modified:
trunk/languages/tcl/t/cmd_append.t
trunk/languages/tcl/t/cmd_array.t
trunk/languages/tcl/t/cmd_break.t
trunk/languages/tcl/t/cmd_catch.t
trunk/languages/tcl/t/cmd_concat.t
trunk/languages/tcl/t/cmd_continue.t
trunk/languages/tcl/t/cmd_error.t
trunk/languages/tcl/t/cmd_eval.t
trunk/languages/tcl/t/cmd_exit.t
trunk/languages/tcl/t/cmd_expr.t
trunk/languages/tcl/t/cmd_for.t
trunk/languages/tcl/t/cmd_foreach.t
trunk/languages/tcl/t/cmd_format.t
trunk/languages/tcl/t/cmd_global.t
trunk/languages/tcl/t/cmd_if.t
trunk/languages/tcl/t/cmd_incr.t
trunk/languages/tcl/t/cmd_inline.t
trunk/languages/tcl/t/cmd_join.t
trunk/languages/tcl/t/cmd_lappend.t
trunk/languages/tcl/t/cmd_lindex.t
trunk/languages/tcl/t/cmd_linsert.t
trunk/languages/tcl/t/cmd_list.t
trunk/languages/tcl/t/cmd_llength.t
trunk/languages/tcl/t/cmd_proc.t
trunk/languages/tcl/t/cmd_puts.t
trunk/languages/tcl/t/cmd_rename.t
trunk/languages/tcl/t/cmd_return.t
trunk/languages/tcl/t/cmd_set.t
trunk/languages/tcl/t/cmd_source.t
trunk/languages/tcl/t/cmd_string.t
trunk/languages/tcl/t/cmd_time.t
trunk/languages/tcl/t/cmd_unset.t
trunk/languages/tcl/t/cmd_while.t
trunk/languages/tcl/t/harness
trunk/languages/tcl/t/tcl_backslash.t
trunk/languages/tcl/t/tcl_command_subst.t
trunk/languages/tcl/t/tcl_misc.t
trunk/languages/tcl/t/tcl_var_subst.t
Log:
[perl #36438] Silence Tcl TODO tests
Mostly fixed.
Modified: trunk/languages/tcl/t/cmd_append.t
==============================================================================
--- trunk/languages/tcl/t/cmd_append.t (original)
+++ trunk/languages/tcl/t/cmd_append.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 8;
+use Test::More;
language_output_is('tcl', <<'TCL', <<'OUT', 'noarg');
set a 2
Modified: trunk/languages/tcl/t/cmd_array.t
==============================================================================
--- trunk/languages/tcl/t/cmd_array.t (original)
+++ trunk/languages/tcl/t/cmd_array.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 13;
+use Test::More;
use vars qw($TODO);
language_output_is("tcl",<<'TCL',<<OUT,"array exists yes");
Modified: trunk/languages/tcl/t/cmd_break.t
==============================================================================
--- trunk/languages/tcl/t/cmd_break.t (original)
+++ trunk/languages/tcl/t/cmd_break.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 2;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_catch.t
==============================================================================
--- trunk/languages/tcl/t/cmd_catch.t (original)
+++ trunk/languages/tcl/t/cmd_catch.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 9;
+use Test::More;
language_output_is("tcl",<<'TCL',<<OUT,"discard error");
catch {
Modified: trunk/languages/tcl/t/cmd_concat.t
==============================================================================
--- trunk/languages/tcl/t/cmd_concat.t (original)
+++ trunk/languages/tcl/t/cmd_concat.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 6;
+use Test::More;
language_output_is("tcl",<<TCL,<<OUT,"concat nothing");
puts [concat]
Modified: trunk/languages/tcl/t/cmd_continue.t
==============================================================================
--- trunk/languages/tcl/t/cmd_continue.t (original)
+++ trunk/languages/tcl/t/cmd_continue.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 2;
+use Test::More;
use vars qw($TODO);
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_error.t
==============================================================================
--- trunk/languages/tcl/t/cmd_error.t (original)
+++ trunk/languages/tcl/t/cmd_error.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
+use Test::More;
# Should check xit value. needs updating for stacktrace,
# Also needs TODO tests for missing functionality.
Modified: trunk/languages/tcl/t/cmd_eval.t
==============================================================================
--- trunk/languages/tcl/t/cmd_eval.t (original)
+++ trunk/languages/tcl/t/cmd_eval.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_exit.t
==============================================================================
--- trunk/languages/tcl/t/cmd_exit.t (original)
+++ trunk/languages/tcl/t/cmd_exit.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_expr.t
==============================================================================
--- trunk/languages/tcl/t/cmd_expr.t (original)
+++ trunk/languages/tcl/t/cmd_expr.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 43;
+use Test::More;
use vars qw($TODO);
language_output_is("tcl",<<TCL,<<OUT,"mul");
Modified: trunk/languages/tcl/t/cmd_for.t
==============================================================================
--- trunk/languages/tcl/t/cmd_for.t (original)
+++ trunk/languages/tcl/t/cmd_for.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_foreach.t
==============================================================================
--- trunk/languages/tcl/t/cmd_foreach.t (original)
+++ trunk/languages/tcl/t/cmd_foreach.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 9;
+use Test::More;
language_output_is("tcl",<<'TCL',<<OUT,"bad args 1");
foreach
Modified: trunk/languages/tcl/t/cmd_format.t
==============================================================================
--- trunk/languages/tcl/t/cmd_format.t (original)
+++ trunk/languages/tcl/t/cmd_format.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_global.t
==============================================================================
--- trunk/languages/tcl/t/cmd_global.t (original)
+++ trunk/languages/tcl/t/cmd_global.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 3;
+use Test::More;
use vars qw($TODO);
language_output_is("tcl",<<'TCL',<<OUT,"missing global");
Modified: trunk/languages/tcl/t/cmd_if.t
==============================================================================
--- trunk/languages/tcl/t/cmd_if.t (original)
+++ trunk/languages/tcl/t/cmd_if.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 9;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_incr.t
==============================================================================
--- trunk/languages/tcl/t/cmd_incr.t (original)
+++ trunk/languages/tcl/t/cmd_incr.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 5;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_inline.t
==============================================================================
--- trunk/languages/tcl/t/cmd_inline.t (original)
+++ trunk/languages/tcl/t/cmd_inline.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 3;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_join.t
==============================================================================
--- trunk/languages/tcl/t/cmd_join.t (original)
+++ trunk/languages/tcl/t/cmd_join.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
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");
Modified: trunk/languages/tcl/t/cmd_lappend.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lappend.t (original)
+++ trunk/languages/tcl/t/cmd_lappend.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 4;
+use Test::More;
language_output_is("tcl",<<'TCL',<<OUT,"append nothing");
set a [list a b]
Modified: trunk/languages/tcl/t/cmd_lindex.t
==============================================================================
--- trunk/languages/tcl/t/cmd_lindex.t (original)
+++ trunk/languages/tcl/t/cmd_lindex.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 3;
+use Test::More;
language_output_is("tcl",<<'TCL',<<OUT,"lindex with list");
set a {a b c}
Modified: trunk/languages/tcl/t/cmd_linsert.t
==============================================================================
--- trunk/languages/tcl/t/cmd_linsert.t (original)
+++ trunk/languages/tcl/t/cmd_linsert.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 5;
+use Test::More;
use vars qw($TODO);
language_output_is("tcl",<<'TCL',<<OUT,"insert beginning empty list");
Modified: trunk/languages/tcl/t/cmd_list.t
==============================================================================
--- trunk/languages/tcl/t/cmd_list.t (original)
+++ trunk/languages/tcl/t/cmd_list.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 15;
+use Test::More;
language_output_is("tcl",<<'TCL',<<OUT,"no elements");
puts [list]
Modified: trunk/languages/tcl/t/cmd_llength.t
==============================================================================
--- trunk/languages/tcl/t/cmd_llength.t (original)
+++ trunk/languages/tcl/t/cmd_llength.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 5;
+use Test::More;
use vars qw($TODO);
language_output_is("tcl",<<'TCL',<<OUT,"no elements");
Modified: trunk/languages/tcl/t/cmd_proc.t
==============================================================================
--- trunk/languages/tcl/t/cmd_proc.t (original)
+++ trunk/languages/tcl/t/cmd_proc.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 4;
+use Test::More;
use vars qw($SKIP $TODO);
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_puts.t
==============================================================================
--- trunk/languages/tcl/t/cmd_puts.t (original)
+++ trunk/languages/tcl/t/cmd_puts.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 2;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_rename.t
==============================================================================
--- trunk/languages/tcl/t/cmd_rename.t (original)
+++ trunk/languages/tcl/t/cmd_rename.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 2;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_return.t
==============================================================================
--- trunk/languages/tcl/t/cmd_return.t (original)
+++ trunk/languages/tcl/t/cmd_return.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_set.t
==============================================================================
--- trunk/languages/tcl/t/cmd_set.t (original)
+++ trunk/languages/tcl/t/cmd_set.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 4;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_source.t
==============================================================================
--- trunk/languages/tcl/t/cmd_source.t (original)
+++ trunk/languages/tcl/t/cmd_source.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 2;
+use Test::More;
use vars qw($TODO);
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_string.t
==============================================================================
--- trunk/languages/tcl/t/cmd_string.t (original)
+++ trunk/languages/tcl/t/cmd_string.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 37;
+use Test::More;
use vars qw($TODO);
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_time.t
==============================================================================
--- trunk/languages/tcl/t/cmd_time.t (original)
+++ trunk/languages/tcl/t/cmd_time.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
+use Test::More;
use vars qw($TODO);
my($tcl,$expected);
Modified: trunk/languages/tcl/t/cmd_unset.t
==============================================================================
--- trunk/languages/tcl/t/cmd_unset.t (original)
+++ trunk/languages/tcl/t/cmd_unset.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 3;
+use Test::More;
language_output_is("tcl",<<'TCL',"can't unset \"a\": no such
variable\n","unset nothing");
unset a
Modified: trunk/languages/tcl/t/cmd_while.t
==============================================================================
--- trunk/languages/tcl/t/cmd_while.t (original)
+++ trunk/languages/tcl/t/cmd_while.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
+use Test::More;
my($tcl,$expected);
Modified: trunk/languages/tcl/t/harness
==============================================================================
--- trunk/languages/tcl/t/harness (original)
+++ trunk/languages/tcl/t/harness Sat Jul 23 19:09:00 2005
@@ -2,9 +2,11 @@
use strict;
-use Test::Harness;
+use Test::Harness qw/&runtests $verbose/;
use File::Spec;
+$verbose = 0;
+
my $language = "tcl";
=pod
Modified: trunk/languages/tcl/t/tcl_backslash.t
==============================================================================
--- trunk/languages/tcl/t/tcl_backslash.t (original)
+++ trunk/languages/tcl/t/tcl_backslash.t Sat Jul 23 19:09:00 2005
@@ -5,6 +5,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 15;
+use Test::More;
use vars qw($TODO);
my($tcl,$expected);
Modified: trunk/languages/tcl/t/tcl_command_subst.t
==============================================================================
--- trunk/languages/tcl/t/tcl_command_subst.t (original)
+++ trunk/languages/tcl/t/tcl_command_subst.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 10;
+use Test::More;
use vars qw($TODO);
language_output_is("tcl",<<'TCL', <<'OUT',"all");
Modified: trunk/languages/tcl/t/tcl_misc.t
==============================================================================
--- trunk/languages/tcl/t/tcl_misc.t (original)
+++ trunk/languages/tcl/t/tcl_misc.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 12;
+use Test::More;
use vars qw($TODO);
my($tcl,$expected);
Modified: trunk/languages/tcl/t/tcl_var_subst.t
==============================================================================
--- trunk/languages/tcl/t/tcl_var_subst.t (original)
+++ trunk/languages/tcl/t/tcl_var_subst.t Sat Jul 23 19:09:00 2005
@@ -3,6 +3,7 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 8;
+use Test::More;
language_output_is("tcl",<<'TCL',<<OUT,"middle");
set a whee
