Artifact
3ae29edb4f092952d6c1ec5df555dfa3dc8471999252f9be05c1a301eaa61daf:
Attachment "patch" to
ticket [9d579f1450]
added by
erikleunissen
2017-12-09 22:27:22.
(unpublished)
--- tcltest.tcl.old 2017-04-12 22:23:56.000000000 +0200
+++ tcltest.tcl.new 2017-12-09 23:04:53.000000000 +0100
@@ -2283,11 +2283,6 @@
if {[string match {*[$\[]*} $constraints] != 0} {
# full expression, e.g. {$foo > [info tclversion]}
catch {set doTest [uplevel #0 [list expr $constraints]]}
- } elseif {[regexp {[^.:_a-zA-Z0-9 \n\r\t]+} $constraints] != 0} {
- # something like {a || b} should be turned into
- # $testConstraints(a) || $testConstraints(b).
- regsub -all {[.\w]+} $constraints {$testConstraints(&)} c
- catch {set doTest [eval [list expr $c]]}
} elseif {![catch {llength $constraints}]} {
# just simple constraints such as {unixOnly fonts}.
set doTest 1