first commit

test/clj/transducerpres/slides/util_test.clj

@@ -0,0 +1,20 @@
+(ns transducerpres.slides.util-test
+    (:require [clojure.test :refer :all]
+              [transducerpres.slides.util :refer [slide defslide]]))
+
+(deftest test-slide
+    (testing "something works"
+        (let [expt [:section [:h1 "title"] ["body"]]
+              res (slide [:h1 "title"] ["body"])]
+            (is (= expt res))
+            )))
+
+
+(deftest test-defslide
+    (testing "something works"
+        (let [expt [:section [:h1 "title"] ["body"]]]
+            (defslide test-slide
+                [:h1 "title"]
+                ["body"])
+            (is (= expt test-slide))
+            )))