Added unit test to validate examples

This commit is contained in:
Julien Eluard 2018-08-31 17:34:15 +02:00
parent be28c0e866
commit 7bd37d5021
No known key found for this signature in database
GPG Key ID: 6FD7DB5437FCBEF6
2 changed files with 14 additions and 1 deletions

View File

@ -0,0 +1,9 @@
(ns pluto.examples-test
(:refer-clojure :exclude [read])
(:require [clojure.test :refer [is deftest]]
[pluto.reader :as reader]
#?(:cljs [pluto.utils-test :include-macros true :refer [slurp]])))
(deftest examples
(is (empty? (:errors (reader/parse {} (:data (reader/read (slurp "figwheel/resources/public/assets/extensions/demo/extension.edn"))))))))

View File

@ -1,4 +1,5 @@
(ns pluto.utils-test (ns pluto.utils-test
(:refer-clojure :exclude [slurp])
(:require [clojure.test :refer [is deftest testing]] (:require [clojure.test :refer [is deftest testing]]
[pluto.utils :as utils])) [pluto.utils :as utils]))
@ -16,3 +17,6 @@
(update :a inc) (update :a inc)
(assoc :b 1))}) (assoc :b 1))})
(constantly {:fire-missile true})))))) (constantly {:fire-missile true}))))))
(defmacro slurp [file]
(clojure.core/slurp file))