From 3b5c56181cc2cf8ac03eddedb56f4ad7f97f8434 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Mon, 10 Nov 2008 14:51:34 +0100 Subject: [PATCH] experimenting with prototype system unittests. --- src/unittests/unittests-proto.lisp | 30 +++++++++++++++++++++++++----- 1 file changed, 25 insertions(+), 5 deletions(-) diff --git a/src/unittests/unittests-proto.lisp b/src/unittests/unittests-proto.lisp index 870688a..9b08673 100644 --- a/src/unittests/unittests-proto.lisp +++ b/src/unittests/unittests-proto.lisp @@ -15,12 +15,32 @@ ;; need to ensure stability of add, display, send, instantiate and ;; similar actions. +;;; FIXME: reorient this set of tests as a singleton. (deftestsuite lisp-stat-ut-proto (lisp-stat-ut) () - (:tests - (create-proto (ensure (typep (defproto test-me) 'instance))) - (instance1 (ensure (send test-me :isnew))) - (instance2 (ensure (send test-me :has-slot 'new))) - (instance5 (ensure (send test-me :own-slots 'new))))) +;; (:tests +;; (create-proto (ensure (typep (defproto test-me) +;; 'lisp-stat-object-system::ls-object))) +;; (instance1 (ensure (send test-me :isnew))) +;; (instance2 (ensure (send test-me :has-slot 'new))) +;; (instance5 (ensure (send test-me :own-slots 'new)))) + ) + + +(addtest (lisp-stat-ut-proto) + create-proto-type + (let ((test-me nil)) + (ensure (typep (defproto test-me) + 'lisp-stat-object-system::ls-object) ))) + +(addtest (lisp-stat-ut-proto) + create-proto-type + (let ((test-me nil)) + (ensure (lisp-stat-object-system:objectp (defproto test-me))))) + +;; (describe (run-test :test-case 'create-proto)) + + + ;; (run-tests :suite 'lisp-stat-ut-proto) -- 2.11.4.GIT