32 lines
971 B
Common Lisp
32 lines
971 B
Common Lisp
|
(defpackage lizfcm/tests.table
|
||
|
|
(:use :cl
|
||
|
|
:fiveam
|
||
|
|
:lizfcm.utils
|
||
|
|
:lizfcm/tests)
|
||
|
|
(:export :approx-suite))
|
||
|
|
(in-package :lizfcm/tests.table)
|
||
|
|
|
||
|
|
(def-suite table-suite
|
||
|
|
:in lizfcm-test-suite)
|
||
|
|
(in-suite table-suite)
|
||
|
|
|
||
|
|
(defun fib (n)
|
||
|
|
(cond ((< n 2) n)
|
||
|
|
(t (+ (fib (- n 1)) (fib (- n 2))))))
|
||
|
|
|
||
|
|
(test table-of-fib-vals
|
||
|
|
:description "table generates correctly"
|
||
|
|
(let* ((headers '("n" "fib(n)"))
|
||
|
|
(n-values '((1) (2) (3) (4)))
|
||
|
|
(expected `(("n" "fib(n)")
|
||
|
|
(1 ,(fib 1))
|
||
|
|
(2 ,(fib 2))
|
||
|
|
(3 ,(fib 3))
|
||
|
|
(4 ,(fib 4))))
|
||
|
|
(tabled (lizfcm.utils:table (:headers headers
|
||
|
|
:domain-order (n)
|
||
|
|
:domain-values n-values)
|
||
|
|
(fib n))))
|
||
|
|
(is (equal expected tabled))))
|
||
|
|
|