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 8ee2b031c6df7986a63d89a2125bd915c1167309..61076c6e716dcc5a65354668fc8d494508bffe9c 100644 (file)
--- a/tests/test-internal.lisp
+++ b/tests/test-internal.lisp
@@ -66,5 +66,12 @@
        (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))
 
+    ))