diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-21 13:13:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-21 13:13:02 (GMT) |
| commit | 49c9b2444c871d10db7b756b17827f435d5f96d1 (patch) | |
| tree | ed95169d30f9b63986bf79d1e61120ed49eac91a /tests | |
| parent | ac4769c769196e5d84ab0a23286bec5e216f67cd (diff) | |
| parent | 289ab3d6335f6ab2fb808df9f94319f471013eac (diff) | |
| download | tcl-49c9b2444c871d10db7b756b17827f435d5f96d1.zip tcl-49c9b2444c871d10db7b756b17827f435d5f96d1.tar.gz tcl-49c9b2444c871d10db7b756b17827f435d5f96d1.tar.bz2 | |
rebase to 8.7
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cmdAH.test | 10 | ||||
| -rw-r--r-- | tests/fileName.test | 6 | ||||
| -rw-r--r-- | tests/fileSystem.test | 6 |
3 files changed, 11 insertions, 11 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index a734541..33dce33 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -439,19 +439,19 @@ test cmdAH-8.13 {Tcl_FileObjCmd: dirname} testsetplatform { test cmdAH-8.14 {Tcl_FileObjCmd: dirname} testsetplatform { testsetplatform unix file dirname //foo -} / +} //foo test cmdAH-8.15 {Tcl_FileObjCmd: dirname} testsetplatform { testsetplatform unix file dirname //foo/bar -} /foo +} //foo test cmdAH-8.16 {Tcl_FileObjCmd: dirname} testsetplatform { testsetplatform unix file dirname {//foo\/bar/baz} -} {/foo\/bar} +} {//foo\/bar} test cmdAH-8.17 {Tcl_FileObjCmd: dirname} testsetplatform { testsetplatform unix file dirname {//foo\/bar/baz/blat} -} {/foo\/bar/baz} +} {//foo\/bar/baz} test cmdAH-8.18 {Tcl_FileObjCmd: dirname} testsetplatform { testsetplatform unix file dirname /foo// @@ -583,7 +583,7 @@ test cmdAH-9.13 {Tcl_FileObjCmd: tail} testsetplatform { test cmdAH-9.14 {Tcl_FileObjCmd: tail} testsetplatform { testsetplatform unix file tail //foo -} foo +} {} test cmdAH-9.15 {Tcl_FileObjCmd: tail} testsetplatform { testsetplatform unix file tail //foo/bar diff --git a/tests/fileName.test b/tests/fileName.test index 04273d7..575a17f 100644 --- a/tests/fileName.test +++ b/tests/fileName.test @@ -201,7 +201,7 @@ test filename-4.12 {Tcl_SplitPath: unix} {testsetplatform} { test filename-4.13 {Tcl_SplitPath: unix} {testsetplatform} { testsetplatform unix file split //foo -} "/ foo" +} "//foo" test filename-4.14 {Tcl_SplitPath: unix} {testsetplatform} { testsetplatform unix file split foo//bar @@ -438,14 +438,14 @@ test filename-7.16 {Tcl_JoinPath: unix} {testsetplatform} { test filename-7.17 {Tcl_JoinPath: unix} {testsetplatform} { testsetplatform unix file join //a b -} "/a/b" +} "//a/b" test filename-7.18 {Tcl_JoinPath: unix} {testsetplatform} { testsetplatform unix file join /// a b } "/a/b" test filename-7.19 {[Bug f34cf83dd0]} { file join foo //bar -} /bar +} //bar test filename-9.1 {Tcl_JoinPath: win} {testsetplatform} { testsetplatform win diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 0b53be5..2bbf981 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -379,13 +379,13 @@ test filesystem-1.51 {file normalisation .. beyond root (Bug 1379287)} { test filesystem-1.51.1 {file normalisation .. beyond root (Bug 1379287)} { testPathEqual [file norm /../../] [file norm /] } ok -test filesystem-1.52 {bug f9f390d0fa: file join where strep is not canonical} -constraints unix -body { - set x //foo +test filesystem-1.52 {bug f9f390d0fa: file join where strep is not canonical} -body { + set x ///foo file normalize $x file join $x bar } -result /foo/bar test filesystem-1.52.1 {bug f9f390d0fa: file join where strep is not canonical} -body { - set x //foo + set x ///foo file normalize $x file join $x } -result /foo |