X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=blobdiff_plain;f=tests.lisp;h=3f1c57cbb3b4a353d417f6e77b57d75c6b912673;hp=73e009b8588b1bd877064ed80fda33ad84e850e8;hb=cd49c092c9ede840170af3301b9296cec4b0be3e;hpb=e95f4d9e6baa23bac6d54d52deb739676769b10f

diff --git a/tests.lisp b/tests.lisp
index 73e009b..3f1c57c 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -86,3 +86,51 @@
  :mag.6 (magnification :image-distance 100 :object-distance (cl-photo::mm->feet 100)
                        :units :feet) 1)
 
+(def-numeric-test 
+    :cu.1 (close-up :focal-length 65 :magnification 5 :units :mm)
+  65 78 390 5 6)
+
+(def-numeric-test 
+    :cu.2 (close-up :focal-length 65 :object-distance 78 :units :mm) 
+  65 78 390 5 6)
+
+(def-numeric-test 
+    :cu.3 (close-up :focal-length 65 :image-distance 390 :units :mm) 
+  65 78 390 5 6)
+
+(def-numeric-test 
+    :cu.4 (close-up :object-distance 78 :image-distance 390 :units :mm) 
+  65 78 390 5 6)
+
+(def-numeric-test 
+    :cu.5 (close-up :object-distance 78 :magnification 5 :units :mm) 
+  65 78 390 5 6)
+
+(def-numeric-test 
+    :cu.6 (close-up :image-distance 390 :magnification 5 :units :mm)
+  65 78 390 5 6)
+
+(def-numeric-test 
+    :cu.7 (close-up :focal-length 65 :magnification 5 :units :feet)
+  65 0.2559055 390 5 6)
+
+(def-numeric-test 
+    :cu.8 (close-up :focal-length 65 :object-distance 0.2559055 :units :feet) 
+  65 0.2559055 390 5 6)
+
+(def-numeric-test 
+    :cu.9 (close-up :focal-length 65 :image-distance 390 :units :feet) 
+  65 0.2559055 390 5 6)
+
+(def-numeric-test 
+    :cu.10 (close-up :object-distance 0.2559055 :image-distance 390 :units :feet) 
+  65 0.2559055 390 5 6)
+
+(def-numeric-test 
+    :cu.11 (close-up :object-distance 0.2559055 :magnification 5 :units :feet) 
+  65 0.2559055 390 5 6)
+
+(def-numeric-test 
+    :cu.12 (close-up :image-distance 390 :magnification 5 :units :feet)
+  65 0.2559055 390 5 6)
+