From e46e5eee74af75aa1123b2370ff2f4587f4adc2a Mon Sep 17 00:00:00 2001
From: Elizabeth Hunt <elizabeth.hunt@simponic.xyz>
Date: Mon, 9 Oct 2023 21:37:44 -0600
Subject: flatten directory structure to appease dr koebbe

---
 src/tests,vector.lisp | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 src/tests,vector.lisp

(limited to 'src/tests,vector.lisp')

diff --git a/src/tests,vector.lisp b/src/tests,vector.lisp
new file mode 100644
index 0000000..3ffe5a8
--- /dev/null
+++ b/src/tests,vector.lisp
@@ -0,0 +1,31 @@
+(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))))
+
-- 
cgit v1.2.3-70-g09d2