projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9285: 8 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
[clsql.git]
/
tests
/
test-oodml.lisp
diff --git
a/tests/test-oodml.lisp
b/tests/test-oodml.lisp
index 88a77909911a5bfb05651bb49cbd36f5176d38ab..7ad67e603754ecfbdedd1a58c59e39846aa72f2e 100644
(file)
--- a/
tests/test-oodml.lisp
+++ b/
tests/test-oodml.lisp
@@
-103,23
+103,33
@@
(employee-addresses employee2))
((t t 2 2 2)))
(employee-addresses employee2))
((t t 2 2 2)))
- ;;
:retrieval :immediate should be boundp before access
ed
+ ;;
test retrieval is deferr
ed
(deftest :oodm/retrieval/1
(deftest :oodm/retrieval/1
+ (every #'(lambda (e) (not (slot-boundp e 'company)))
+ (select 'employee :flatp t))
+ t)
+
+ ;; :retrieval :immediate should be boundp before accessed
+ (deftest :oodm/retrieval/2
(every #'(lambda (ea) (slot-boundp ea 'address))
(select 'employee-address :flatp t))
t)
(every #'(lambda (ea) (slot-boundp ea 'address))
(select 'employee-address :flatp t))
t)
- (deftest :oodm/retrieval/
2
+ (deftest :oodm/retrieval/
3
(mapcar #'(lambda (ea) (typep (slot-value ea 'address) 'address))
(select 'employee-address :flatp t))
(t t t t t))
(mapcar #'(lambda (ea) (typep (slot-value ea 'address) 'address))
(select 'employee-address :flatp t))
(t t t t t))
- ;; test retrieval is deferred
- (deftest :oodm/retrieval/3
- (every #'(lambda (e) (not (slot-boundp e 'company)))
- (select 'employee :flatp t))
+ (deftest :oodm/retrieval/4
+ (every #'(lambda (ea) (slot-boundp (slot-value ea 'address) 'addressid))
+ (select 'employee-address :flatp t))
t)
t)
+ (deftest :oodm/retrieval/5
+ (mapcar #'(lambda (ea) (slot-value (slot-value ea 'address) 'street-number))
+ (select 'employee-address :flatp t :order-by [aaddressid]))
+ (10 10 nil nil nil))
+
;; tests update-records-from-instance
(deftest :oodml/update-records/1
(values
;; tests update-records-from-instance
(deftest :oodml/update-records/1
(values