projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9408: 19 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 3cde0a75602354d67d57069324976e52f7221893..1d8c6948ba807a91bb68bb7658465e9211e3d90b 100644
(file)
--- a/
tests/test-oodml.lisp
+++ b/
tests/test-oodml.lisp
@@
-110,8
+110,8
@@
(clsql:select 'employee :order-by '(([emplid] :asc))
:flatp t))
(mapcar #'(lambda (x) (slot-value x 'emplid))
(clsql:select 'employee :order-by '(([emplid] :asc))
:flatp t))
(mapcar #'(lambda (x) (slot-value x 'emplid))
-
(clsql:select 'employee :order-by '(([emplid] :desc))
-
:flatp t)))
+ (clsql:select 'employee :order-by '(([emplid] :desc))
+ :flatp t)))
(1 2 3 4 5 6 7 8 9 10)
(10 9 8 7 6 5 4 3 2 1))
(1 2 3 4 5 6 7 8 9 10)
(10 9 8 7 6 5 4 3 2 1))
@@
-154,7
+154,7
@@
(deftest :oodm/retrieval/8
(mapcar #'(lambda (ea) (slot-value (slot-value ea 'address) 'street-number))
(deftest :oodm/retrieval/8
(mapcar #'(lambda (ea) (slot-value (slot-value ea 'address) 'street-number))
- (select 'employee-address :flatp t :order-by [aaddressid] :caching nil))
+ (select 'employee-address :flatp t :order-by [
ea_join
aaddressid] :caching nil))
(10 10 nil nil nil))
(deftest :oodm/retrieval/9
(10 10 nil nil nil))
(deftest :oodm/retrieval/9