summaryrefslogtreecommitdiff
path: root/tests/vector.lisp
diff options
context:
space:
mode:
authorElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-10-09 21:37:44 -0600
committerElizabeth Hunt <elizabeth.hunt@simponic.xyz>2023-10-09 21:37:44 -0600
commite46e5eee74af75aa1123b2370ff2f4587f4adc2a (patch)
treeae793dd22176613282e41ce6d15f481c072a8a57 /tests/vector.lisp
parentadda6869cb2a07984b48c39fcd70ee76449c353d (diff)
downloadcmath-e46e5eee74af75aa1123b2370ff2f4587f4adc2a.tar.gz
cmath-e46e5eee74af75aa1123b2370ff2f4587f4adc2a.zip
flatten directory structure to appease dr koebbe
Diffstat (limited to 'tests/vector.lisp')
-rw-r--r--tests/vector.lisp31
1 files changed, 0 insertions, 31 deletions
diff --git a/tests/vector.lisp b/tests/vector.lisp
deleted file mode 100644
index 3ffe5a8..0000000
--- a/tests/vector.lisp
+++ /dev/null
@@ -1,31 +0,0 @@
-(defpackage lizfcm/tests.vector
- (:use :cl
- :fiveam
- :lizfcm.vector
- :lizfcm.utils
- :lizfcm/tests)
- (:export :vector-suite))
-(in-package :lizfcm/tests.vector)
-
-(def-suite vector-suite
- :in lizfcm-test-suite)
-(in-suite vector-suite)
-
-(test p-norm
- :description "computes p-norm"
- (let ((v '(1 1))
- (length (sqrt 2))
- (2-norm (p-norm 2)))
- (is (within-range-p (funcall 2-norm v)
- length
- 0.00001))))
-
-(test vector-distance
- :description "computes distance via norm"
- (let ((v1 '(0 0))
- (v2 '(1 1))
- (dist (sqrt 2)))
- (is (within-range-p (distance v1 v2 (p-norm 2))
- dist
- 0.00001))))
-