X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-internal.lisp;fp=tests%2Ftest-internal.lisp;h=61076c6e716dcc5a65354668fc8d494508bffe9c;hp=8ee2b031c6df7986a63d89a2125bd915c1167309;hb=6ba1e44b4faf89ed2aa0ebdf410eebd65e04b3a5;hpb=eeb36233c9881cd2bb141f7a3241afbe82feda8d

diff --git a/tests/test-internal.lisp b/tests/test-internal.lisp
index 8ee2b03..61076c6 100644
--- 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))
 
+    ))