Use test constraints properly instead of looking in tcl_platform

Consistent method of calling test constraints, and (try to) move constraint
setup to the top of the test file


FossilOrigin-Name: 36829d55d6ebcac6be4d3d7d887b06650a5b394a

1 files changed, 10 insertions, 13 deletions

diff --git a/tests/parse.test b/tests/parse.test
index 9657951..8989033 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: parse.test,v 1.23 2006/03/06 21:56:34 dgp Exp $
+# RCS: @(#) $Id: parse.test,v 1.24 2006/03/21 11:12:29 dkf Exp $
 
 if {[catch {package require tcltest 2.0.2}]} {
     puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -16,18 +16,15 @@ if {[catch {package require tcltest 2.0.2}]} {
 }
 
 namespace eval ::tcl::test::parse {
-    namespace import ::tcltest::test
-    namespace import ::tcltest::testConstraint
-    namespace import ::tcltest::cleanupTests
-    namespace import ::tcltest::bytestring
+    namespace import ::tcltest::*
 
-    testConstraint testparser [llength [info commands testparser]]
-    testConstraint testevalobjv [llength [info commands testevalobjv]]
-    testConstraint testevalex [llength [info commands testevalex]]
-    testConstraint testparsevarname [llength [info commands testparsevarname]]
-    testConstraint testparsevar [llength [info commands testparsevar]]
-    testConstraint testasync [llength [info commands testasync]]
-    testConstraint testcmdtrace [llength [info commands testcmdtrace]]
+testConstraint testparser [llength [info commands testparser]]
+testConstraint testevalobjv [llength [info commands testevalobjv]]
+testConstraint testevalex [llength [info commands testevalex]]
+testConstraint testparsevarname [llength [info commands testparsevarname]]
+testConstraint testparsevar [llength [info commands testparsevar]]
+testConstraint testasync [llength [info commands testasync]]
+testConstraint testcmdtrace [llength [info commands testcmdtrace]]
 
 test parse-1.1 {Tcl_ParseCommand procedure, computing string length} testparser {
     testparser [bytestring "foo\0 bar"] -1
@@ -1045,7 +1042,7 @@ test parse-19.4 {Bug 1115904: recursion limit in Tcl_EvalEx} -setup {
     interp delete i
 } -returnCodes error -match glob -result {too many nested*}
 
-    cleanupTests
+cleanupTests
 }
 
 namespace delete ::tcl::test::parse