21 lines
599 B
Clojure
21 lines
599 B
Clojure
(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))
|
|
)))
|