diff options
Diffstat (limited to 'tests/018/path.tl')
| -rw-r--r-- | tests/018/path.tl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/tests/018/path.tl b/tests/018/path.tl index 49aebe11..dd22339f 100644 --- a/tests/018/path.tl +++ b/tests/018/path.tl @@ -280,3 +280,41 @@ (pure-rel-path-p "abc/.") t (pure-rel-path-p "abc\\def") t (pure-rel-path-p "abc\\.") t) + +(mtest + (trim-path-seps "") "" + (trim-path-seps "/") "/" + (trim-path-seps "//") "/" + (trim-path-seps "///") "/" + (trim-path-seps "a///") "a" + (trim-path-seps "/a///") "/a") + +(mtest + (trim-path-seps "c:/") "c:/" + (trim-path-seps "c://") "c:/" + (trim-path-seps "c:///") "c:/" + (trim-path-seps "c:a///") "c:a" + (trim-path-seps "/c:/a///") "/c:/a" + (trim-path-seps "/c://///") "/c:") + +(mtest + (trim-path-seps "\\") "\\" + (trim-path-seps "\\\\") "\\" + (trim-path-seps "\\\\\\") "\\" + (trim-path-seps "a\\\\\\") "a" + (trim-path-seps "\\a\\\\\\") "\\a") + +(mtest + (trim-path-seps "c:\\") "c:\\" + (trim-path-seps "c:\\\\") "c:\\" + (trim-path-seps "c:\\\\\\") "c:\\" + (trim-path-seps "c:a\\\\\\") "c:a" + (trim-path-seps "\\c:\\a\\\\\\") "\\c:\\a" + (trim-path-seps "\\c:\\\\\\\\\\") "\\c:") + +(mtest + (trim-path-seps "/c:\\") "/c:" + (trim-path-seps "c:/\\/\\/") "c:/" + (trim-path-seps "c:a\\\\\\") "c:a" + (trim-path-seps "\\c:\\a/\\\\\\") "\\c:\\a" + (trim-path-seps "/c:\\\\\\\\\\") "/c:") |