*testing-contexts* (clj)

(ns kaocha.report-test
  (:require [clojure.test :as t :refer :all]
            [kaocha.report :as report]
            [kaocha.type :as type]
            [kaocha.test-util :refer [with-test-out-str]]
            [kaocha.output :as output]
            [kaocha.hierarchy :as hierarchy]
            [kaocha.history :as history]
            [kaocha.testable :as testable]
            [slingshot.slingshot :refer [try+]]))

  (is (= "\n    level1\n      level2"
         (with-test-out-str
           (with-redefs [report/doc-printed-contexts (atom nil)]
             (binding [t/*testing-contexts* ["level2" "level1"]]
               (report/doc {:type :pass}))))))

  (is (= "\n    level1\n      level2 ERROR"
         (with-test-out-str
           (with-redefs [report/doc-printed-contexts (atom nil)]
             (binding [t/*testing-contexts* ["level2" "level1"]]
               (report/doc {:type :error}))))))

  (is (= "\n    level1\n      level2 FAIL"
         (with-test-out-str
           (with-redefs [report/doc-printed-contexts (atom nil)]
             (binding [t/*testing-contexts* ["level2" "level1"]]
               (report/doc {:type :fail}))))))

; Licensed to the Apache Software Foundation (ASF) under one
; or more contributor license agreements. See the NOTICE file
; distributed with this work for additional information
; regarding copyright ownership. The ASF licenses this file
; to you under the Apache License, Version 2.0 (the
; "License"); you may not use this file except in compliance
; with the License. You may obtain a copy of the License at
;
; http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
(ns data-test
  ^{:author "Michael Jerger, with contributions and suggestions by razum2um",
    :doc "data-test separates test data from test code and allows a 
more data driven approach for testing. In case of having huge amounts 
of test-input & -expectations your test code will remain readable and concise. 
data-test is founded on and compatible with `clojure.test`. Integration in your 
test environments will work without any changes. For explicit, intentful and 
obvious data, data-test uses aero (see: https://github.com/juxt/aero).

(defmacro defdatatest [n bindings & body]
  (when t/*load-tests*
    (let [namespaced-test-key# (keyword (str *ns*) (name n))]
      `(def ~(vary-meta n assoc
                        :test `(fn [] 
                                 (doseq [data-spec# (loader/load-data-test-specs ~namespaced-test-key#)]
                                  (let [~(symbol (first bindings)) (:input data-spec#)
                                        ~(symbol (second bindings)) (:expected data-spec#)
                                        data-spec-file# (:data-spec-file data-spec#)
                                        message# (new java.io.StringWriter)]
                                    (binding [t/*testing-contexts*
                                              (conj t/*testing-contexts* data-spec-file#)
                                              reporter/*data-test-report-context* data-spec#]
                                      ~@body)
                                    )))
                        :data-spec-key namespaced-test-key#)
           (fn [] (t/test-var (var ~n)))))))