You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
2.8 KiB
Clojure
78 lines
2.8 KiB
Clojure
; 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.loader
|
|
(:require
|
|
[clojure.java.io :as io]
|
|
[clojure.string :as str]
|
|
[schema.core :as s]
|
|
[aero.core :as aero]))
|
|
|
|
;TODO: replace schema with spec
|
|
;TODO: try out ^ for meta ...
|
|
(def TestDataSpec
|
|
{:input s/Any
|
|
:expected s/Any
|
|
(s/optional-key :meta) {(s/optional-key :name) s/Str
|
|
(s/optional-key :description) s/Str
|
|
(s/optional-key :link) s/Str}
|
|
(s/optional-key :references) s/Any})
|
|
|
|
(def RuntimeTestDataSpec
|
|
(merge
|
|
TestDataSpec
|
|
{:data-spec-file s/Str}))
|
|
|
|
(s/defn data-spec-file :- s/Str
|
|
[runtime-test-data-spec :- RuntimeTestDataSpec]
|
|
(:data-spec-file runtime-test-data-spec))
|
|
|
|
(s/defn read-test-data-spec ; :- TestDataSpec - at least TestDataSpec but more keys are allowed
|
|
[resource-url] ; input is a url object
|
|
(aero/read-config resource-url))
|
|
|
|
(s/defn data-test-spec-file-prefix :- s/Str
|
|
[name-key :- s/Keyword]
|
|
(str/replace
|
|
(str/replace (str (namespace name-key) "/" (name name-key))
|
|
#"-" "_")
|
|
#"\." "/"))
|
|
|
|
(s/defn data-test-spec-file-names :- [s/Str]
|
|
[name-key :- s/Keyword]
|
|
(let [prefix (data-test-spec-file-prefix name-key)]
|
|
(cons (str prefix ".edn")
|
|
(map #(str prefix "." % ".edn")
|
|
(range 10)))))
|
|
|
|
(s/defn load-data-test-spec ; either :- RuntimeTestDataSpec or nil
|
|
[file-path :- s/Str]
|
|
(let [file-resource (io/resource file-path)]
|
|
(when file-resource
|
|
(merge
|
|
{:data-spec-file file-path}
|
|
(read-test-data-spec file-resource)))))
|
|
|
|
(s/defn load-data-test-specs ; :- [RuntimeTestDataSpec] at least but more keys are allowed in elements
|
|
[name-key :- s/Keyword]
|
|
(let [locations (data-test-spec-file-names name-key)
|
|
data-test-specs (filter some? (map load-data-test-spec locations))]
|
|
(if (empty? data-test-specs)
|
|
(throw (ex-info (str "Could not find test spec on " name-key)
|
|
{:message "Could not find test spec"
|
|
:name-key name-key
|
|
:locations locations}))
|
|
(into [] data-test-specs))))
|