-;; classes for testing the normalisedp stuff
+;; classes for testing the normalizedp stuff
(def-view-class node ()
((node-id :accessor node-id :initarg :node-id
:type integer :db-kind :key
((setting-id :accessor setting-id :initarg :setting-id
:type integer :db-kind :key :db-constraints (:not-null))
(vars :accessor vars :initarg :vars :type (varchar 240)))
- (:normalisedp t))
+ (:normalizedp t))
(def-view-class user (node)
((user-id :accessor user-id :initarg :user-id
:type integer :db-kind :key :db-constraints (:not-null))
(nick :accessor nick :initarg :nick :type (varchar 64)))
- (:normalisedp t))
+ (:normalizedp t))
(def-view-class theme (setting)
((theme-id :accessor theme-id :initarg :theme-id
:type integer :db-kind :key :db-constraints (:not-null))
(doc :accessor doc :initarg :doc :type (varchar 240)))
- (:normalisedp t))
+ (:normalizedp t))
;; A class that uses only a superclass db table
(def-view-class location (node)
()
(:base-table node)
- (:normalisedp t))
+ (:normalizedp t))
(def-view-class subloc (location)
((subloc-id :accessor subloc-id :initarg :subloc-id
:type integer :db-kind :key :db-constraints (:not-null))
(loc :accessor loc :initarg :loc :type (varchar 64)))
- (:normalisedp t))
+ (:normalizedp t))
: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))
: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)