src/unittests/unittests-listoflist.lisp

   1 ;;; -*- mode: lisp -*-
   2
   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
   8 ;;;             on how it arrives.
   9 ;;; Purpose:    unittests for the listoflist handling.
  10
  11
  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.
  15
  16 (in-package :lisp-stat-unittests)
  17
  18 (deftestsuite lisp-stat-ut-listoflist (lisp-stat-ut)
  19   ((my-df-1
  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")))
  26    (my-matlike-1
  27     (make-matrix   2 4
  28                    :initial-element 0d0))
  29    (my-lol-1 '((0d0  1d0  2d0  3d0)
  30                (10d0 11d0 12d0 13d0)))))
  31
  32
  33
  34 ;;;
  35 ;; (run-tests)
  36 ;; (describe (run-tests))