Skip to content

Instantly share code, notes, and snippets.

@yvern

yvern/test_rules.clj

Created January 20, 2023 19:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save yvern/70913708987aef7efd1d99d93826ca74 to your computer and use it in GitHub Desktop.
Save yvern/70913708987aef7efd1d99d93826ca74 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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}))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment