[info exist]->[info exists]. [Bug 602566]

6 files changed, 18 insertions, 18 deletions

diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test
index 37b7f61..457e225 100644
--- a/tests/autoMkindex.test
+++ b/tests/autoMkindex.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: autoMkindex.test,v 1.13 2002/07/01 04:06:51 dgp Exp $
+# RCS: @(#) $Id: autoMkindex.test,v 1.14 2002/10/03 13:34:32 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -104,14 +104,14 @@ proc ::parent::child::test {} {}
 # Save initial state of auto_mkindex_parser
 
 auto_load auto_mkindex
-if {[info exist auto_mkindex_parser::initCommands]} {
+if {[info exists auto_mkindex_parser::initCommands]} {
     set saveCommands $auto_mkindex_parser::initCommands
 }
 proc AutoMkindexTestReset {} {
     global saveCommands
-    if {[info exist saveCommands]} {
+    if {[info exists saveCommands]} {
 	set auto_mkindex_parser::initCommands $saveCommands
-    } elseif {[info exist auto_mkindex_parser::initCommands]} {
+    } elseif {[info exists auto_mkindex_parser::initCommands]} {
 	unset auto_mkindex_parser::initCommands
     }
 }
@@ -344,7 +344,7 @@ removeDirectory pkg
 
 unset result
 AutoMkindexTestReset
-if {[info exist saveCommands]} {
+if {[info exists saveCommands]} {
     unset saveCommands
 }
 rename AutoMkindexTestReset ""
diff --git a/tests/binary.test b/tests/binary.test
index b01ae3c..7fd6871 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: binary.test,v 1.9 2002/02/15 14:28:49 dkf Exp $
+# RCS: @(#) $Id: binary.test,v 1.10 2002/10/03 13:34:32 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -606,7 +606,7 @@ test binary-20.4 {Tcl_BinaryObjCmd: scan} {
 } {1 abc}
 test binary-20.5 {Tcl_BinaryObjCmd: scan} {
     catch {unset arg1}
-    list [binary scan abc a5 arg1] [info exist arg1]
+    list [binary scan abc a5 arg1] [info exists arg1]
 } {0 0}
 test binary-20.6 {Tcl_BinaryObjCmd: scan} {
     set arg1 foo
@@ -645,7 +645,7 @@ test binary-21.4 {Tcl_BinaryObjCmd: scan} {
 } {1 abc}
 test binary-21.5 {Tcl_BinaryObjCmd: scan} {
     catch {unset arg1}
-    list [binary scan abc A5 arg1] [info exist arg1]
+    list [binary scan abc A5 arg1] [info exists arg1]
 } {0 0}
 test binary-21.6 {Tcl_BinaryObjCmd: scan} {
     set arg1 foo
diff --git a/tests/env.test b/tests/env.test
index 5b7c76b..9cc5d1b 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: env.test,v 1.16 2002/07/10 11:56:44 dgp Exp $
+# RCS: @(#) $Id: env.test,v 1.17 2002/10/03 13:34:32 dkf Exp $
 
 package require tcltest 2
 namespace import -force ::tcltest::*
@@ -198,7 +198,7 @@ test env-5.2 {corner cases - unset the env array} {} {
     interp create i 
     i eval { unset env }
     i eval { set env(THIS_SHOULDNT_EXIST) a}
-    set result [info exist env(THIS_SHOULDNT_EXIST)]
+    set result [info exists env(THIS_SHOULDNT_EXIST)]
     interp delete i
     set result
 } {0}
@@ -215,7 +215,7 @@ test env-5.3 {corner cases - unset the env in master should unset child} {} {
     set result
 } {a 1}
 test env-5.4 {corner cases - unset the env array} {} {
-    # The info exist command should be in synch with the env array.
+    # The info exists command should be in synch with the env array.
     # Know Bug: 1737
 
     interp create i 
diff --git a/tests/http.test b/tests/http.test
index 9b4b4d1..9d33802 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -12,7 +12,7 @@
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
 #
-# RCS: @(#) $Id: http.test,v 1.30 2002/09/02 19:27:27 hobbs Exp $
+# RCS: @(#) $Id: http.test,v 1.31 2002/10/03 13:34:32 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -20,7 +20,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 }
 
 if {[catch {package require http 2} version]} {
-    if {[info exist http2]} {
+    if {[info exists http2]} {
 	catch {puts "Cannot load http 2.* package"}
 	return
     } else {
@@ -494,7 +494,7 @@ if {[info exists httpthread]} {
     close $listen
 }
 
-if {[info exist removeHttpd]} {
+if {[info exists removeHttpd]} {
     removeFile $httpdFile
 }
 
diff --git a/tests/httpd b/tests/httpd
index fa553d6..2bef362 100644
--- a/tests/httpd
+++ b/tests/httpd
@@ -75,7 +75,7 @@ proc httpdRead { sock } {
 
 	# Read the query data
 
-	if {![info exist data(length_orig)]} {
+	if {![info exists data(length_orig)]} {
 	    set data(length_orig) $data(length)
 	}
 	set line [read $sock $data(length)]
@@ -103,7 +103,7 @@ proc httpdRead { sock } {
 	}
 	0,mime,POST	{
 	    # Empty line between headers and query data
-	    if {![info exist data(mime,content-length)]} {
+	    if {![info exists data(mime,content-length)]} {
 		httpd_log $sock Error "No Content-Length for POST"
 		httpdError $sock 400
 		httpdSockDone $sock
diff --git a/tests/httpold.test b/tests/httpold.test
index feb555a..9dddbf2 100644
--- a/tests/httpold.test
+++ b/tests/httpold.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: httpold.test,v 1.10 2002/07/05 10:38:42 dkf Exp $
+# RCS: @(#) $Id: httpold.test,v 1.11 2002/10/03 13:34:32 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -19,7 +19,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 }
 
 if {[catch {package require http 1.0}]} {
-    if {[info exist httpold]} {
+    if {[info exists httpold]} {
 	catch {puts "Cannot load http 1.0 package"}
 	::tcltest::cleanupTests
 	return