summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-03-20 15:44:28 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-03-20 15:44:28 (GMT)
commit9a04cf49cff438cef40df6ed464bea81b3fc222f (patch)
tree654e7bd7bc9abb8f8231b5ae1fb183417954cb5f
parent4749a2ccca65ed1543504717b225e5e3641395c8 (diff)
downloadtcl-9a04cf49cff438cef40df6ed464bea81b3fc222f.zip
tcl-9a04cf49cff438cef40df6ed464bea81b3fc222f.tar.gz
tcl-9a04cf49cff438cef40df6ed464bea81b3fc222f.tar.bz2
Clean up constraint handling
-rw-r--r--tests/result.test16
1 files changed, 5 insertions, 11 deletions
diff --git a/tests/result.test b/tests/result.test
index 4337ef3..fa21bf7 100644
--- a/tests/result.test
+++ b/tests/result.test
@@ -19,8 +19,10 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
# Some tests require the testsaveresult command
-::tcltest::testConstraint testsaveresult \
- [expr {[info commands testsaveresult] != {}}]
+testConstraint testsaveresult [llength [info commands testsaveresult]]
+testConstraint testsetobjerrorcode [llength [info commands testsetobjerrorcode]]
+testConstraint testseterrorcode [llength [info commands testseterrorcode]]
+testConstraint testreturn [llength [info commands testreturn]]
test result-1.1 {Tcl_SaveInterpResult} {testsaveresult} {
testsaveresult small {set x 42} 0
@@ -65,9 +67,6 @@ test result-3.2 {Tcl_DiscardInterpResult} {testsaveresult} {
testsaveresult free {set x 42} 1
} {42}
-::tcltest::testConstraint testsetobjerrorcode \
- [expr {[info commands testsetobjerrorcode] != {}}]
-
test result-4.1 {Tcl_SetObjErrorCode - one arg} {testsetobjerrorcode} {
catch {testsetobjerrorcode 1}
list [set errorCode]
@@ -89,9 +88,6 @@ test result-4.5 {Tcl_SetObjErrorCode - five args} {testsetobjerrorcode} {
list [set errorCode]
} {{1 2 3 4 5}}
-::tcltest::testConstraint testseterrorcode \
- [expr {[info commands testseterrorcode] != {}}]
-
test result-5.1 {Tcl_SetErrorCode - one arg} testseterrorcode {
catch {testseterrorcode 1}
set errorCode
@@ -109,8 +105,6 @@ test result-5.4 {Tcl_SetErrorCode - two args, list quoting} testseterrorcode {
set errorCode
} {{a b} c}
-::tcltest::testConstraint testreturn \
- [expr {[info commands testreturn] != {}}]
test result-6.0 {Bug 1209759} -constraints testreturn -body {
# Might panic if bug is not fixed.
proc foo {} {testreturn}
@@ -123,5 +117,5 @@ test result-6.1 {Bug 1209759} -constraints testreturn -body {
} -returnCodes ok -result {}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return