summaryrefslogtreecommitdiff
path: root/cl/tests/vector.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'cl/tests/vector.lisp')
-rw-r--r--cl/tests/vector.lisp31
1 files changed, 0 insertions, 31 deletions
diff --git a/cl/tests/vector.lisp b/cl/tests/vector.lisp
deleted file mode 100644
index 3ffe5a8..0000000
--- a/cl/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))))
-