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: <2009-04-03 07:37:06 tony>
9 ;;; Creation: <2008-05-13 17:16:07 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-regression
(lisp-stat-ut) ())
21 (addtest (lisp-stat-ut-regression)
23 (let ((m1 (regression-model (list->vector-like iron
)
24 (list->vector-like aluminum
) :print nil
)))
25 (ensure (> 0 (send m1
:own-slots
)))))
27 (addtest (lisp-stat-ut-regression)
29 (let ((m1 (regression-model (list iron aluminum
) absorbtion
:print nil
)))
30 (ensure (> 0 (send m1
:basis
)))))
32 (addtest (lisp-stat-ut-regression)
35 (check-nonneg-fixnum -
3)))
39 ;; (describe (run-tests))