src/unittests/unittests-regression.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; File:       unittests-regression.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 regression; also make good examples
   8 ;;; Time-stamp: <2008-10-31 17:33:20 tony>
   9 ;;; Creation:   <2008-05-13 17:16:07 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 ;;; This organization and structure is new to the 21st Century
  16 ;;; version.
  17
  18 ;; (in-package :cl-user)
  19 ;; if needed, but need to set the ASDf path first...!
  20 ;; (asdf:oos 'asdf:load-op :lift)
  21
  22 (in-package :lisp-stat-regression-unittests)
  23
  24 (deftestsuite lisp-stat-regression (lisp-stat) ())
  25
  26 ;;; TESTS
  27
  28 (addtest (lisp-stat-regression)
  29   lin-regr1-fit-basis
  30   (let ((m1 (regression-model  iron aluminum :print nil)))
  31     (ensure (> 0 (send m1 :basis)))))
  32
  33 (addtest (lisp-stat-regression)
  34   lin-regr2-fit-basis
  35   (let ((m1 (regression-model (list iron aluminum) absorbtion :print nil)))
  36     (ensure (> 0 (send m1 :basis)))))
  37
  38 (addtest (lisp-stat-regression)
  39   check-nonneg-fixnum
  40   (ensure-error
  41     (check-nonneg-fixnum -3)))
  42
  43 ;;;
  44 ;; (run-tests)
  45 ;; (describe (run-tests))