hg.stevelosh.com > temperance

package.test.lisp @ 9995687a24c8 default tip 

Merge pull request #17 from bd339/master

Make push-logic-frame-with work with nonlocal exits and multiple values
author Steve Losh <steve@stevelosh.com>
date Mon, 21 Dec 2020 20:51:12 -0500
parents 221dc09d73f9
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))