3 ;;; Time-stamp: <2009-12-20 22:30:02 tony>
4 ;;; Creation: <2009-04-15 08:43:02 tony>
5 ;;; File: unittests-listoflist.lisp
6 ;;; Author: AJ Rossini <blindglobe@gmail.com>
7 ;;; Copyright: (c)2009--, AJ Rossini. BSD, LLGPL, or GPLv2, depending
9 ;;; Purpose: unittests for the listoflist handling.
12 ;;; What is this talk of 'release'? Klingons do not make software
13 ;;; 'releases'. Our software 'escapes', leaving a bloody trail of
14 ;;; designers and quality assurance people in its wake.
16 (in-package :lisp-stat-unittests
)
18 (deftestsuite lisp-stat-ut-listoflist
(lisp-stat-ut)
20 (make-instance 'dataframe-array
21 :storage
#2A
((1d0 2d0
3d0
4d0
)
22 (10d0 20d0
30d0
40d0
))
23 :doc
"This is an interesting legal dataframe-array"
24 :case-labels
(list "x" "y")
25 :var-labels
(list "a" "b" "c" "d" "e")))
28 :initial-element
0d0
))
29 (my-lol-1 '((0d0 1d0
2d0
3d0
)
30 (10d0 11d0
12d0
13d0
)))))
36 ;; (describe (run-tests))