src/unittests/unittests-proto.lisp

   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.
   5
   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.
  10
  11 (in-package :lisp-stat-unittests)
  12
  13 ;;; Object System tests
  14
  15 ;; need to ensure stability of add, display, send, instantiate and
  16 ;; similar actions.
  17
  18 ;;; FIXME: reorient this set of tests as a singleton.
  19 (deftestsuite lisp-stat-ut-proto (lisp-stat-ut)
  20   ()
  21 ;;   (:tests
  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))))
  27   )
  28
  29
  30 (addtest (lisp-stat-ut-proto)
  31   create-proto-type
  32   (let ((test-me nil))
  33     (ensure (typep (defproto test-me)
  34                    'lisp-stat-object-system::ls-object) )))
  35
  36 (addtest (lisp-stat-ut-proto)
  37   create-proto-type
  38   (let ((test-me nil))
  39     (ensure (lisp-stat-object-system:objectp (defproto test-me)))))
  40
  41 ;; (describe (run-test :test-case 'create-proto))
  42
  43
  44
  45
  46 ;; (run-tests :suite 'lisp-stat-ut-proto)