diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-22 07:42:38 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-22 07:42:38 -0700 |
| commit | 3cbe3674849b7324e410d2e7c6590f08f28ec2e8 (patch) | |
| tree | a18bb39ccc888ed451a9f3ff438a84870f93562d /tests/018 | |
| parent | cddd91863740e560ae95ccdd2be5aa0e128713ed (diff) | |
| download | txr-3cbe3674849b7324e410d2e7c6590f08f28ec2e8.tar.gz txr-3cbe3674849b7324e410d2e7c6590f08f28ec2e8.tar.bz2 txr-3cbe3674849b7324e410d2e7c6590f08f28ec2e8.zip | |
pure-rel-path-p: add tests.
* tests/018/path.tl: New tests.
Diffstat (limited to 'tests/018')
| -rw-r--r-- | tests/018/path.tl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/018/path.tl b/tests/018/path.tl index 6a5c69ee..49aebe11 100644 --- a/tests/018/path.tl +++ b/tests/018/path.tl @@ -257,3 +257,26 @@ (portable-abs-path-p "0:/abc") t (portable-abs-path-p "AB0:/abc") t (portable-abs-path-p "cd5:/abc") t) + +(mtest + (pure-rel-path-p "") t + (pure-rel-path-p "/") nil + (pure-rel-path-p "\\") nil + (pure-rel-path-p "/abc") nil + (pure-rel-path-p ".") nil + (pure-rel-path-p "./") nil + (pure-rel-path-p ".\\") nil + (pure-rel-path-p ".abc") t + (pure-rel-path-p ".abc/") t + (pure-rel-path-p ".abc\\") t + (pure-rel-path-p ":") t + (pure-rel-path-p "a:") nil + (pure-rel-path-p "A:") nil + (pure-rel-path-p "0:") nil + (pure-rel-path-p "9:") nil + (pure-rel-path-p "_:") t + (pure-rel-path-p "abc") t + (pure-rel-path-p "abc/def") t + (pure-rel-path-p "abc/.") t + (pure-rel-path-p "abc\\def") t + (pure-rel-path-p "abc\\.") t) |