diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2020-11-16 10:06:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2020-11-16 10:06:20 (GMT) |
| commit | dac1c2f4f24933af8d0514068a93e9808f74f886 (patch) | |
| tree | a991af2d863a607119d5fe69403d203ff72d9513 /tests/fileSystem.test | |
| parent | d8f5e027e28a3314d9bfbcb056cbe06cf4fe489d (diff) | |
| parent | 106838de02ee97e81b6a945add9138eacbe2c7ba (diff) | |
| download | tcl-dac1c2f4f24933af8d0514068a93e9808f74f886.zip tcl-dac1c2f4f24933af8d0514068a93e9808f74f886.tar.gz tcl-dac1c2f4f24933af8d0514068a93e9808f74f886.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 19066ee..c60d092 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -37,7 +37,9 @@ catch { testConstraint testfilesystem [llength [info commands ::testfilesystem]] testConstraint testsetplatform [llength [info commands ::testsetplatform]] testConstraint testsimplefilesystem [llength [info commands ::testsimplefilesystem]] -testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] +# Some things fail under all Continuous Integration systems for subtle reasons +# such as CI often running with elevated privileges in a container. +testConstraint notInCIenv [expr {![info exists ::env(CI)]}] cd [tcltest::temporaryDirectory] makeFile "test file" gorp.file @@ -316,7 +318,7 @@ test filesystem-1.37 {file normalisation with '/./'} -body { } -match regexp -result {^(?:[^/]|/(?:[^/]|$))+$} test filesystem-1.38 {file normalisation with volume relative} -setup { set dir [pwd] -} -constraints {win moreThanOneDrive knownMsvcBug} -body { +} -constraints {win moreThanOneDrive notInCIenv} -body { set path "[string range [lindex $drives 0] 0 1]foo" cd [lindex $drives 1] file norm $path |