src/unittests/unittests-lstypes.lisp

   1 ;;; -*- mode: lisp -*-
   2
   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>
  10
  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.
  14
  15 (in-package :lisp-stat-unittests)
  16
  17 (deftestsuite lisp-stat-ut-types (lisp-stat-ut) ())
  18
  19 (addtest (lisp-stat-ut-types) check-one-nonneg-fixnum1
  20          (ensure-error
  21            (check-one-nonneg-fixnum -3))
  22          (ensure
  23           (= 3
  24              (check-one-nonneg-fixnum 3))))
  25
  26 (addtest (lisp-stat-ut-types) check-nonneg-fixnum1
  27          (ensure
  28           ;; (check-one-nonneg-fixnum 3) => 3
  29           (= 3
  30              (check-nonneg-fixnum 3))))
  31
  32 (addtest (lisp-stat-ut-types) check-nonneg-fixnum2
  33          (ensure
  34           ;; (check-one-nonneg-fixnum 3) => 3
  35           (equal (list 1 2 3)
  36                  (check-nonneg-fixnum (list 1 2 3)))))
  37
  38 ;;; check-nonneg-fixnum
  39
  40 (addtest (lisp-stat-ut-types) check-nonneg-fixnum1
  41          (ensure
  42           (= 3
  43              (check-nonneg-fixnum 3))))
  44
  45 (addtest (lisp-stat-ut-types) check-nonneg-fixnum2
  46          (ensure
  47           (equal (list 1 2 3)
  48                  (check-nonneg-fixnum (list 1 2 3)))))
  49
  50 (addtest (lisp-stat-ut-types) check-nonneg-fixnum3
  51          (ensure-error
  52            (check-nonneg-fixnum -3)))
  53
  54 (addtest (lisp-stat-ut-types) check-nonneg-fixnum4
  55          (ensure-error
  56            (check-nonneg-fixnum (list 1 2 -3))))
  57
  58 ;;;
  59 ;; (run-tests :suite 'lisp-stat-ut-types)
  60 ;; (describe (run-tests :suite 'lisp-stat-ut-types))