Index: tests/fCmd.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/fCmd.test,v
retrieving revision 1.9
diff -u -r1.9 fCmd.test
--- tests/fCmd.test	2000/09/29 01:12:14	1.9
+++ tests/fCmd.test	2001/07/19 06:00:26
@@ -18,7 +18,7 @@
     namespace import -force ::tcltest::*
 }
 
-if {[string compare testgetplatform [info commands testgetplatform]] != 0} {
+if {[info commands testgetplatform] == {}} {
     puts "This application hasn't been compiled with the \"testgetplatform\""
     puts "command, therefore I am skipping all of these tests."
     ::tcltest::cleanupTests
@@ -27,7 +27,7 @@
 
 set platform [testgetplatform]
 
-if {"[info commands testchmod]" != "testchmod"} {
+if {[info commands testchmod] == {}} {
     puts "Skipping fCmd tests. This application does not seem to have the"
     puts "testchmod command that is needed to run these tests."
     ::tcltest::cleanupTests
@@ -1744,7 +1744,7 @@
     exec ln -s tfa1 tfalink
     file delete tfa1 
     file rename tfalink tfa2
-    set result [expr [string compare [file type tfa2] "link"] == 0]
+    set result [string equal [file type tfa2] "link"]
     file delete tfa2
     set result
 } {1}
Index: tests/parseOld.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/parseOld.test,v
retrieving revision 1.9
diff -u -r1.9 parseOld.test
--- tests/parseOld.test	2000/04/10 17:19:02	1.9
+++ tests/parseOld.test	2001/07/19 06:00:26
@@ -450,7 +450,10 @@
 ]"
 } {2}
 
-if {[info command testwordend] == "testwordend"} {
+if {[info command testwordend] == ""} {
+    puts "This application hasn't been compiled with the testwordend command"
+    puts "therefore I am skipping the tests that require it."
+} else {
     test parseOld-14.1 {TclWordEnd procedure} {
 	testwordend " 	\n abc"
     } {c}
 
