diff options
Diffstat (limited to 'src/tests,approx.lisp')
| -rw-r--r-- | src/tests,approx.lisp | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/src/tests,approx.lisp b/src/tests,approx.lisp deleted file mode 100644 index 678ff8c..0000000 --- a/src/tests,approx.lisp +++ /dev/null @@ -1,48 +0,0 @@ -(defpackage lizfcm/tests.approx - (:use :cl - :fiveam - :lizfcm.approx - :lizfcm.utils - :lizfcm/tests) - (:export :approx-suite)) -(in-package :lizfcm/tests.approx) - -(def-suite approx-suite - :in lizfcm-test-suite) -(in-suite approx-suite) - -(test central-derivative-at - :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 - (central-derivative-at f x delta) - f-prime-at-x - accepted-delta)))) - -(test fwd-derivative-at - :description "forward 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 - (forward-derivative-at f x delta) - f-prime-at-x - accepted-delta)))) - -(test bwd-derivative-at - :description "backward 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 - (backward-derivative-at f x delta) - f-prime-at-x - accepted-delta)))) |