;;;; 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))