test_rules.clj

(ns yvern.test-rules
  (:require [clara.rules :refer [defrule insert!]]
            [yvern.defrule :as check]))

(check/defrule
  (defrule ok
    [:a]
    =>
    (insert! {:fact-type :b})))

(check/defrule
  (defrule also-ok
    [:a]
    =>
    (let [b :b]
      (insert! {:fact-type b}))))

(check/defrule
  (defrule not-ok
    [:a]
    =>
    (when (< 0.5 (rand))
      (insert! {:fact-type :b}))))