projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Print the error in a useful format.
[clsql.git]
/
tests
/
ds-nodes.lisp
diff --git
a/tests/ds-nodes.lisp
b/tests/ds-nodes.lisp
index 2883b31bf924ade4a19e983dc9e8f3575044fc40..7a8c8a6250418ef82122f77e83f8813ba8fd152a 100644
(file)
--- a/
tests/ds-nodes.lisp
+++ b/
tests/ds-nodes.lisp
@@
-70,7
+70,6
@@
:warn)))
(mapc #'clsql:create-view-from-class
'(node setting user theme location subloc)))
:warn)))
(mapc #'clsql:create-view-from-class
'(node setting user theme location subloc)))
-
(setq *test-start-utime* (get-universal-time))
(let* ((*db-auto-sync* t))
(setq *test-start-utime* (get-universal-time))
(let* ((*db-auto-sync* t))
@@
-104,19
+103,15
@@
:loc "a subloc")
subloc2 (make-instance 'subloc
:title "subloc-2"
:loc "a subloc")
subloc2 (make-instance 'subloc
:title "subloc-2"
- :loc "second subloc")))
+ :loc "second subloc")))
)
- )
-
-
- (def-dataset *ds-employees*
- (:setup initialize-ds-employees)
+ (def-dataset *ds-nodes*
+ (:setup initialize-ds-nodes)
(:cleanup (lambda ()
(mapc #'clsql-sys:drop-view-from-class
(:cleanup (lambda ()
(mapc #'clsql-sys:drop-view-from-class
- '(employee company address employee-address
- node setting user theme location subloc)))))
+ '(node setting user theme location subloc)))))
#.(clsql:restore-sql-reader-syntax-state)
#.(clsql:restore-sql-reader-syntax-state)