deprecate common lisp solutions and write c; it's too much effort to keep up with the requirements for an archive.

1 files changed, 0 insertions, 42 deletions

diff --git a/src/tests,vector.lisp b/src/tests,vector.lisp
deleted file mode 100644
index 6edb1ac..0000000
--- a/src/tests,vector.lisp
+++ /dev/null
@@ -1,42 +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))))
-
-(test least-squares
-      :description "least squares is correct enough"
-      (let ((x '(0 1 2 3 4))
-            (y '(1 2 3 4 5)))
-        (destructuring-bind (m b) (lizfcm.vector:least-squares-reg x y)
-          (is (within-range-p m 1 0.00001))
-          (is (within-range-p b 1 0.00001))))
-      (let ((x '(1 2 3 4 5 6 7))
-            (y '(0.5 3 2 3.5 5 6 7.5)))
-        (destructuring-bind (m b) (lizfcm.vector:least-squares-reg x y)
-          (is (within-range-p m 1 0.3))))) ;; just a guestimate for best fit