Default and schema tests

Author: kdmoreira

project.clj

@@ -3,7 +3,10 @@
   :url "http://example.com/FIXME"
   :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"
             :url "https://www.eclipse.org/legal/epl-2.0/"}
-  :dependencies [[org.clojure/clojure "1.10.3"]]
+  :dependencies [
+                 [org.clojure/clojure "1.10.3"]
+                 [prismatic/schema "1.2.0"]
+                 ]
   :main ^:skip-aot clojure-noob.core
   :target-path "target/%s"
   :profiles {:uberjar {:aot :all

src/clojure_noob/under_test/functions.clj

@@ -0,0 +1,17 @@
+(ns clojure-noob.under-test.functions
+  (:require [schema.core :as s]
+            [schema.test :as st]))
+
+(defn my-sum [& numbers]
+  (apply + (take 2 numbers)))
+
+(my-sum 1 1)
+(my-sum 1 1 1)
+
+(s/defn c->f
+        "Celsius to Fahrenheit"
+        [c :- s/Int]
+        (int (+ 32 (/ (* c 9) 5))))
+
+(s/defschema Something {:a s/Int
+                        :b s/Str})

test/clojure_noob/core_test.clj

@@ -1,7 +1,36 @@
 (ns clojure-noob.core-test
-  (:require [clojure.test :refer :all]
-            [clojure-noob.core :refer :all]))
+  (:require [clojure-noob.core :refer :all]
+            [clojure-noob.under-test.functions :refer [my-sum, c->f]]
+            [clojure.test :refer :all]
+            [schema.core :as s]
+            [schema.test :as st]))
+
+(use-fixtures :once schema.test/validate-schemas)
 
 (deftest a-test
   (testing "FIXME, I fail."
     (is (= 0 1))))
+
+(deftest test-sum
+  (testing "adds numbers"
+    (is (= 3 (my-sum 1 2)))
+    (is (= 6 (my-sum 1 2 3)))))
+
+(test-sum)
+(test-vars [#'test-sum])
+(run-tests)
+
+(deftest test-c->f
+  (is (= 32 (c->f 0.0))))
+
+; it doesn't fail even though we are passing a double
+(test-c->f)
+
+(use-fixtures :once)
+
+(deftest test-c->f-v2
+  (s/with-fn-validation
+   (is (= 32 (c->f 0.0)))))
+
+; now the schema violation appears as [(named (not (integer? 0.0)) c)]
+(test-c->f-v2)