X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fds-nodes.lisp;h=bb43ff09de8579b126f4052cf9c8ac829b37f828;hb=0c630df241d11c7d46202bdd324e4b499b7529ab;hp=2883b31bf924ade4a19e983dc9e8f3575044fc40;hpb=9374619101fdb679974192b5939c0eb15e31c39d;p=clsql.git

diff --git a/tests/ds-nodes.lisp b/tests/ds-nodes.lisp
index 2883b31..bb43ff0 100644
--- a/tests/ds-nodes.lisp
+++ b/tests/ds-nodes.lisp
@@ -19,7 +19,7 @@
 
 
 
-;; 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
@@ -34,31 +34,31 @@
   ((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))
 
 
 
@@ -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)