;;;; *************************************************************************
(in-package #:clsql-tests)
+(clsql-sys:file-enable-sql-reader-syntax)
(setq *rt-internal*
'(
"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
(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))
+ ))