diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-10-20 21:54:57 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-10-20 21:54:57 -0700 |
| commit | 180254e6f6124a59d5d2f068eae2848fe1e460ef (patch) | |
| tree | d7558bc061d6d7f51fc37fb02fec56b1a1040b11 /tests/018 | |
| parent | 8470998547f1d3ad33795b0f99ad4507f107e6bd (diff) | |
| download | txr-180254e6f6124a59d5d2f068eae2848fe1e460ef.tar.gz txr-180254e6f6124a59d5d2f068eae2848fe1e460ef.tar.bz2 txr-180254e6f6124a59d5d2f068eae2848fe1e460ef.zip | |
path-equal: enable and fix failing tests.
* stdlib/copy-file.tl (path-simplify): If the incoming path's
first component is "", it is absolute; in that case swallow
any components that go above.
* tests/018/path-equal.tl: Uncomment two previously failing
tests.
Diffstat (limited to 'tests/018')
| -rw-r--r-- | tests/018/path-equal.tl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/018/path-equal.tl b/tests/018/path-equal.tl index cf1fbb63..704c414a 100644 --- a/tests/018/path-equal.tl +++ b/tests/018/path-equal.tl @@ -13,6 +13,5 @@ (path-equal "a" "a/././.") t (path-equal "a/." "a/././.") t - ;;(path-equal "/.." "/") t - ;;(path-equal "/../a" "/a/") t - ) + (path-equal "/.." "/") t + (path-equal "/../a" "/a/") t) |