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
11 (in-package :lisp-stat-unittests
)
13 ;;; Object System tests
15 ;; need to ensure stability of add, display, send, instantiate and
18 ;;; FIXME: reorient this set of tests as a singleton.
19 (deftestsuite lisp-stat-ut-proto
(lisp-stat-ut)
22 ;; (create-proto (ensure (typep (defproto test-me)
23 ;; 'lisp-stat-object-system::ls-object)))
24 ;; (instance1 (ensure (send test-me :isnew)))
25 ;; (instance2 (ensure (send test-me :has-slot 'new)))
26 ;; (instance5 (ensure (send test-me :own-slots 'new))))
30 (addtest (lisp-stat-ut-proto)
33 (ensure (typep (defproto test-me
)
34 'lisp-stat-object-system
::ls-object
) )))
36 (addtest (lisp-stat-ut-proto)
39 (ensure (lisp-stat-object-system:objectp
(defproto test-me
)))))
41 ;; (describe (run-test :test-case 'create-proto))
46 ;; (run-tests :suite 'lisp-stat-ut-proto)