17 lines
384 B
Common Lisp
17 lines
384 B
Common Lisp
;;;; decons/test-decons - basic tests.
|
|
|
|
(defpackage :test-decons
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:t :scopes/testing))
|
|
(:export #:run)
|
|
(:import-from :scopes/testing #:deftest #:== #:!=))
|
|
|
|
(in-package :test-decons)
|
|
|
|
(defun run ()
|
|
(let ((t:*test-suite* (t:test-suite "decons")))
|
|
(test-basic)
|
|
(t:show-result)))
|
|
|
|
(deftest test-basic ()
|
|
(== decons:*pi* 3.14159))
|