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.
data-test/test/src/data_test/file_loader_test.clj

69 lines
2.9 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.file-loader-test
(:require
[clojure.test :refer :all]
[clojure.java.io :as io]
[schema.core :as s]
[data-test.file-loader :as sut]))
(deftest should-read-test-data-spec
(is (= {:simple "test"}
(sut/read-test-data-spec (io/resource "simple_aero.edn"))))
(is (= {:to-be-refernced "ref-test", :key1 "ref-test", :key2 "ref-test"}
(sut/read-test-data-spec (io/resource "tagged_aero.edn"))))
)
(deftest should-calculate-data-test-spec-file-prefix
(is (= "data_test/file_loader_test/test_it"
(sut/data-test-spec-file-prefix ::test-it))))
(deftest should-list-all-posible-resources
(is (= '("data_test/file_loader_test/test_it.edn"
"data_test/file_loader_test/test_it.0.edn"
"data_test/file_loader_test/test_it.1.edn"
"data_test/file_loader_test/test_it.2.edn"
"data_test/file_loader_test/test_it.3.edn"
"data_test/file_loader_test/test_it.4.edn"
"data_test/file_loader_test/test_it.5.edn"
"data_test/file_loader_test/test_it.6.edn"
"data_test/file_loader_test/test_it.7.edn"
"data_test/file_loader_test/test_it.8.edn"
"data_test/file_loader_test/test_it.9.edn")
(sut/data-test-spec-file-names ::test-it))))
(deftest should-load-data
(is (= {:test "data"
:data-spec-file "data_test/file_loader_test/test_it.edn"}
(sut/load-data-test-spec (str (sut/data-test-spec-file-prefix ::test-it) ".edn")))))
(deftest should-not-load-non-existing-data
(is (= nil
(sut/load-data-test-spec (str (sut/data-test-spec-file-prefix ::not-existing) ".edn")))))
(deftest should-load-data-test-specs
(is (= [{:test "data"
:data-spec-file "data_test/file_loader_test/test_it.edn"}
{:test "data1"
:data-spec-file "data_test/file_loader_test/test_it.1.edn"}
{:test "data9"
:data-spec-file "data_test/file_loader_test/test_it.9.edn"}]
(sut/load-data-test-specs ::test-it))))
(deftest should-throw-exception
(is (thrown? RuntimeException
(sut/load-data-test-specs ::not-existing))))