3 ;;; File: unittests-lstypes.lisp
4 ;;; Author: AJ Rossini <blindglobe@gmail.com>
5 ;;; Copyright: (c)2008, AJ Rossini.
6 ;;; License: BSD, see LICENSE.BSD file for details.
7 ;;; Purpose: unit-tests for lispstat typing.
8 ;;; Time-stamp: <2009-04-02 16:13:25 tony>
9 ;;; Creation: <2008-05-09 14:16:56 tony>
11 ;;; What is this talk of 'release'? Klingons do not make software
12 ;;; 'releases'. Our software 'escapes', leaving a bloody trail of
13 ;;; designers and quality assurance people in its wake.
15 (in-package :lisp-stat-unittests
)
17 (deftestsuite lisp-stat-ut-types
(lisp-stat-ut) ())
19 (addtest (lisp-stat-ut-types) check-one-nonneg-fixnum1
21 (check-one-nonneg-fixnum -
3))
24 (check-one-nonneg-fixnum 3))))
26 (addtest (lisp-stat-ut-types) check-nonneg-fixnum1
28 ;; (check-one-nonneg-fixnum 3) => 3
30 (check-nonneg-fixnum 3))))
32 (addtest (lisp-stat-ut-types) check-nonneg-fixnum2
34 ;; (check-one-nonneg-fixnum 3) => 3
36 (check-nonneg-fixnum (list 1 2 3)))))
38 ;;; check-nonneg-fixnum
40 (addtest (lisp-stat-ut-types) check-nonneg-fixnum1
43 (check-nonneg-fixnum 3))))
45 (addtest (lisp-stat-ut-types) check-nonneg-fixnum2
48 (check-nonneg-fixnum (list 1 2 3)))))
50 (addtest (lisp-stat-ut-types) check-nonneg-fixnum3
52 (check-nonneg-fixnum -
3)))
54 (addtest (lisp-stat-ut-types) check-nonneg-fixnum4
56 (check-nonneg-fixnum (list 1 2 -
3))))
59 ;; (run-tests :suite 'lisp-stat-ut-types)
60 ;; (describe (run-tests :suite 'lisp-stat-ut-types))