; 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
  (:require
   [clojure.test :as ct]
   [schema.core :as s]
   [data-test.runner :as runner]
   [data-test.file-loader :as fl]))

(def TestDataSpec fl/TestDataSpec)

(s/defn test-with-data 
  [test-name :- s/Keyword]
  (runner/run-tests (runner/create-test-runner test-name)))

(defmacro defdatatest [n & body]
  (when ct/*load-tests*
    (let [namespaced-test-key# (keyword (str *ns*) (name n))
           file-prefix# (fl/data-test-spec-file-prefix namespaced-test-key#)]
      `(def ~(vary-meta n assoc
                        :test `(fn [] 
                                 (let [testdata# (fl/load-test-data ~file-prefix#)
                                       ~(symbol 'input) (:input testdata#)
                                       ~(symbol 'expectation) (:expectation testdata#)]
                                   ~@body))
                        :data-spec-prefix file-prefix#)
           (fn [] (ct/test-var (var ~n)))))))