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 | 1dceb3c1a1c20732d54cd4899bda1881fb041572 (patch) | |
| tree | 98c859e436bf3df36a3f5f5d1ec39387d6618372 | |
| parent | e5582c654cdb99a5a7bfdb85b0189f39bbc99991 (diff) | |
| download | txr-1dceb3c1a1c20732d54cd4899bda1881fb041572.tar.gz txr-1dceb3c1a1c20732d54cd4899bda1881fb041572.tar.bz2 txr-1dceb3c1a1c20732d54cd4899bda1881fb041572.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.
| -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 |