cvsuser 04/11/26 20:15:34
Modified: languages/tcl/t cmd_proc.t cmd_source.t cmd_string.t
pir_match_close.t tcl_command_subst.t
Log:
Fix for #31732: [TODO] Tcl TODO test
Revision Changes Path
1.3 +2 -4 parrot/languages/tcl/t/cmd_proc.t
Index: cmd_proc.t
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/t/cmd_proc.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cmd_proc.t 15 May 2004 02:26:52 -0000 1.2
+++ cmd_proc.t 27 Nov 2004 04:15:34 -0000 1.3
@@ -2,8 +2,8 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 3; #2
-use Test::More;
+use Parrot::Test tests => 5;
+use vars qw($TODO);
my($tcl,$expected);
@@ -35,7 +35,6 @@
$expected = "2\n3\n";
language_output_is("tcl",$tcl,$expected,"twoarg");
-=for TODO
TODO: {
local $TODO = "not done yet.";
@@ -61,4 +60,3 @@
}
-=cut
1.3 +6 -7 parrot/languages/tcl/t/cmd_source.t
Index: cmd_source.t
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/t/cmd_source.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cmd_source.t 15 May 2004 02:26:52 -0000 1.2
+++ cmd_source.t 27 Nov 2004 04:15:34 -0000 1.3
@@ -2,15 +2,15 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 0; #1
-use Test::More
+use Parrot::Test tests => 1;
+use vars qw($TODO);
-my($tcl,$expected);
-=for TODO
+my($tcl,$expected);
TODO: {
- local $::TODO = "fails when run as .t - running the two tcl files manually
works.";
+ local $TODO = "fails when run as .t - running the two tcl files manually
works.";
+
# prolly not portable, patches welcome.
my $source_file = <<'EOF';
set a 10
@@ -32,7 +32,6 @@
10
EOF
language_output_is("tcl",$tcl,$expected,"simple source");
-unlink($source_filename)
+unlink($source_filename);
}
-=cut
1.2 +3 -4 parrot/languages/tcl/t/cmd_string.t
Index: cmd_string.t
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/t/cmd_string.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- cmd_string.t 22 Sep 2004 12:33:19 -0000 1.1
+++ cmd_string.t 27 Nov 2004 04:15:34 -0000 1.2
@@ -2,7 +2,8 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 24; #1
+use Parrot::Test tests => 25;
+use vars qw($TODO);
my($tcl,$expected);
@@ -96,10 +97,9 @@
$expected = "";
language_output_is("tcl",$tcl,$expected,"index, too far");
-=for TODO
TODO: {
-local $::TODO = "don't handle negative indices yet.";
+local $TODO = "don't handle negative indices yet.";
$tcl = <<'EOTCL';
puts -nonewline [string index abcde -1]
EOTCL
@@ -107,7 +107,6 @@
language_output_is("tcl",$tcl,$expected,"index, too near?");
}
-=cut
$tcl = <<'EOTCL';
puts -nonewline [string length a b]
1.4 +3 -4 parrot/languages/tcl/t/pir_match_close.t
Index: pir_match_close.t
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/t/pir_match_close.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- pir_match_close.t 19 Sep 2004 06:58:54 -0000 1.3
+++ pir_match_close.t 27 Nov 2004 04:15:34 -0000 1.4
@@ -2,7 +2,8 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 3; #1
+use Parrot::Test tests => 5;
+use vars qw($TODO);
my($pir,$expected);
@@ -35,12 +36,10 @@
pir_output_is(match_close(19),-2,"unterminated quote");
pir_output_is(match_close(25),-2,"unterminated brace");
-=for TODO
TODO: {
-local $::TODO = "not sure if this is the right way for these to behave.
research tcl.\n";
+local $TODO = "not sure if this is the right way for these to behave.
research tcl.\n";
pir_output_is(match_close(8),19,"matched quote");
pir_output_is(match_close(25),34,"matched brace");
}
-=cut
1.3 +5 -12 parrot/languages/tcl/t/tcl_command_subst.t
Index: tcl_command_subst.t
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/t/tcl_command_subst.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- tcl_command_subst.t 15 May 2004 02:27:28 -0000 1.2
+++ tcl_command_subst.t 27 Nov 2004 04:15:34 -0000 1.3
@@ -2,7 +2,8 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 5; #3
+use Parrot::Test tests => 8;
+use vars qw($TODO);
my($tcl,$expected);
@@ -27,10 +28,8 @@
$expected = "St[ring Parsing\n";
language_output_is("tcl",$tcl,$expected,"escaped brace");
-=for TODO
-
TODO: {
-local $::TODO = "unknown";
+local $TODO = "unknown";
$tcl = <<'EOTCL';
set a "St\\[ring Parsing"
puts $a
@@ -39,7 +38,6 @@
language_output_is("tcl",$tcl,$expected,"semi-escaped brace");
}
-=cut
$tcl = <<'EOTCL';
set a "St\\\[ring Parsing"
@@ -48,10 +46,8 @@
$expected = "St\\[ring Parsing\n";
language_output_is("tcl",$tcl,$expected,"escaped brace");
-=for TODO
-
TODO: {
-local $::TODO = "unknown";
+local $TODO = "unknown";
$tcl = <<'EOTCL';
set a [set b \[]
puts -nonewline $a
@@ -60,7 +56,6 @@
language_output_is("tcl",$tcl,$expected,"embedded escaped open brace");
}
-=cut
$tcl = <<'EOTCL';
set a [set b \]]
@@ -69,10 +64,9 @@
$expected = "]";
language_output_is("tcl",$tcl,$expected,"embedded escaped close brace");
-=for TODO
TODO: {
-local $::TODO = "borked. needs fixing.";
+local $TODO = "borked. needs fixing.";
$tcl = <<'EOTCL';
set a "2 [set b 3]
puts -nonewline $a
@@ -81,4 +75,3 @@
language_output_is("tcl",$tcl,$expected,"command subst inside string");
}
-=cut
