From f623859b5ce222f8eb1dafc95008c8f9f3f49b3f Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Thu, 2 Aug 2001 01:20:05 +0000
Subject: 	* tests/parseOld.test: changed some tests that required 
 testwordend to exist to skip in a proper tcltest manner. 	[Bug: #442663]

---
 tests/parseOld.test | 133 ++++++++++++++++++++++++++--------------------------
 1 file changed, 67 insertions(+), 66 deletions(-)

diff --git a/tests/parseOld.test b/tests/parseOld.test
index 9a4ca0e..2c597bc 100644
--- a/tests/parseOld.test
+++ b/tests/parseOld.test
@@ -13,13 +13,16 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: parseOld.test,v 1.9 2000/04/10 17:19:02 ericm Exp $
+# RCS: @(#) $Id: parseOld.test,v 1.10 2001/08/02 01:20:05 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
     namespace import -force ::tcltest::*
 }
 
+tcltest::testConstraint testwordend \
+	[string equal "testwordend" [info commands testwordend]]
+
 proc fourArgs {a b c d} {
     global arg1 arg2 arg3 arg4
     set arg1 $a
@@ -450,71 +453,69 @@ expr 1+1
 ]"
 } {2}
 
-if {[info command testwordend] == "testwordend"} {
-    test parseOld-14.1 {TclWordEnd procedure} {
-	testwordend " 	\n abc"
-    } {c}
-    test parseOld-14.2 {TclWordEnd procedure} {
-	testwordend "   \\\n"
-    } {}
-    test parseOld-14.3 {TclWordEnd procedure} {
-	testwordend "   \\\n "
-    } { }
-    test parseOld-14.4 {TclWordEnd procedure} {
-	testwordend {"abc"}
-    } {"}
-    test parseOld-14.5 {TclWordEnd procedure} {
-	testwordend {{xyz}}
-    } \}
-    test parseOld-14.6 {TclWordEnd procedure} {
-	testwordend {{a{}b{}\}} xyz}
-    } "\} xyz"
-    test parseOld-14.7 {TclWordEnd procedure} {
-	testwordend {abc[this is a]def ghi}
-    } {f ghi}
-    test parseOld-14.8 {TclWordEnd procedure} {
-	testwordend "puts\\\n\n  "
-    } "s\\\n\n  "
-    test parseOld-14.9 {TclWordEnd procedure} {
-	testwordend "puts\\\n   	"
-    } "s\\\n   	"
-    test parseOld-14.10 {TclWordEnd procedure} {
-	testwordend "puts\\\n   	xyz"
-    } "s\\\n   	xyz"
-    test parseOld-14.11 {TclWordEnd procedure} {
-	testwordend {a$x.$y(a long index) foo}
-    } ") foo"
-    test parseOld-14.12 {TclWordEnd procedure} {
-	testwordend {abc; def}
-    } {; def}
-    test parseOld-14.13 {TclWordEnd procedure} {
-	testwordend {abc def}
-    } {c def}
-    test parseOld-14.14 {TclWordEnd procedure} {
-	testwordend {abc	def}
-    } {c	def}
-    test parseOld-14.15 {TclWordEnd procedure} {
-	testwordend "abc\ndef"
-    } "c\ndef"
-    test parseOld-14.16 {TclWordEnd procedure} {
-	testwordend "abc"
-    } {c}
-    test parseOld-14.17 {TclWordEnd procedure} {
-	testwordend "a\000bc"
-    } {c}
-    test parseOld-14.18 {TclWordEnd procedure} {
-	testwordend \[a\000\]
-    } {]}
-    test parseOld-14.19 {TclWordEnd procedure} {
-	testwordend \"a\000\"
-    } {"}
-    test parseOld-14.20 {TclWordEnd procedure} {
-	testwordend a{\000}b
-    } {b}
-    test parseOld-14.21 {TclWordEnd procedure} {
-	testwordend "   \000b"
-    } {b}
-}
+test parseOld-14.1 {TclWordEnd procedure} {testwordend} {
+    testwordend " 	\n abc"
+} {c}
+test parseOld-14.2 {TclWordEnd procedure} {testwordend} {
+    testwordend "   \\\n"
+} {}
+test parseOld-14.3 {TclWordEnd procedure} {testwordend} {
+    testwordend "   \\\n "
+} { }
+test parseOld-14.4 {TclWordEnd procedure} {testwordend} {
+    testwordend {"abc"}
+} {"}
+test parseOld-14.5 {TclWordEnd procedure} {testwordend} {
+    testwordend {{xyz}}
+} \}
+test parseOld-14.6 {TclWordEnd procedure} {testwordend} {
+    testwordend {{a{}b{}\}} xyz}
+} "\} xyz"
+test parseOld-14.7 {TclWordEnd procedure} {testwordend} {
+    testwordend {abc[this is a]def ghi}
+} {f ghi}
+test parseOld-14.8 {TclWordEnd procedure} {testwordend} {
+    testwordend "puts\\\n\n  "
+} "s\\\n\n  "
+test parseOld-14.9 {TclWordEnd procedure} {testwordend} {
+    testwordend "puts\\\n   	"
+} "s\\\n   	"
+test parseOld-14.10 {TclWordEnd procedure} {testwordend} {
+    testwordend "puts\\\n   	xyz"
+} "s\\\n   	xyz"
+test parseOld-14.11 {TclWordEnd procedure} {testwordend} {
+    testwordend {a$x.$y(a long index) foo}
+} ") foo"
+test parseOld-14.12 {TclWordEnd procedure} {testwordend} {
+    testwordend {abc; def}
+} {; def}
+test parseOld-14.13 {TclWordEnd procedure} {testwordend} {
+    testwordend {abc def}
+} {c def}
+test parseOld-14.14 {TclWordEnd procedure} {testwordend} {
+    testwordend {abc	def}
+} {c	def}
+test parseOld-14.15 {TclWordEnd procedure} {testwordend} {
+    testwordend "abc\ndef"
+} "c\ndef"
+test parseOld-14.16 {TclWordEnd procedure} {testwordend} {
+    testwordend "abc"
+} {c}
+test parseOld-14.17 {TclWordEnd procedure} {testwordend} {
+    testwordend "a\000bc"
+} {c}
+test parseOld-14.18 {TclWordEnd procedure} {testwordend} {
+    testwordend \[a\000\]
+} {]}
+test parseOld-14.19 {TclWordEnd procedure} {testwordend} {
+    testwordend \"a\000\"
+} {"}
+test parseOld-14.20 {TclWordEnd procedure} {testwordend} {
+    testwordend a{\000}b
+} {b}
+test parseOld-14.21 {TclWordEnd procedure} {testwordend} {
+    testwordend "   \000b"
+} {b}
 
 test parseOld-15.1 {TclScriptEnd procedure} {
     info complete {puts [
-- 
cgit v0.12