(more) Use correct equality

6 files changed, 9 insertions, 9 deletions

diff --git a/tests/chanio.test b/tests/chanio.test
index a5607e3..a3e507e 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -84,7 +84,7 @@ namespace eval ::tcl::test::io {
 
     set path(cat) [makeFile {
 	set f stdin
-	if {$argv != ""} {
+	if {$argv ne ""} {
 	    set f [open [lindex $argv 0]]
 	}
 	chan configure $f -translation binary -blocking 0 -eofchar \x1A
diff --git a/tests/interp.test b/tests/interp.test
index 1afb846..5cb360a 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -335,7 +335,7 @@ test interp-9.4 {testing aliases and namespace commands} {
     set res
  } {GLOBAL GLOBAL}
 
-if {[info command nonexistent-command-in-parent] != ""} {
+if {[info command nonexistent-command-in-parent] ne ""} {
     rename nonexistent-command-in-parent {}
 }
 
diff --git a/tests/io.test b/tests/io.test
index 7b2d99c..9a8d765 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -78,7 +78,7 @@ close $f
 
 set path(cat) [makeFile {
     set f stdin
-    if {$argv != ""} {
+    if {$argv ne ""} {
 	set f [open [lindex $argv 0]]
     }
     fconfigure $f -translation binary -blocking 0 -eofchar \x1A
@@ -1887,7 +1887,7 @@ test io-13.14 {Translation crlf: \r followed by encoding error after buffer boun
 # Tcl_SetStdChannel and Tcl_GetStdChannel. Incidentally we are
 # also testing channel table management.
 
-if {[info commands testchannel] != ""} {
+if {[info commands testchannel] ne ""} {
     set consoleFileNames [lsort [testchannel open]]
 } else {
     # just to avoid an error
@@ -8767,7 +8767,7 @@ test io-54.2 {Testing for busy-wait in recursive channel events} {socket fileeve
 
 	incr counter
 	set l [gets $s]
-	if {"$l" == ""} {
+	if {"$l" eq ""} {
 	    fileevent $s readable [namespace code "doit1 $s"]
 	    set after [after 1000 [namespace code newline]]
 	}
diff --git a/tests/socket.test b/tests/socket.test
index 08c7793..074175b 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -2451,7 +2451,7 @@ test socket-14.12 {[socket -async] background progress triggered by [fconfigure
 	set s [socket -async localhost [randport]]
 	for {set i 0} {$i < 50} {incr i} {
 	    set x [fconfigure $s -error]
-	    if {$x != ""} break
+	    if {$x ne ""} break
 	    after 200
 	}
 	set x
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test
index 09a34dd..f252c89 100644
--- a/tests/unixFCmd.test
+++ b/tests/unixFCmd.test
@@ -30,10 +30,10 @@ cd [temporaryDirectory]
 set user {}
 if {[testConstraint unix]} {
     catch {set user [exec whoami]}
-    if {$user == ""} {
+    if {$user eq ""} {
 	catch {regexp {^[^(]*\(([^)]*)\)} [exec id] dummy user}
     }
-    if {$user == ""} {
+    if {$user eq ""} {
 	set user "root"
     }
 }
diff --git a/tests/winDde.test b/tests/winDde.test
index ec821da..a893ee1 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -61,7 +61,7 @@ proc createChildProcess {ddeServerName args} {
 	# Define a restricted handler.
 	proc Handler1 {cmd} {
 	    if {$cmd eq "stop"} {set ::done 1}
-	    if {$cmd == ""} {
+	    if {$cmd eq ""} {
 		set cmd "null data"
 	    }
 	    puts $cmd ; flush stdout