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