1 (in-package #:clsql-tests)
3 (clsql-sys:file-enable-sql-reader-syntax)
5 (defparameter basenode nil)
6 (defparameter derivednode1 nil)
7 (defparameter derivednode2 nil)
8 (defparameter node nil)
9 (defparameter setting1 nil)
10 (defparameter setting2 nil)
11 (defparameter user1 nil)
12 (defparameter user2 nil)
13 (defparameter theme1 nil)
14 (defparameter theme2 nil)
15 (defparameter loc1 nil)
16 (defparameter loc2 nil)
17 (defparameter subloc1 nil)
18 (defparameter subloc2 nil)
21 ;; classes for testing the normalizedp stuff
22 (def-view-class node ()
23 ((node-id :accessor node-id :initarg :node-id
24 :type integer :db-kind :key
25 :db-constraints (:not-null :auto-increment))
26 (title :accessor title :initarg :title :type (varchar 240))
27 (createtime :accessor createtime :initarg :createtime :type wall-time
28 :db-constraints (:not-null) :initform (get-time))
29 (modifiedtime :accessor modifiedtime :initarg :modifiedtime :type wall-time
30 :initform (make-time :year 1900 :month 1 :day 1))))
32 (def-view-class setting (node)
33 ((setting-id :accessor setting-id :initarg :setting-id
34 :type integer :db-kind :key :db-constraints (:not-null :auto-increment))
35 (vars :accessor vars :initarg :vars :type (varchar 240)))
38 (def-view-class user (node)
39 ((user-id :accessor user-id :initarg :user-id
40 :type integer :db-kind :key :db-constraints (:not-null :auto-increment))
41 (nick :accessor nick :initarg :nick :type (varchar 64)))
42 (:base-table "nodeuser")
45 (def-view-class theme (setting)
46 ((theme-id :accessor theme-id :initarg :theme-id
47 :type integer :db-kind :key :db-constraints (:not-null :auto-increment))
48 (doc :accessor doc :initarg :doc :type (varchar 240)))
51 ;; A class that uses only a superclass db table
52 (def-view-class location (node)
57 (def-view-class subloc (location)
58 ((subloc-id :accessor subloc-id :initarg :subloc-id
59 :type integer :db-kind :key :db-constraints (:not-null :auto-increment))
60 (loc :accessor loc :initarg :loc :type (varchar 64)))
65 (defun initialize-ds-nodes ()
66 ;; (start-sql-recording :type :both)
67 (let ((*backend-warning-behavior*
68 (if (member *test-database-type* '(:postgresql :postgresql-socket))
71 (mapc #'clsql:create-view-from-class
72 '(node setting user theme location subloc)))
74 (setq *test-start-utime* (get-universal-time))
75 (let* ((*db-auto-sync* t))
76 (setf node (make-instance 'node
78 setting1 (make-instance 'setting
81 setting2 (make-instance 'setting
84 user1 (make-instance 'user
87 user2 (make-instance 'user
90 theme1 (make-instance 'theme
94 theme2 (make-instance 'theme
97 loc1 (make-instance 'location
99 loc2 (make-instance 'location
101 subloc1 (make-instance 'subloc
104 subloc2 (make-instance 'subloc
106 :loc "second subloc"))))
111 (def-dataset *ds-nodes*
112 (:setup initialize-ds-nodes)
114 (mapc #'clsql-sys:drop-view-from-class
115 '(node setting user theme location subloc))
117 (clsql-sys:execute-command "DROP TABLE nodeuser")
118 (mapc #'clsql-sys:drop-sequence
119 '(node_node_id_seq setting_setting_id_seq subloc_subloc_id_seq
120 theme_theme_id_seq nodeuser_user_id_seq)