From 7bd37d50210cde4d4ce2dee07726277124e1f233 Mon Sep 17 00:00:00 2001
From: Julien Eluard <julien.eluard@gmail.com>
Date: Fri, 31 Aug 2018 17:34:15 +0200
Subject: [PATCH] Added unit test to validate examples

---
 test/pluto/examples_test.cljc | 9 +++++++++
 test/pluto/utils_test.cljc    | 6 +++++-
 2 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 test/pluto/examples_test.cljc

diff --git a/test/pluto/examples_test.cljc b/test/pluto/examples_test.cljc
new file mode 100644
index 0000000..adb893c
--- /dev/null
+++ b/test/pluto/examples_test.cljc
@@ -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"))))))))
+
diff --git a/test/pluto/utils_test.cljc b/test/pluto/utils_test.cljc
index c245292..738aec8 100644
--- a/test/pluto/utils_test.cljc
+++ b/test/pluto/utils_test.cljc
@@ -1,4 +1,5 @@
- (ns pluto.utils-test 
+(ns pluto.utils-test
+  (:refer-clojure :exclude [slurp])
   (:require [clojure.test :refer [is deftest testing]]
             [pluto.utils :as utils]))
 
@@ -16,3 +17,6 @@
                                       (update :a inc)
                                       (assoc :b 1))})
                            (constantly {:fire-missile true}))))))
+
+(defmacro slurp [file]
+  (clojure.core/slurp file))