summaryrefslogtreecommitdiff
path: root/src/tests,table.lisp
diff options
context:
space:
mode:
authorElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-10-11 10:04:04 -0600
committerElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-10-11 10:04:04 -0600
commit43f06890e2689af2ef54c4480fe5790692a24f65 (patch)
treeb933f3e05aad81d780c0c94646676efa1bbad22d /src/tests,table.lisp
parenta74a732b27fb610133190e89a91b2d42d0cf78b3 (diff)
downloadcmath-43f06890e2689af2ef54c4480fe5790692a24f65.tar.gz
cmath-43f06890e2689af2ef54c4480fe5790692a24f65.zip
deprecate common lisp solutions and write c; it's too much effort to keep up with the requirements for an archive.
Diffstat (limited to 'src/tests,table.lisp')
-rw-r--r--src/tests,table.lisp31
1 files changed, 0 insertions, 31 deletions
diff --git a/src/tests,table.lisp b/src/tests,table.lisp
deleted file mode 100644
index 33d4e86..0000000
--- a/src/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))))
-