diff options
Diffstat (limited to 'tests/018')
-rw-r--r-- | tests/018/path.tl | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/tests/018/path.tl b/tests/018/path.tl index a00b9465..bb45d000 100644 --- a/tests/018/path.tl +++ b/tests/018/path.tl @@ -8,13 +8,13 @@ (short-suffix "a") nil (short-suffix "a" 0) 0 (short-suffix ".") nil - (short-suffix "a.") "" - (short-suffix "a.b.") "" + (short-suffix "a.") "." + (short-suffix "a.b.") "." (short-suffix ".c") nil - (short-suffix "a.c") "c" - (short-suffix "a.b.c") "c" - (short-suffix "foo.txt.gz") "gz" - (short-suffix "txt.gz") "gz" + (short-suffix "a.c") ".c" + (short-suffix "a.b.c") ".c" + (short-suffix "foo.txt.gz") ".gz" + (short-suffix "txt.gz") ".gz" (short-suffix ".gz") nil) (mtest @@ -25,16 +25,16 @@ (long-suffix "a") nil (long-suffix "a" 0) 0 (long-suffix ".") nil - (long-suffix "a.") "" - (long-suffix "a.b.") "b." + (long-suffix "a.") "." + (long-suffix "a.b.") ".b." (long-suffix ".c") nil - (long-suffix "a.c") "c" - (long-suffix "a.b.c") "b.c" - (long-suffix "foo.txt.gz") "txt.gz" + (long-suffix "a.c") ".c" + (long-suffix "a.b.c") ".b.c" + (long-suffix "foo.txt.gz") ".txt.gz" (long-suffix ".gz") nil - (long-suffix ".txt.gz") "gz" - (long-suffix "/.txt.gz") "gz" - (long-suffix "a/.txt.gz") "gz") + (long-suffix ".txt.gz") ".gz" + (long-suffix "/.txt.gz") ".gz" + (long-suffix "a/.txt.gz") ".gz") (mtest (short-suffix "/") nil @@ -43,12 +43,12 @@ (short-suffix "a/.") nil (short-suffix ".a/") nil (short-suffix ".a/b") nil - (short-suffix ".a/c.b") "b" + (short-suffix ".a/c.b") ".b" (short-suffix ".a/b/") nil (short-suffix ".a/b/.b") nil (short-suffix ".a/b/.b/") nil - (short-suffix ".a/b/c.b") "b" - (short-suffix ".a/b/c.b/") "b" + (short-suffix ".a/b/c.b") ".b" + (short-suffix ".a/b/c.b/") ".b" (short-suffix ".a/b/c.b//") nil) (mtest @@ -61,10 +61,10 @@ (long-suffix ".a/b/") nil (long-suffix ".a/b/.b") nil (long-suffix ".a/b/.b/") nil - (long-suffix ".a/b/c.b") "b" - (long-suffix ".a/b/c.b/") "b" - (long-suffix "a.b/c.d.e") "d.e" - (long-suffix "a.b/c.d.e/") "d.e" + (long-suffix ".a/b/c.b") ".b" + (long-suffix ".a/b/c.b/") ".b" + (long-suffix "a.b/c.d.e") ".d.e" + (long-suffix "a.b/c.d.e/") ".d.e" (long-suffix "a.b/c.d.e/f") nil - (long-suffix "a.b/c.d.e/f.g.h") "g.h" + (long-suffix "a.b/c.d.e/f.g.h") ".g.h" (long-suffix "a.b/c.d.e//") nil) |