X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fds-nodes.lisp;h=7a8c8a6250418ef82122f77e83f8813ba8fd152a;hb=704367c500a9fac40e97663f794fa4042df1512a;hp=2883b31bf924ade4a19e983dc9e8f3575044fc40;hpb=9374619101fdb679974192b5939c0eb15e31c39d;p=clsql.git diff --git a/tests/ds-nodes.lisp b/tests/ds-nodes.lisp index 2883b31..7a8c8a6 100644 --- 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))) - (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 "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 - '(employee company address employee-address - node setting user theme location subloc))))) + '(node setting user theme location subloc))))) #.(clsql:restore-sql-reader-syntax-state)