Fix windows test

Author: ericdallo

test/eca/features/context_test.clj

@@ -9,8 +9,8 @@
    [eca.llm-api :as llm-api]
    [eca.shared :refer [multi-str]]
    [eca.test-helper :as h]
-   [matcher-combinators.test :refer [match?]]
-   [matcher-combinators.matchers :as m]))
+   [matcher-combinators.matchers :as m]
+   [matcher-combinators.test :refer [match?]]))
 
 (h/reset-components-before-test)
 

test/eca/test_helper.clj

@@ -10,17 +10,23 @@
 
 (def windows? (string/starts-with? (System/getProperty "os.name") "Windows"))
 
+(def windows-drive-letter
+  (when windows?
+    (second (re-find #"^([A-Za-z]).+" (System/getProperty "user.dir")))))
+
+
+
 (defn file-path [path]
   (cond-> path windows?
-          (-> (string/replace-first #"^/" "C:\\\\")
+          (-> (string/replace-first #"^/" (str windows-drive-letter ":\\\\"))
               (->> (re-matches #"(.+?)(\.jar:.*)?"))
               (update 1 string/replace "/" "\\")
               rest
               (->> (apply str)))))
 
 (defn file-uri [uri]
   (cond-> uri windows?
-          (string/replace #"^(file):///(?!\w:/)" "$1:///C:/")))
+          (string/replace #"^(file):///(?!\w:/)" (str "$1:///" windows-drive-letter ":/"))))
 
 (defrecord TestMessenger [messages* diagnostics*]
   messenger/IMessenger