hg.stevelosh.com > temperance

package-test.lisp @ 5977919552ee 

Rename the project

I really liked the old name, but there's like sixteen Lisp things with
"Bone"-related names so I'll make the sacrifice.
author Steve Losh <steve@stevelosh.com>
date Sat, 20 Aug 2016 22:25:47 +0000
parents 19200659513a
children 6ed3375e2921 
(defpackage #:temperance-test
  (:use #:cl #:1am))

(defpackage #:temperance-test.utils
  (:use
    #:cl
    #:1am
    #:temperance.wam
    #: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.wam)
  (:import-from #:temperance.wam
    #: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.wam)
  (:import-from #:temperance.wam
    #: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.wam)
  (:import-from #:temperance.wam
    #: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))