diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-16 15:45:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-16 15:45:23 (GMT) |
| commit | b01ac0746522d64359d96090059da55f072f236e (patch) | |
| tree | 363a11e659663ecf9217e911cdb6aff66cd6f4ff /tests/cmdAH.test | |
| parent | 664168a98e90f064b75eff8398c662799e9c602a (diff) | |
| parent | 69875ee99d8bc12504eab91f901bd8bfc9272afa (diff) | |
| download | tcl-b01ac0746522d64359d96090059da55f072f236e.zip tcl-b01ac0746522d64359d96090059da55f072f236e.tar.gz tcl-b01ac0746522d64359d96090059da55f072f236e.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 8575a47..f63c868 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -26,6 +26,7 @@ testConstraint linkDirectory [expr { ($::tcl_platform(osVersion) >= 5.0 && [lindex [file system [temporaryDirectory]] 1] eq "NTFS") }] +testConstraint notWine [expr {$::tcl_platform(platform) ne "windows" || ![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}] global env set cmdAHwd [pwd] @@ -1342,7 +1343,7 @@ test cmdAH-25.2.1 {Tcl_FileObjCmd: owned} -constraints unix -setup { test cmdAH-25.3 {Tcl_FileObjCmd: owned} {unix notRoot} { file owned / } 0 -test cmdAH-25.3.1 {Tcl_FileObjCmd: owned} -constraints win -body { +test cmdAH-25.3.1 {Tcl_FileObjCmd: owned} -constraints {win notWine} -body { if {[info exists env(SystemRoot)]} { file owned $env(SystemRoot) } else { @@ -1532,7 +1533,7 @@ test cmdAH-29.4 {Tcl_FileObjCmd: type} -constraints {unix} -setup { } -cleanup { file delete $linkfile } -result link -test cmdAH-29.4.1 {Tcl_FileObjCmd: type} -constraints {linkDirectory} -setup { +test cmdAH-29.4.1 {Tcl_FileObjCmd: type} -constraints {linkDirectory notWine} -setup { set tempdir [makeDirectory temp] } -body { set linkdir [file join [temporaryDirectory] link.dir] |