summaryrefslogtreecommitdiff
path: root/tests/approx.lisp
diff options
context:
space:
mode:
authorElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-09-27 09:53:37 -0600
committerElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-09-27 09:53:37 -0600
commit1a8c81d07efe55c5a6909aff32359d4b8866af1c (patch)
treedbaf949a4d20226560d97ef9b48dbdcd71b7ad1a /tests/approx.lisp
parent5e85a662d21081bc27adc1142759659cca59cd62 (diff)
downloadcmath-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.lisp24
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))))