diff options
| author | Steve Bennett <steveb@workware.net.au> | 2020-04-18 10:40:05 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2020-05-04 21:57:37 +1000 |
| commit | 6b7b6b8c9fb6c203e99847a1114825504599b9f9 (patch) | |
| tree | 7d925901ff77722e73d2432bdfacb8fced239c28 /tests | |
| parent | da82368c816c8d06f425aa3f25a2a918fdba1df1 (diff) | |
| download | jimtcl-6b7b6b8c9fb6c203e99847a1114825504599b9f9.zip jimtcl-6b7b6b8c9fb6c203e99847a1114825504599b9f9.tar.gz jimtcl-6b7b6b8c9fb6c203e99847a1114825504599b9f9.tar.bz2 | |
file: rootname, dirname fixes to match Tcl
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/file.test | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/tests/file.test b/tests/file.test index 049469d..f279206 100644 --- a/tests/file.test +++ b/tests/file.test @@ -122,9 +122,8 @@ test dirname-1.4 "Trailing slash" { } {.} test dirname-1.5 ".." { - # Should be . to match Tcl file dirname .. -} {..} +} {.} test dirname-1.6 "abc/.." { file dirname abc/.. @@ -210,6 +209,14 @@ test rootname-1.6 {file rootname odd cases} -body { file rootname abc/def.c/ghi } -result {abc/def.c/ghi} +test rootname-1.7 {file rootname odd cases} -body { + file rootname abc/def.c/ +} -result {abc/def.c/} + +test rootname-1.8 {file rootname odd cases} -body { + file rootname abc/def.c// +} -result {abc/def.c//} + test readable-1.1 {file readable} { file readable [info script] } {1} |