wip

threatgrid · Oct 24, 2024 · e03fdba · e03fdba
1 parent 6d82f01
commit e03fdba
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/flanders/spec.clj b/src/flanders/spec.clj
@@ -64,14 +64,16 @@
 
   EitherType
   (->spec' [{:keys [tests choices]} ns f]
-    (when (seq tests)
-      (throw (ex-info (str "WARNING: "))))
     (let [choices (->> choices
                        (map-indexed
                         (fn [i c]
                           (let [label (str "choice" i)
                                 spec (f c (str ns "." label))]
-                            (eval `(s/def ~(keyword ns label) ~spec))
+                            (prn spec)
+                            (eval `(s/def ~(keyword ns label) ~(if-some [t (nth tests i nil)]
+                                                                 ;;hmm this doesn't s/exercise 
+                                                                 `(s/and ~spec ~t)
+                                                                 spec)))
                             (assoc c
                                    :label (keyword label)
                                    :spec spec)))))