Memory is cheap
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Thu, 09 Feb 2017 12:22:03 +0000 |
| parents |
6ed3375e2921 |
| children |
(none) |
(defpackage :temperance-test
(:use :cl :1am))
(defpackage :temperance-test.utils
(:use
:cl
:1am
:temperance
:temperance.quickutils)
(:export
:fail
:empty
:result=
:results=
:should-fail
:should-return
:define-test
:%=
:%not
:%append
:%member))
(defpackage :temperance-test.wam
(:use
:cl
:1am
:temperance-test.utils
:temperance.quickutils
:temperance)
(:import-from :temperance
:with-database
:make-database
:with-fresh-database
:push-logic-frame-with
:rule
:fact
:facts
:call
:dump-wam-full
:?
:!
:query
:query-all))
(defpackage :temperance-test.99
(:use
:cl
:1am
:temperance-test.utils
:temperance.quickutils
:temperance)
(:import-from :temperance
:with-fresh-database
:push-logic-frame-with
:rule
:fact
:facts
:call
:dump-wam-full
:?
:!
:query
:query-all))
(defpackage :temperance-test.taop
(:use
:cl
:1am
:temperance-test.utils
:temperance.quickutils
:temperance)
(:import-from :temperance
:with-fresh-database
:push-logic-frame-with
:rule
:fact
:facts
:call
:dump-wam-full
:?
:!
:query
:query-all))
(defpackage :temperance-test.circle
(:use
:cl
:1am
:temperance-test.utils
:temperance.circle))