diff options
author | Elizabeth Hunt <elizabeth.hunt@simponic.xyz> | 2023-09-27 09:53:37 -0600 |
---|---|---|
committer | Elizabeth Hunt <elizabeth.hunt@simponic.xyz> | 2023-09-27 09:53:37 -0600 |
commit | 1a8c81d07efe55c5a6909aff32359d4b8866af1c (patch) | |
tree | dbaf949a4d20226560d97ef9b48dbdcd71b7ad1a /tests/approx.lisp | |
parent | 5e85a662d21081bc27adc1142759659cca59cd62 (diff) | |
download | cmath-1a8c81d07efe55c5a6909aff32359d4b8866af1c.tar.gz cmath-1a8c81d07efe55c5a6909aff32359d4b8866af1c.zip |
keep unit tests but make directory structure more consistent with requirements i did not read
Diffstat (limited to 'tests/approx.lisp')
-rw-r--r-- | tests/approx.lisp | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/approx.lisp b/tests/approx.lisp new file mode 100644 index 0000000..2fd8124 --- /dev/null +++ b/tests/approx.lisp @@ -0,0 +1,24 @@ +(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 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 + (derivative-at f x delta) + f-prime-at-x + accepted-delta)))) |