From 44fc04addc852cd4d0bbfa53a44b69679aaa29c2 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 10 Jul 2021 08:27:40 -0700 Subject: suffix functions: new test cases. * tests/018/path.tl: New cases covering dotted name situation, which is not a suffix, but can have a suffix. --- tests/018/path.tl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests/018') diff --git a/tests/018/path.tl b/tests/018/path.tl index 937d2d6e..aaaa6e11 100644 --- a/tests/018/path.tl +++ b/tests/018/path.tl @@ -12,6 +12,7 @@ (short-suffix "a.b.") "." (short-suffix ".c") nil (short-suffix "a.c") ".c" + (short-suffix ".a.c") ".c" (short-suffix "a.b.c") ".c" (short-suffix "foo.txt.gz") ".gz" (short-suffix "txt.gz") ".gz" @@ -34,7 +35,8 @@ (long-suffix ".gz") nil (long-suffix ".txt.gz") ".gz" (long-suffix "/.txt.gz") ".gz" - (long-suffix "a/.txt.gz") ".gz") + (long-suffix "a/.txt.gz") ".gz" + (long-suffix "a/.txt.tar.gz") ".tar.gz") (mtest (short-suffix "/") nil -- cgit v1.2.3