hobo le chat

test/clj/transducerpres/slides/util_test.clj

@@ -2,7 +2,8 @@
     (:require [clojure.test :refer :all]
               [transducerpres.slides.util :refer [slide defslide markdown
                                                   defmarkdownslide clj-code
-                                                  markdown-slide]]))
+                                                  markdown-slide
+                                                  fa]]))
 
 (deftest test-slide
     (testing "simple slide"
@@ -48,3 +49,8 @@
     (testing "simple case"
         (let [expt [:pre [:code {:class "clojure"} "(+ 1 1)\n(+ 2 2)"]]]
             (is (= (clj-code "(+ 1 1)" "(+ 2 2)") expt)))))
+
+(deftest test-font-awsome
+    (testing "simple case"
+        (let [expt [:i {:class "fa fa-map" :aria-hidden "true"}]]
+            (is (= (fa "map") expt)))))