summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-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]