diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-10 08:27:40 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-10 08:27:40 -0700 |
| commit | 44fc04addc852cd4d0bbfa53a44b69679aaa29c2 (patch) | |
| tree | 98c859e436bf3df36a3f5f5d1ec39387d6618372 /tests | |
| parent | fa1b64f6d0f145cfa059fc9cdb1427c661aef387 (diff) | |
| download | txr-44fc04addc852cd4d0bbfa53a44b69679aaa29c2.tar.gz txr-44fc04addc852cd4d0bbfa53a44b69679aaa29c2.tar.bz2 txr-44fc04addc852cd4d0bbfa53a44b69679aaa29c2.zip | |
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.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/018/path.tl | 4 |
1 files changed, 3 insertions, 1 deletions
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 |