From 3cbe3674849b7324e410d2e7c6590f08f28ec2e8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 22 Jul 2021 07:42:38 -0700 Subject: pure-rel-path-p: add tests. * tests/018/path.tl: New tests. --- tests/018/path.tl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'tests') 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) -- cgit v1.2.3