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 (deftestsuite lisp-stat-ut-proto
(lisp-stat-ut)
21 (create-proto (ensure (typep (defproto test-me
) 'instance
)))
22 (instance1 (ensure (send test-me
:isnew
)))
23 (instance2 (ensure (send test-me
:has-slot
'new
)))
24 (instance5 (ensure (send test-me
:own-slots
'new
)))))
26 ;; (run-tests :suite 'lisp-stat-ut-proto)