improved packaging in anticipatin for correcting my split of packages.
[CommonLispStat.git] / src / unittests / unittests-proto.lisp
blob353cc3857f8b61d5976d5f56387995533cb65cff
1 ;;; -*- mode: lisp -*-
2 ;;; Copyright (c) 2007, by A.J. Rossini <blindglobe@gmail.com>
3 ;;; See COPYRIGHT file for any additional restrictions (BSD license).
4 ;;; Since 1991, ANSI was finally finished. Edited for ANSI Common Lisp.
6 ;;; This is semi-external to lispstat core packages. The dependency
7 ;;; should be that lispstat packages are dependencies for the unit
8 ;;; tests. However, where they will end up is still to be
9 ;;; determined.
11 (in-package :cl-user)
13 (defpackage :lisp-stat-unittests-proto
14 (:use :common-lisp :lift :lisp-stat :lisp-stat-unittests)
15 (:shadowing-import-from :lisp-stat
16 slot-value call-method call-next-method ;; objects
17 expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan ;; lsmath
18 asin acos atan sinh cosh tanh asinh acosh atanh float random
19 truncate floor ceiling round minusp zerop plusp evenp oddp
20 < <= = /= >= > ;; complex
21 conjugate realpart imagpart phase
22 min max logand logior logxor lognot ffloor fceiling
23 ftruncate fround signum cis)
24 (:export lisp-stat-ut-proto)) ;; unit tests -- rename?
26 (in-package :lisp-stat-unittests-proto)
28 ;;; Object System tests
30 (deftestsuite lisp-stat-proto (lisp-stat) ())
32 ;; need to ensure stability of add, display, send, instantiate and
33 ;; similar actions.
35 (deftestsuite lisp-stat-ut-proto (lisp-stat)
37 (:tests
38 (create-proto (ensure (typep (defproto test-me) 'instance)))
39 (instance1 (ensure (send test-me :isnew)))
40 (instance2 (ensure (send test-me :has-slot 'new)))
41 (instance5 (ensure (send test-me :own-slots 'new)))))
43 ;; (run-tests :suite 'lisp-stat-ut-proto)