summaryrefslogtreecommitdiffstats
path: root/tests/cmdMZ.test
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-05-21 22:33:47 (GMT)
committerhobbs <hobbs>2001-05-21 22:33:47 (GMT)
commit399f682a9605590ca8339ed35d64a8cb3c7d5aa6 (patch)
tree1a9e9b2b03a32d5b581cd3b98e48b2280d6d6543 /tests/cmdMZ.test
parent6922b724494c13415113b9004c742f9c940ba439 (diff)
downloadtcl-399f682a9605590ca8339ed35d64a8cb3c7d5aa6.zip
tcl-399f682a9605590ca8339ed35d64a8cb3c7d5aa6.tar.gz
tcl-399f682a9605590ca8339ed35d64a8cb3c7d5aa6.tar.bz2
* tests/cmdMZ.test (cmdMZ-1.4): added notLinux constraint to test
to prevent failure message on Linux due to OS caching bug.
Diffstat (limited to 'tests/cmdMZ.test')
-rw-r--r--tests/cmdMZ.test9
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test
index f3f562e..d2aca4d 100644
--- a/tests/cmdMZ.test
+++ b/tests/cmdMZ.test
@@ -11,12 +11,14 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: cmdMZ.test,v 1.7 2000/04/10 17:18:57 ericm Exp $
+# RCS: @(#) $Id: cmdMZ.test,v 1.8 2001/05/21 22:33:47 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
namespace import -force ::tcltest::*
}
+set tcltest::testConstraints(notLinux) \
+ [expr {![string equal Linux $tcl_platform(os)]}]
# Tcl_PwdObjCmd
@@ -29,7 +31,10 @@ test cmdMZ-1.2 {Tcl_PwdObjCmd: simple pwd} {
test cmdMZ-1.3 {Tcl_PwdObjCmd: simple pwd} {
expr [string length pwd]>0
} 1
-test cmdMZ-1.4 {Tcl_PwdObjCmd: failure} {unixOnly} {
+test cmdMZ-1.4 {Tcl_PwdObjCmd: failure} {unixOnly notLinux} {
+ # We don't want this test to run on Linux because they do a
+ # permissions caching trick which causes this to fail. The
+ # caching is incorrect, but we have no control over that.
file delete -force foo
file mkdir foo
set cwd [pwd]