projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Automated commit for upstream build of version 6.6.3
[clsql.git]
/
tests
/
test-oodml.lisp
diff --git
a/tests/test-oodml.lisp
b/tests/test-oodml.lisp
index 63e1d50c89d62719167f76b53a5ed247d22fb911..042fd48b6d71bb39cf8cb720ad60ae159dc76d85 100644
(file)
--- a/
tests/test-oodml.lisp
+++ b/
tests/test-oodml.lisp
@@
-25,19
+25,19
@@
(clsql-sys::read-sql-value
(clsql-sys::database-output-sql-as-type 'symbol 'clsql-tests::foo nil nil)
'symbol nil nil)
(clsql-sys::read-sql-value
(clsql-sys::database-output-sql-as-type 'symbol 'clsql-tests::foo nil nil)
'symbol nil nil)
-
'(clsql-tests::foo)
)
+
clsql-tests::foo
)
(deftest :oodml/read-symbol-value/2-into-another-pacakge
(clsql-sys::read-sql-value
(clsql-sys::database-output-sql-as-type 'symbol 'clsql-sys::foo nil nil)
'symbol nil nil)
(deftest :oodml/read-symbol-value/2-into-another-pacakge
(clsql-sys::read-sql-value
(clsql-sys::database-output-sql-as-type 'symbol 'clsql-sys::foo nil nil)
'symbol nil nil)
-
'(clsql-sys::foo)
)
+
clsql-sys::foo
)
(deftest :oodml/read-symbol-value/3-keyword
(clsql-sys::read-sql-value
(clsql-sys::database-output-sql-as-type 'keyword ':foo nil nil)
'keyword nil nil)
(deftest :oodml/read-symbol-value/3-keyword
(clsql-sys::read-sql-value
(clsql-sys::database-output-sql-as-type 'keyword ':foo nil nil)
'keyword nil nil)
-
'(:foo)
)
+
:foo
)
(deftest :oodml/read-symbol-value/4-keyword-error
(handler-case
(deftest :oodml/read-symbol-value/4-keyword-error
(handler-case
@@
-46,7
+46,7
@@
'keyword nil nil)
(clsql-sys::sql-value-conversion-error (c) (declare (ignore c))
:error))
'keyword nil nil)
(clsql-sys::sql-value-conversion-error (c) (declare (ignore c))
:error))
-
'(:error)
)
+
:error
)
(deftest :oodml/select/1
(with-dataset *ds-employees*
(deftest :oodml/select/1
(with-dataset *ds-employees*
@@
-302,6
+302,14
@@
(select 'deferred-employee-address :flatp t :order-by [aaddressid] :caching nil)))
(10 10 nil nil nil nil))
(select 'deferred-employee-address :flatp t :order-by [aaddressid] :caching nil)))
(10 10 nil nil nil nil))
+(deftest :oodm/retrieval/10-slot-columns
+ (with-dataset *ds-employees*
+ (mapcar #'title
+ (select 'employee :flatp t :caching nil
+ :where [<= [emplid] 3]
+ :order-by `((,[emplid] :asc)))))
+ (supplicant :adherent cl-user::novice))
+
;; tests update-records-from-instance
(deftest :oodml/update-records/1
(with-dataset *ds-employees*
;; tests update-records-from-instance
(deftest :oodml/update-records/1
(with-dataset *ds-employees*