From 180254e6f6124a59d5d2f068eae2848fe1e460ef Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 20 Oct 2021 21:54:57 -0700
Subject: 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.
---
 tests/018/path-equal.tl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'tests')

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)
-- 
cgit v1.2.3