diff options
Diffstat (limited to 'tests/018/path.tl')
| -rw-r--r-- | tests/018/path.tl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/018/path.tl b/tests/018/path.tl index 62dbda6c..7761e0fe 100644 --- a/tests/018/path.tl +++ b/tests/018/path.tl @@ -134,6 +134,25 @@ (trim-long-suffix "/a.//") "/a//") (mtest + (add-suffix "" "") "" + (add-suffix "" "a") "a" + (add-suffix "." "a") ".a" + (add-suffix "." ".a") "..a" + (add-suffix "/" ".b") "/.b" + (add-suffix "//" ".b") "/.b/" + (add-suffix "//" "b") "/b/" + (add-suffix "a" "") "a" + (add-suffix "a" ".b") "a.b" + (add-suffix "a/" ".b") "a.b/" + (add-suffix "a//" ".b") "a.b//" + + (add-suffix "c://" "x") "c:/x/" + (add-suffix "0://" "x") "0:/x/" + (add-suffix "host://" "x") "host://x" + (add-suffix "host:///" "x") "host://x/" + (add-suffix "1234:///" "x") "1234://x/") + +(mtest (base-name "") "" (base-name "/") "/" (base-name ".") "." |