From 6d205f00ea87365263edb79b094e95a14fdf3046 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Mon, 29 Jan 2024 17:38:10 +0100 Subject: [PATCH] realpath the bastard --- test/babashka/bb_edn_test.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/babashka/bb_edn_test.clj b/test/babashka/bb_edn_test.clj index f2f8a313..ecec275a 100644 --- a/test/babashka/bb_edn_test.clj +++ b/test/babashka/bb_edn_test.clj @@ -409,7 +409,7 @@ even more stuff here\" entries (cp/split-classpath out) entry (first entries)] (is (= 1 (count entries))) - (is (= (fs/parent config) (fs/parent entry))) + (is (= (fs/real-path (fs/parent config)) (fs/real-path (fs/parent entry)))) (is (str/ends-with? entry "src")))))) (deftest without-deps-test @@ -513,7 +513,7 @@ even more stuff here\" (testing "default deps-root path is same as bb.edn" (let [out (bb "--config" config "cp") entries (cp/split-classpath out)] - (is (= (fs/parent f) (fs/parent (first entries)))))) + (is (= (fs/real-path(fs/parent f)) (fs/real-path (fs/parent (first entries))))))) (spit config '{:paths ["src"] :deps {local/dep {:local/root "local-dep"}} @@ -523,7 +523,7 @@ even more stuff here\" _ (spit (str (fs/file root "deps.edn")) {}) out (bb "--config" config "cp") entries (cp/split-classpath out)] - (is (= (fs/parent f) (fs/parent (first entries))))))))) + (is (= (fs/real-path (fs/parent f)) (fs/real-path (fs/parent (first entries)))))))))) (deftest adjacent-bb-edn-test (is (= {1 {:id 1}} (bb "test-resources/adjacent_bb/medley.bb")))