feat: tests

doerg/src/net/deertopia/doerg/render.clj

@@ -156,7 +156,7 @@
   ;;     vertical-align in the style attribute
   ;;   • Viewbox: Must be removed entirely for correct positioning.
   (-> (slurp file)
-      (str/replace-first "<?xml version='1.0' encoding='UTF-8'?>" "")
+      (str/replace-first #"<\?xml version='1.0' encoding='UTF-8'\?>\n?" "")
       (str/replace-first #" height=['\"][^\"']+[\"']" "")
       (str/replace-first #" width=['\"][^\"']+[\"']" "")
       (str/replace-first

doerg/src/net/deertopia/doerg/repl.clj

@@ -18,7 +18,7 @@
   "/home/msyds/org/20250512144715-natural_transformation_category_theory.org"
   #_
   "/home/msyds/org/20251021155921-path_action.org"
-  "test/net/deertopia/doerg/tex-test.org")
+  "test/net/deertopia/doerg/render_test/fallbacks.org")
 
 (defn- force-create-sym-link [path target]
   (fs/delete-if-exists path)

doerg/test/net/deertopia/doerg/render_test.clj

@@ -2,12 +2,59 @@
   (:require [net.deertopia.doerg.render :as sut]
             [net.deertopia.doerg.element :as element]
             [net.deertopia.doerg.tex.temml :as temml]
+            [net.deertopia.doerg.tex.native :as native]
             [com.rpl.specter :as sp]
-            [clojure.test :as t]))
+            [clojure.edn :as edn]
+            [clojure.test :as t]
+            [clojure.java.io :as io]
+            [clojure.string :as str]))
 
-(t/deftest fallbacks
+;; Stupid and hacky.
-  (t/testing "expected fallback behaviour"
+(defn mathml? [s]
+  (str/starts-with? s "<math"))
+
+;; Also stupid and hacky. }:)
+(defn svg? [s]
+  (some? (re-matches #"(?s)(<!--.*?-->\n)<svg.*" s)))
+
+(defn read-resource [s]
+  (let [p (-> (format "net/deertopia/doerg/render_test/%s" s)
+              io/resource slurp)]
+    (cond (str/ends-with? s ".edn") (edn/read-string p)
+          (str/ends-with? s ".org") (element/read-string p))))
+
+(t/deftest latex-fallbacks
+  (t/testing "LaTeX fallback behaviour"
     (let [doc (temml/binding-worker
-               (-> "net/deertopia/doerg/render_test/fallbacks.org"
+                (-> "fallbacks.org" read-resource sut/render-tex-snippets))
-                   io/resource slurp element/read-string
+          snippets (->> doc
-                   sut/render-tex-snippets))])))
+                        (sp/select
+                         [element/postorder-walker
+                          #(element/of-type?
+                            % "latex-fragment" "latex-environment")
+                          (sp/view #(-> % ::sut/rendered deref str))]))
+          expectations (-> "fallbacks.edn" read-resource)]
+      (doall (map (fn [s e]
+                    (let [mathml (mathml? s)
+                          svg (svg? s)]
+                      (assert
+                       (not= mathml svg)
+                       "`mathml?` and `svg?` should be mutually-exclusive.")
+                      (case e
+                        :mathml (t/is mathml)
+                        :svg (t/is svg))))
+                  snippets expectations)))))
+
+(t/deftest latex-laziness
+  (t/testing "LaTeX laziness"
+    (let [ex (Exception. "you're supposed to be lazy!")
+          bad (fn [& _] (throw ex))
+          doc (read-resource "latexless.org")
+          r (try (with-redefs-fn {#'native/render bad
+                                  #'temml/render bad}
+                   #(sut/render-tex-snippets doc))
+                 (catch Exception e
+                   (if (= e ex)
+                     false
+                     (throw e))))]
+      (t/is r))))

doerg/test/net/deertopia/doerg/render_test/fallbacks.edn

@@ -0,0 +1,7 @@
+[:mathml
+ :mathml
+ :mathml
+ :mathml
+ :svg
+ :mathml
+ :svg]

doerg/test/net/deertopia/doerg/render_test/latexless.org

@@ -0,0 +1,3 @@
+#+title: 이 파일은 LaTeX 코드가 포함되지 않습니다.
+
+🦌!