projects
/
cl-photo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10494: add cp5900, formats, remove incorrect function
[cl-photo.git]
/
tests.lisp
diff --git
a/tests.lisp
b/tests.lisp
index 6405c27d943c550c63b2f8f7440c9927c6e194c8..73e009b8588b1bd877064ed80fda33ad84e850e8 100644
(file)
--- a/
tests.lisp
+++ b/
tests.lisp
@@
-21,7
+21,7
@@
(defun verify-results (alist blist)
(every #'identity
(mapcar
(defun verify-results (alist blist)
(every #'identity
(mapcar
- (lambda (a b) (numbers-within-percentage a b 0.0
0
1))
+ (lambda (a b) (numbers-within-percentage a b 0.01))
alist blist)))
(defmacro def-numeric-test (name test &rest values)
alist blist)))
(defmacro def-numeric-test (name test &rest values)
@@
-48,7
+48,7
@@
(def-numeric-test
:fov.2 (fov 50 24 16 :magnification 1 :units :feet)
(def-numeric-test
:fov.2 (fov 50 24 16 :magnification 1 :units :feet)
-
2.583338E-4 1.7222258E-4 3.10478E-4 1 0.328083
100)
+
0.07874 0.052494 0.094634 1 0.328084
100)
(def-numeric-test
:fov.3 (fov 50 24 16 :image-distance 100 :units :mm)
(def-numeric-test
:fov.3 (fov 50 24 16 :image-distance 100 :units :mm)
@@
-56,7
+56,7
@@
(def-numeric-test
:fov.4 (fov 50 24 16 :image-distance 100 :units :feet)
(def-numeric-test
:fov.4 (fov 50 24 16 :image-distance 100 :units :feet)
-
2.583338E-4 1.7222258E-4 3.10478E-4 1 0.328083
100)
+
0.07874 0.052494 0.094634 1 0.328084
100)
(def-numeric-test
:fov.5 (fov 50 24 16 :object-distance 100 :units :mm)
(def-numeric-test
:fov.5 (fov 50 24 16 :object-distance 100 :units :mm)
@@
-64,8
+64,7
@@
(def-numeric-test
:fov.6 (fov 50 24 16 :object-distance (cl-photo::mm->feet 100) :units :feet)
(def-numeric-test
:fov.6 (fov 50 24 16 :object-distance (cl-photo::mm->feet 100) :units :feet)
- 2.583338E-4 1.7222258E-4 3.10478E-4 1 0.328083 100)
-
+ 0.07874 0.052494 0.094634 1 0.328084 100)
(def-numeric-test
:mag.1 (magnification :focal-length 50 :image-distance 100 :units :mm) 1)
(def-numeric-test
:mag.1 (magnification :focal-length 50 :image-distance 100 :units :mm) 1)