diff options
Diffstat (limited to 'cl/tests/approx.lisp')
| -rw-r--r-- | cl/tests/approx.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |