summaryrefslogtreecommitdiff
path: root/cl/tests/table.lisp
diff options
context:
space:
mode:
authorElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-09-27 09:53:37 -0600
committerElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-09-27 09:53:37 -0600
commit1a8c81d07efe55c5a6909aff32359d4b8866af1c (patch)
treedbaf949a4d20226560d97ef9b48dbdcd71b7ad1a /cl/tests/table.lisp
parent5e85a662d21081bc27adc1142759659cca59cd62 (diff)
downloadcmath-1a8c81d07efe55c5a6909aff32359d4b8866af1c.tar.gz
cmath-1a8c81d07efe55c5a6909aff32359d4b8866af1c.zip
keep unit tests but make directory structure more consistent with requirements i did not read
Diffstat (limited to 'cl/tests/table.lisp')
-rw-r--r--cl/tests/table.lisp31
1 files changed, 0 insertions, 31 deletions
diff --git a/cl/tests/table.lisp b/cl/tests/table.lisp
deleted file mode 100644
index 33d4e86..0000000
--- a/cl/tests/table.lisp
+++ /dev/null
@@ -1,31 +0,0 @@
-(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))))
-