Make test runnable from bb CI

Author: borkdude

deps.edn

@@ -37,6 +37,7 @@
   {:extra-paths ["test"]
    :jvm-opts ["-Dclojure.main.report=stderr"]
    :extra-deps {nubank/matcher-combinators {:mvn/version "3.9.1"}
+                babashka/fs {:mvn/version "0.5.26"}
                 hiccup/hiccup {:mvn/version "2.0.0-RC5"}}
    :exec-fn test-runner/run}
 

test/nextjournal/markdown/multi_threading_test.clj

@@ -1,11 +1,22 @@
 (ns nextjournal.markdown.multi-threading-test
-  (:require [clojure.test :as t :refer [deftest testing is]]
+  (:require [babashka.fs :as fs]
+            [clojure.java.io :as io]
+            [clojure.test :as t :refer [deftest is]]
             [nextjournal.markdown :as md]))
 
+(def notebook-file
+  ;; we do this so test can be executed from arbitrary directory (i.e. in babashka's test suite)
+  (-> (or (io/resource *file*) *file*)
+      fs/parent
+      fs/parent
+      fs/parent
+      fs/parent
+      (fs/file "notebooks" "reference.md")))
+
 (deftest multithreading
   (let [!exs (atom [])
         proc (fn []
-               (try (md/parse (slurp "notebooks/reference.md"))
+               (try (md/parse (slurp notebook-file))
                     (catch IllegalStateException e
                       (swap! !exs conj e))))
         t1 (new Thread proc)