Added a read-decimal-value function using cl-decimals

[clsql.git] / tests / test-internal.lisp

diff --git a/tests/test-internal.lisp b/tests/test-internal.lisp
index 1416862fc27c308a04c2791c9cd07e0e42f2df72..61076c6e716dcc5a65354668fc8d494508bffe9c 100644 (file)
--- a/tests/test-internal.lisp
+++ b/tests/test-internal.lisp
@@ -15,6 +15,7 @@
 ;;;; *************************************************************************
 
 (in-package #:clsql-tests)
+(clsql-sys:file-enable-sql-reader-syntax)
 
 (setq *rt-internal*
   '(
@@ -39,7 +40,6 @@
       "SELECT 'FOO' FROM BAR WHERE ID='Match?''?' AND CODE=$1")
 
     (deftest :int/output-caching/1
-     #.(locally-enable-sql-reader-syntax)
      ;; ensure that key generation and matching is working
      ;; so that this table doesnt balloon (more than designed)
      (list
@@ -60,12 +60,18 @@
      (1 2 2))
 
     (deftest :int/output-caching/2
-     #.(locally-enable-sql-reader-syntax)
      ;; ensure that we can disable the output cache and
      ;; still have everything work
      (let ((clsql-sys::*output-hash*))
        (list (clsql:sql [foo]) (clsql:sql [foo]) (clsql:sql [foo.bar])))
      ("FOO" "FOO" "FOO.BAR"))
 
-    ))
+    (deftest :currency/read-value/1
+      (list
+       (clsql-sys::read-decimal-value "$ 10,500.30")
+       (clsql-sys::read-decimal-value "$ 10.500,30")
+       (clsql-sys::read-decimal-value "-10 500,30")
+       (clsql-sys::read-decimal-value "$ 10.500,30"))
+      (1050030/100 1050030/100 -1050030/100 1050030/100))
 
+    ))