+(def-numeric-test
+ :fov.1 (fov 50 24 16 :magnification 1 :units :mm)
+ 24 16 28.8444 1 100 100)
+
+(def-numeric-test
+ :fov.2 (fov 50 24 16 :magnification 1 :units :feet)
+ 0.07874 0.052494 0.094634 1 0.328084 100)
+
+(def-numeric-test
+ :fov.3 (fov 50 24 16 :image-distance 100 :units :mm)
+ 24 16 28.8444 1 100 100)
+
+(def-numeric-test
+ :fov.4 (fov 50 24 16 :image-distance 100 :units :feet)
+ 0.07874 0.052494 0.094634 1 0.328084 100)
+
+(def-numeric-test
+ :fov.5 (fov 50 24 16 :object-distance 100 :units :mm)
+ 24 16 28.8444 1 100 100)
+
+(def-numeric-test
+ :fov.6 (fov 50 24 16 :object-distance (cl-photo::mm->feet 100) :units :feet)
+ 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.2 (magnification :focal-length 50 :image-distance 100 :units :feet) 1)
+
+(def-numeric-test
+ :mag.3 (magnification :focal-length 50 :object-distance 100 :units :mm) 1)
+
+(def-numeric-test
+ :mag.4 (magnification :focal-length 50 :object-distance (cl-photo::mm->feet 100)
+ :units :feet) 1)
+
+(def-numeric-test
+ :mag.5 (magnification :image-distance 100 :object-distance 100 :units :mm) 1)
+
+(def-numeric-test
+ :mag.6 (magnification :image-distance 100 :object-distance (cl-photo::mm->feet 100)
+ :units :feet) 1)
+