Author: coke
Date: Mon Jul 21 14:52:40 2008
New Revision: 29657
Modified:
trunk/languages/tcl/config/makefiles/root.in
trunk/languages/tcl/lib/skipped_tests.tcl
trunk/languages/tcl/lib/test_more.tcl
trunk/languages/tcl/runtime/builtin/vwait.pir
Log:
[tcl] Improve the state of fudged tests for the spec test.
* eliminate the 'parsed but failing' category of tests. We can manage all
that through lib/skipped_tests.tcl, and it doesn't need to be in the Makefile
* Still a few that take forever or blow up.
* Removing old [vwait] implementation that seems to hang, leaving a simple
version that just does args checking for now.
Modified: trunk/languages/tcl/config/makefiles/root.in
==============================================================================
--- trunk/languages/tcl/config/makefiles/root.in (original)
+++ trunk/languages/tcl/config/makefiles/root.in Mon Jul 21 14:52:40 2008
@@ -158,144 +158,141 @@
t_tcl/append.t \
t_tcl/appendComp.t \
t_tcl/apply.t \
+ t_tcl/assocd.t \
+ t_tcl/async.t \
+ t_tcl/autoMkindex.t \
t_tcl/basic.t \
t_tcl/binary.t \
+ t_tcl/case.t \
+ t_tcl/chan.t \
+ t_tcl/clock.t \
t_tcl/cmdAH.t \
t_tcl/cmdIL.t \
+ t_tcl/cmdInfo.t \
t_tcl/cmdMZ.t \
- t_tcl/compExpr_old.t \
t_tcl/compExpr.t \
+ t_tcl/compExpr_old.t \
t_tcl/compile.t \
t_tcl/concat.t \
+ t_tcl/config.t \
+ t_tcl/dcall.t \
t_tcl/dict.t \
+ t_tcl/dstring.t \
+ t_tcl/encoding.t \
t_tcl/env.t \
t_tcl/error.t \
t_tcl/eval.t \
+ t_tcl/event.t \
+ t_tcl/exec.t \
t_tcl/execute.t \
- t_tcl/expr_old.t \
t_tcl/expr.t \
+ t_tcl/expr_old.t \
+ t_tcl/fCmd.t \
t_tcl/fileName.t \
- t_tcl/for_old.t \
+ t_tcl/fileSystem.t \
t_tcl/for.t \
+ t_tcl/for_old.t \
t_tcl/foreach.t \
t_tcl/format.t \
t_tcl/get.t \
- t_tcl/if_old.t \
+ t_tcl/history.t \
t_tcl/if.t \
- t_tcl/incr_old.t \
+ t_tcl/if_old.t \
t_tcl/incr.t \
+ t_tcl/incr_old.t \
+ t_tcl/indexObj.t \
t_tcl/info.t \
+ t_tcl/init.t \
+ t_tcl/interp.t \
t_tcl/ioCmd.t \
+ t_tcl/ioUtil.t \
+ t_tcl/iogt.t \
t_tcl/join.t \
t_tcl/lindex.t \
+ t_tcl/link.t \
t_tcl/linsert.t \
t_tcl/list.t \
t_tcl/listObj.t \
t_tcl/llength.t \
+ t_tcl/load.t \
t_tcl/lrange.t \
t_tcl/lrepeat.t \
t_tcl/lreplace.t \
t_tcl/lsearch.t \
t_tcl/lset.t \
t_tcl/lsetComp.t \
+ t_tcl/macOSXFCmd.t \
+ t_tcl/macOSXLoad.t \
+ t_tcl/main.t \
+ t_tcl/mathop.t \
+ t_tcl/misc.t \
+ t_tcl/msgcat.t \
t_tcl/namespace.t \
t_tcl/namespace_old.t \
+ t_tcl/notify.t \
+ t_tcl/obj.t \
+ t_tcl/opt.t \
t_tcl/package.t \
t_tcl/parse.t \
+ t_tcl/parseExpr.t \
t_tcl/parseOld.t \
+ t_tcl/pid.t \
+ t_tcl/pkg.t \
+ t_tcl/pkgMkIndex.t \
t_tcl/platform.t \
- t_tcl/proc_old.t \
t_tcl/proc.t \
+ t_tcl/proc_old.t \
t_tcl/pwd.t \
+ t_tcl/reg.t \
t_tcl/regexp.t \
t_tcl/regexpComp.t \
+ t_tcl/registry.t \
t_tcl/rename.t \
+ t_tcl/result.t \
+ t_tcl/safe.t \
t_tcl/scan.t \
t_tcl/security.t \
- t_tcl/set_old.t \
t_tcl/set.t \
+ t_tcl/set_old.t \
+ t_tcl/socket.t \
+ t_tcl/source.t \
t_tcl/split.t \
+ t_tcl/stack.t \
t_tcl/string.t \
t_tcl/stringComp.t \
t_tcl/subst.t \
t_tcl/switch.t \
- t_tcl/unknown.t \
- t_tcl/uplevel.t \
- t_tcl/upvar.t \
- t_tcl/util.t \
- t_tcl/var.t \
- t_tcl/while_old.t \
- t_tcl/while.t
-
-# These tests parse, or fail (or skip) every (or nearly every) test.
-FAILING_TCL_TESTS = \
- t_tcl/assocd.t \
- t_tcl/case.t \
- t_tcl/chan.t \
- t_tcl/clock.t \
- t_tcl/cmdInfo.t \
- t_tcl/config.t \
- t_tcl/dcall.t \
- t_tcl/dstring.t \
- t_tcl/event.t \
- t_tcl/exec.t \
- t_tcl/history.t \
- t_tcl/indexObj.t \
- t_tcl/init.t \
- t_tcl/interp.t \
- t_tcl/ioUtil.t \
- t_tcl/link.t \
- t_tcl/load.t \
- t_tcl/macOSXFCmd.t \
- t_tcl/main.t \
- t_tcl/mathop.t \
- t_tcl/misc.t \
- t_tcl/notify.t \
- t_tcl/obj.t \
- t_tcl/parseExpr.t \
- t_tcl/pid.t \
- t_tcl/pkg.t \
- t_tcl/registry.t \
- t_tcl/result.t \
- t_tcl/socket.t \
- t_tcl/source.t \
- t_tcl/stack.t \
+ t_tcl/tcltest.t \
t_tcl/thread.t \
+ t_tcl/timer.t \
t_tcl/tm.t \
t_tcl/trace.t \
t_tcl/unixFCmd.t \
t_tcl/unixFile.t \
+ t_tcl/unixInit.t \
t_tcl/unixNotfy.t \
+ t_tcl/unknown.t \
t_tcl/unload.t \
+ t_tcl/uplevel.t \
+ t_tcl/upvar.t \
t_tcl/utf.t \
+ t_tcl/util.t \
+ t_tcl/var.t \
+ t_tcl/while.t \
+ t_tcl/while_old.t \
t_tcl/winConsole.t \
t_tcl/winDde.t \
t_tcl/winFCmd.t \
+ t_tcl/winFile.t \
t_tcl/winNotify.t \
t_tcl/winPipe.t \
t_tcl/winTime.t
DYING_TCL_TESTS = \
- t_tcl/async.t \
- t_tcl/autoMkindex.t \
- t_tcl/encoding.t \
- t_tcl/fCmd.t \
- t_tcl/fileSystem.t \
t_tcl/http.t \
t_tcl/httpold.t \
t_tcl/io.t \
- t_tcl/iogt.t \
- t_tcl/msgcat.t \
- t_tcl/macOSXLoad.t \
- t_tcl/opt.t \
- t_tcl/pkgMkIndex.t \
- t_tcl/reg.t \
- t_tcl/safe.t \
- t_tcl/stringObj.t \
- t_tcl/tcltest.t \
- t_tcl/timer.t \
- t_tcl/unixInit.t \
- t_tcl/winFile.t
+ t_tcl/stringObj.t
tcl-test: t_tcl tcl.pbc
# For now, just test the ones that ``work'' with test_more
Modified: trunk/languages/tcl/lib/skipped_tests.tcl
==============================================================================
--- trunk/languages/tcl/lib/skipped_tests.tcl (original)
+++ trunk/languages/tcl/lib/skipped_tests.tcl Mon Jul 21 14:52:40 2008
@@ -231,15 +231,28 @@
# stored as an array of test name -> reason pairs.
array set abort_after {
+ async-3.1 {we're too slow to or too stupid to get by hang1}
+ autoMkindex-5.2 {invalid command name "cd"}
basic-47.1 {need interp before these can work}
cmdAH-31.13 {invalid command name "cd"}
cmdMZ-5.7 {invalid command name "cleanupTests"}
+ encoding-11.4 {wrong # args: should be "string is class ?-strict?
?-failindex var? str"}
env-1.3 {can't read "env(test)" no such element in array}
event-4.2 {invalid command name "update"}
+ fCmd-1.1 {}
filename-11.13 {invalid command name "cd"}
iocmd-12.8 {invalid command name "close"}
+ iogt-1.1 {}
ioUtil-2.8 {invalid command name "cd"}
+ msgcat-0.0 {}
+ opt-1.1 {don't have the opt package available}
+ pkgMkIndex-4.2 {invalid command name "pkg_mkIndex"}
parse-19.4 {invalid command name "cleanupTests"}
- utf-1.4 {Invalid character for UTF-8 encoding}
+ reg-0.1 {invalid command name "doing"}
+ safe-1.1 {}
source-7.6 {invalid command name "cleanupTests"}
+ timer-1.1 {}
+ tcltest-1.1 {}
+ utf-1.4 {Invalid character for UTF-8 encoding}
+ unixInit-1.1 {}
}
Modified: trunk/languages/tcl/lib/test_more.tcl
==============================================================================
--- trunk/languages/tcl/lib/test_more.tcl (original)
+++ trunk/languages/tcl/lib/test_more.tcl Mon Jul 21 14:52:40 2008
@@ -164,7 +164,7 @@
# when we shouldn't.
proc testConstraint {args} {return 0}
-proc temporaryDirectory {args} {return 0}
+proc temporaryDirectory {args} {return .}
proc makeFile {args} {return 0}
proc removeFile {args} {return 0}
proc bytestring {args} {return 0}
@@ -174,6 +174,7 @@
proc interp {args} {return 0}
proc safeInterp {args} {return 0}
proc pid {args} {return 0}
+proc auto_load {args} {return 0}
proc child {args} {return 0}
proc child-trusted {args} {return 0}
proc makeDirectory {args} {return 0}
@@ -181,8 +182,20 @@
proc testobj {args} {return 0}
proc testsetplatform {args} {return 0}
proc testevalex {cmd} { uplevel {*}$cmd }
+proc cleanupTests {args} {return 0}
+proc PowerSet {args} {return 0}
-namespace eval tcltest {
+set auto_path {}
+
+namespace eval tcl {
+ set OptDescN 0
+}
+
+namespace eval tcltest {
set verbose 0
- proc temporaryDirectory {args} {return 0}
+ set testSingleFile 0
+ set temporaryDirectory .
+ proc temporaryDirectory {args} {return .}
+ proc testConstraint {args} {return 0}
+ proc test {args} {return [::test {*}$args]}
}
Modified: trunk/languages/tcl/runtime/builtin/vwait.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/vwait.pir (original)
+++ trunk/languages/tcl/runtime/builtin/vwait.pir Mon Jul 21 14:52:40 2008
@@ -8,33 +8,6 @@
argc = elements args
if argc != 1 goto badargs
-
- .local pmc __read, events
- .local string name
- __read = get_root_global ['_tcl'], '__read'
- events = get_root_global ['_tcl'], 'events'
- name = args[0]
-
-outer:
- .local pmc iter, var
- iter = new 'Iterator', events
- push_eh inner
- var = __read(name)
- pop_eh
- goto done
-
-inner:
- unless iter goto outer
- $P0 = shift iter
-
- .local pmc channel, script
- channel = $P0[0]
- script = $P0[1]
- unless $P0 goto inner
- script()
- goto inner
-
-done:
.return('')
badargs:
