[svn:parrot] rev 8402 - trunk/languages/tcl/t

[coke]

Author: coke
Date: Thu Jun 16 13:49:39 2005
New Revision: 8402

Modified:
   trunk/languages/tcl/t/cmd_break.t
   trunk/languages/tcl/t/cmd_continue.t
Log:
Mark known failures as TODOs.



Modified: trunk/languages/tcl/t/cmd_break.t
==============================================================================
--- trunk/languages/tcl/t/cmd_break.t   (original)
+++ trunk/languages/tcl/t/cmd_break.t   Thu Jun 16 13:49:39 2005
@@ -3,6 +3,7 @@
 use strict;
 use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
 use Parrot::Test tests => 2;
+use vars qw($TODO);
 
 my($tcl,$expected);
 
@@ -15,6 +16,9 @@ EOTCL
 $expected = "11\n";
 language_output_is("tcl",$tcl,$expected,"break from for");
 
+TODO: {
+local $TODO = "GC BUG! FIX IT! FIIIIIX IT!";
+
 $tcl = <<'EOTCL';
  set a 20
  while {$a} {
@@ -25,3 +29,4 @@ $tcl = <<'EOTCL';
 EOTCL
 $expected = "9\n";
 language_output_is("tcl",$tcl,$expected,"break from while");
+}

Modified: trunk/languages/tcl/t/cmd_continue.t
==============================================================================
--- trunk/languages/tcl/t/cmd_continue.t        (original)
+++ trunk/languages/tcl/t/cmd_continue.t        Thu Jun 16 13:49:39 2005
@@ -3,6 +3,7 @@
 use strict;
 use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
 use Parrot::Test tests => 2;
+use vars qw($TODO);
 
 my($tcl,$expected);
 
@@ -24,6 +25,9 @@ $expected = <<EOF;
 EOF
 language_output_is("tcl",$tcl,$expected,"continue from for");
 
+TODO: {
+local $TODO = "GC BUG! FIX IT! FIIIIIX IT!";
+
 $tcl = <<'EOTCL';
  set a 0
  while {$a <= 10} {
@@ -46,4 +50,4 @@ $expected = <<EOF;
 11
 EOF
 language_output_is("tcl",$tcl,$expected,"continue from while");
-
+}