21 lines
900 B
Clojure
21 lines
900 B
Clojure
|
(ns selmer.our-test
|
||
|
|
"Some additional tests we added ourselves"
|
||
|
|
(:require [clojure.test :as t :refer [deftest is testing]]
|
||
|
|
[selmer.parser :as selmer]
|
||
|
|
[selmer.util :as util]))
|
||
|
|
|
||
|
|
(deftest escaping-test
|
||
|
|
(testing "escaping by default"
|
||
|
|
(is (= "&foo" (selmer/render "{% firstof foo bar %}" {:foo "&foo" :bar 2}))))
|
||
|
|
(testing "can be disabled"
|
||
|
|
(util/turn-off-escaping!)
|
||
|
|
(is (= "&foo" (selmer/render "{% firstof foo bar %}" {:foo "&foo" :bar 2}))))
|
||
|
|
(testing "can be re-enabled"
|
||
|
|
(util/turn-on-escaping!)
|
||
|
|
(prn util/*escape-variables*)
|
||
|
|
(is (= "&foo" (selmer/render "{% firstof foo bar %}" {:foo "&foo" :bar 2}))))
|
||
|
|
(testing "macros"
|
||
|
|
(is (= "&foo" (util/without-escaping (selmer/render "{% firstof foo bar %}" {:foo "&foo" :bar 2}))))
|
||
|
|
(is (= "&foo" (util/with-escaping (selmer/render "{% firstof foo bar %}" {:foo "&foo" :bar 2}))))))
|
||
|
|
|