From 2e284b71500a1f8dc6cc46ecf21eb1e9389ea780 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunt Date: Wed, 13 Sep 2023 09:54:12 -0600 Subject: new table macro, notes for 9/11 --- cl/tests/approx.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'cl/tests/approx.lisp') 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)))) -- cgit v1.3