From 2e284b71500a1f8dc6cc46ecf21eb1e9389ea780 Mon Sep 17 00:00:00 2001
From: Elizabeth Hunt <elizabeth.hunt@simponic.xyz>
Date: Wed, 13 Sep 2023 09:54:12 -0600
Subject: new table macro, notes for 9/11

---
 cl/tests/approx.lisp |  3 ++-
 cl/tests/table.lisp  | 31 +++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+), 1 deletion(-)
 create mode 100644 cl/tests/table.lisp

(limited to 'cl/tests')

diff --git a/cl/tests/approx.lisp b/cl/tests/approx.lisp
index a458e66..2fd8124 100644
--- a/cl/tests/approx.lisp
+++ b/cl/tests/approx.lisp
@@ -15,9 +15,10 @@
       :description "derivative at is within bounds"
       (let ((f (lambda (x) (* x x)))
             (x 2)
+            (accepted-delta 0.02)
             (f-prime-at-x 4)
             (delta 0.01))
         (is (within-range-p
               (derivative-at f x delta)
               f-prime-at-x
-              0.1))))
+              accepted-delta))))
diff --git a/cl/tests/table.lisp b/cl/tests/table.lisp
new file mode 100644
index 0000000..33d4e86
--- /dev/null
+++ b/cl/tests/table.lisp
@@ -0,0 +1,31 @@
+(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))))
+
-- 
cgit v1.2.3-70-g09d2