From 9a04cf49cff438cef40df6ed464bea81b3fc222f Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Mon, 20 Mar 2006 15:44:28 +0000
Subject: Clean up constraint handling

---
 tests/result.test | 16 +++++-----------
 1 file 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
-- 
cgit v0.12