Attachment "tests.patch" to
ticket [442663ffff]
added by
mdejong
2001-07-19 13:09:34.
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}