X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ftest-fdml.lisp;h=c8b58696c1c64bdc8819873e2a6ea55dccb5ddd7;hb=f2a0eb003af406415567c9f8545455ede786db87;hp=81fea97ea306c2dddf4ae77d8d28e5bce6ad4bdf;hpb=23b76563b25a517ad20f29d6dc5a65c8b958a042;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 81fea97..c8b5869 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -152,23 +152,22 @@
 
 
 ;; compare min, max and average hieghts in inches (they're quite short
-;; these guys!) -- only works with pgsql 
+;; these guys!) 
 (deftest :fdml/select/1
-    (if (member *test-database-type* '(:postgresql-socket :postgresql))
-        (let ((max (clsql:select [function "floor"
-                                          [/ [* [max [height]] 100] 2.54]]
-                                :from [employee]
-                                :flatp t))
-              (min (clsql:select [function "floor"
-                                          [/ [* [min [height]] 100] 2.54]]
-                                :from [employee]
-                                :flatp t))
-              (avg (clsql:select [function "floor"
-                                          [avg [/ [* [height] 100] 2.54]]]
-                                :from [employee]
-                                :flatp t)))
-          (apply #'< (mapcar #'parse-integer (append min avg max))))
-        t)
+    (let ((max (clsql:select [function "floor"
+			     [/ [* [max [height]] 100] 2.54]]
+			     :from [employee]
+			     :flatp t))
+	  (min (clsql:select [function "floor"
+			     [/ [* [min [height]] 100] 2.54]]
+			     :from [employee]
+			     :flatp t))
+	  (avg (clsql:select [function "floor"
+			     [avg [/ [* [height] 100] 2.54]]]
+			     :from [employee]
+			     :flatp t)))
+      (apply #'< (mapcar #'(lambda (s) (parse-integer s :junk-allowed t))
+			 (append min avg max))))
   t)
 
 (deftest :fdml/select/2
@@ -198,12 +197,12 @@
   ("lenin@soviet.org"))
 
 (deftest :fdml/select/6
-    (if (member *test-database-type* '(:postgresql-socket :postgresql))
-        (mapcar #'parse-integer
-                (clsql:select [function "trunc" [height]] :from [employee]
-                             :flatp t))
-        (mapcar #'(lambda (s) (truncate (parse-integer s :junk-allowed t)))
-                (clsql:select [height] :from [employee] :flatp t)))
+    (if (db-type-has-fancy-math? *test-database-underlying-type*)
+        (mapcar #'(lambda (s) (parse-integer s :junk-allowed t))
+	 (clsql:select [function "trunc" [height]] :from [employee]
+		       :flatp t))
+      (mapcar #'(lambda (s) (truncate (parse-integer s :junk-allowed t)))
+       (clsql:select [height] :from [employee] :flatp t)))
   (1 1 1 1 1 1 1 1 1 1))
 
 (deftest :fdml/select/7