diff options
| author | Steve Bennett <steveb@workware.net.au> | 2019-10-18 07:52:34 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2019-10-18 08:00:08 +1000 |
| commit | 80fea1f6e6c5af588faa9159e165198a13983efe (patch) | |
| tree | e72a2283fb54bf4a753c50c5210e1d5151e24cf4 /tests/file.test | |
| parent | 058d07b597ce088b86e7e8a070bcfa07509f26e1 (diff) | |
| download | jimtcl-80fea1f6e6c5af588faa9159e165198a13983efe.zip jimtcl-80fea1f6e6c5af588faa9159e165198a13983efe.tar.gz jimtcl-80fea1f6e6c5af588faa9159e165198a13983efe.tar.bz2 | |
file: Add file split
This subcommand was missing as it wasn't part of the original Tcl 6.7
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/file.test')
| -rw-r--r-- | tests/file.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/file.test b/tests/file.test index 10211cd..fb5a555 100644 --- a/tests/file.test +++ b/tests/file.test @@ -147,5 +147,10 @@ if {$tcl_platform(platform) eq {windows}} { test file.17 "picol test" {file join foo C:/bar grill} C:/bar/grill } +test file.18 "picol test" {file split {/foo/space station/bar}} {/ foo {space station} bar} +test file.19 "picol test" {file split {/foo/space station/bar/}} {/ foo {space station} bar} +test file.20 "picol test" {file split {foo/space station/bar}} {foo {space station} bar} +test file.21 "picol test" {file split foo///bar} {foo bar} +test file.22 "picol test" {file split foo} foo testreport |