X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Futils.lisp;fp=tests%2Futils.lisp;h=396e3030f629e99ae7e0f076b8756d7c1fc2ae93;hp=95c97172c941b782fe5f4f47381deed1fcfb8e0b;hb=b712c97002b19e418f8430cef1257515a5e3a3d3;hpb=d86f73be9a261b9c071ab905aeff5d1ee30a3f31

diff --git a/tests/utils.lisp b/tests/utils.lisp
index 95c9717..396e303 100644
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@@ -16,6 +16,12 @@
 
 (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"