[svn:parrot] r29821 - trunk/languages/tcl/lib

[coke]

Author: coke
Date: Sun Jul 27 20:40:12 2008
New Revision: 29821

Modified:
   trunk/languages/tcl/lib/skipped_tests.tcl

Log:
[tcl] TODO more tests from the spec test cmdMZ.test



Modified: trunk/languages/tcl/lib/skipped_tests.tcl
==============================================================================
--- trunk/languages/tcl/lib/skipped_tests.tcl   (original)
+++ trunk/languages/tcl/lib/skipped_tests.tcl   Sun Jul 27 20:40:12 2008
@@ -28,6 +28,7 @@
     lset-1.3 lset-5.[12]
   } {stacktrace support} {
     apply-2.[2345] apply-5.1
+    cmdMZ-return-2.10 cmdMZ-5.7
     if-5.3 if-6.4
     incr-2.3[01]
     incr-old-2.[45]
@@ -64,6 +65,8 @@
     parseExpr-15.30 parseExpr-16.[12345789] parseExpr-16.11[ab]
     parseExpr-16.1[03456789] parseExpr-16.2[0123456789]
     parseExpr-16.3[012456789] parseExpr-16.4[0123] parseExpr-17.1
+  } {tcltest - [makeFile]} {
+    cmdMZ-3.6
   } {[apply]} {
     apply-[4678].*
   } {http://code.google.com/p/partcl/issues/detail?id=2} {
@@ -97,9 +100,16 @@
     cmdIL-4.[145] cmdIL-4.1[27] cmdIL-4.2[089] cmdIL-4.3[0123]
   } {[lsort] misc} {
     cmdIL-4.2[45]
+  } {[file] misc} {
+    cmdMZ-1.4
+  } {[return] options} {
+    cmdMZ-return-2.[0123] cmdMZ-return-2.11 cmdMZ-return-3.*
+  } {reset $errorCode} {
+    cmdMZ-4.[12]
   }
 ]
 
+
 set skip_tests [dict create \
   BOOM {
     namespace-7.7
@@ -108,7 +118,6 @@
     stringComp-5.14 stringComp-5.15 stringComp-5.16 stringComp-9.7
   } {stacktrace support} {
     basic-46.1
-    cmdMZ-return-2.10 cmdMZ-3.5 cmdMZ-5.7
     dict-14.12 dict-17.13
     error-1.3 error-2.3 error-2.6 error-4.2 error-4.3 error-4.4
     eval-2.5
@@ -279,7 +288,6 @@
   case-1.1             {}
   cmdAH-31.13          {invalid command name "cd"}
   cmdinfo-1.1          {}
-  cmdMZ-5.7            {invalid command name "cleanupTests"}
   dcall-1.1            {}
   dstring-1.1          {}
   encoding-1.1         {}