diff --git a/doerg/src/net/deertopia/doerg/render.clj b/doerg/src/net/deertopia/doerg/render.clj
index 0ab6f81..ba5aefc 100644
--- a/doerg/src/net/deertopia/doerg/render.clj
+++ b/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
diff --git a/doerg/test/net/deertopia/doerg/render_test.clj b/doerg/test/net/deertopia/doerg/render_test.clj
index 14a186e..b60a99a 100644
--- a/doerg/test/net/deertopia/doerg/render_test.clj
+++ b/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))])))
diff --git a/doerg/test/net/deertopia/doerg/tex-test.org b/doerg/test/net/deertopia/doerg/render_test/fallbacks.org
similarity index 100%
rename from doerg/test/net/deertopia/doerg/tex-test.org
rename to doerg/test/net/deertopia/doerg/render_test/fallbacks.org