diff options
| author | davygrvy <davygrvy@pobox.com> | 2004-11-07 20:56:29 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2004-11-07 20:56:29 (GMT) |
| commit | 63d837248f1f00479dcfb1c3a8b5d73e7af30907 (patch) | |
| tree | f2a9f3d40405523d6094e005a5d7e3cbd7a84ec3 /tests/winFile.test | |
| parent | 880991033bb1fef9bb330fd557f5639495f90e71 (diff) | |
| download | tcl-63d837248f1f00479dcfb1c3a8b5d73e7af30907.zip tcl-63d837248f1f00479dcfb1c3a8b5d73e7af30907.tar.gz tcl-63d837248f1f00479dcfb1c3a8b5d73e7af30907.tar.bz2 | |
* tests/winFile.test: added contraint to winFile-4.0 to prevent it being run on NT4
Diffstat (limited to 'tests/winFile.test')
| -rw-r--r-- | tests/winFile.test | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/winFile.test b/tests/winFile.test index 1bfddff..65c531f 100644 --- a/tests/winFile.test +++ b/tests/winFile.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: winFile.test,v 1.14 2004/06/23 15:36:59 dkf Exp $ +# RCS: @(#) $Id: winFile.test,v 1.15 2004/11/07 20:56:29 davygrvy Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." @@ -26,6 +26,12 @@ if {[info commands ::testvolumetype] == ""} { } else { tcltest::testConstraint notNTFS 1 } + if {[string equal $::tcl_platform(os) "Windows NT"] && + $::tcl_platform(osVersion) >= 5.0} { + tcltest::testConstraint win2K+ 1 + } else { + tcltest::testConstraint win2K+ 0 + } } test winFile-1.1 {TclpGetUserHome} {win} { @@ -160,7 +166,7 @@ close [open $fname w] test winFile-4.0 { Enhanced NTFS user/group permissions: test no acccess } -constraints { - win nt notNTFS + win nt notNTFS win2K+ } -setup { set owner [getuser $fname] set user $::env(USERDOMAIN)\\$::env(USERNAME) |