wip: tests

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

@@ -167,7 +167,10 @@
                  (format "height:%.4fem;vertical-align:%.4fem;display:inline-block"
                          height (- depth)))))))
 
-(defn- render-tex-snippets [doc]
+(defn render-tex-snippets
+  "Traverse doc, adorning each LaTeX node with a promise resolving to,
+  optimistically, Hiccup-rendered SVG or MathML code."
+  [doc]
   (let [promises (atom [])
         r (->> doc (sp/transform
                     [element/postorder-walker

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

@@ -1,6 +1,13 @@
 (ns net.deertopia.doerg.render-test
   (:require [net.deertopia.doerg.render :as sut]
+            [net.deertopia.doerg.element :as element]
+            [net.deertopia.doerg.tex.temml :as temml]
             [com.rpl.specter :as sp]
             [clojure.test :as t]))
 
-(defn )
+(t/deftest fallbacks
+  (t/testing "expected fallback behaviour"
+    (let [doc (temml/binding-worker
+               (-> "net/deertopia/doerg/render_test/fallbacks.org"
+                   io/resource slurp element/read-string
+                   sut/render-tex-snippets))])))