add %get-int to handle type-coersion to int and use it in generic-postgres

[clsql.git] / tests / utils.lisp

diff --git a/tests/utils.lisp b/tests/utils.lisp
index 95c97172c941b782fe5f4f47381deed1fcfb8e0b..396e3030f629e99ae7e0f076b8756d7c1fc2ae93 100644 (file)
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@@ -16,6 +16,12 @@
 
 (in-package #:clsql-tests)
 
 
 (in-package #:clsql-tests)
 

+(defun %get-int (v)
+  (etypecase v
+    (string (parse-integer v :junk-allowed t))
+    (integer v)
+    (number (truncate v))))
+

 (defvar *config-pathname*
   (make-pathname :defaults (user-homedir-pathname)
                  :name ".clsql-test"
 (defvar *config-pathname*
   (make-pathname :defaults (user-homedir-pathname)
                  :name ".clsql-test"