(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))
            )))