r9478: 25 May 2004 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / tests / test-init.lisp

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 65930c2e9d858b2945074fdc330026b29ad28f33..6f15d412303d28bc4cd9a055bf08806b0152899d 100644 (file)
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -55,15 +55,15 @@
     :initarg :groupid)
    (first-name
     :accessor first-name
     :initarg :groupid)
    (first-name
     :accessor first-name

-    :type (string 30)
+    :type (varchar 30)

     :initarg :first-name)
    (last-name
     :accessor last-name
     :initarg :first-name)
    (last-name
     :accessor last-name

-    :type (string 30)
+    :type (varchar 30)

     :initarg :last-name)
    (email
     :accessor employee-email
     :initarg :last-name)
    (email
     :accessor employee-email

-    :type (string 100)
+    :type (varchar 100)

     :initarg :email)
    (ecompanyid
     :type integer
     :initarg :email)
    (ecompanyid
     :type integer


@@ -107,7 +107,7 @@
     :type integer
     :initarg :groupid)
    (name
     :type integer
     :initarg :groupid)
    (name

-    :type (string 100)
+    :type (varchar 100)

     :initarg :name)
    (presidentid
     :type integer
     :initarg :name)
    (presidentid
     :type integer


@@ -137,13 +137,13 @@
     :type integer
     :initarg :street-number)
    (street-name
     :type integer
     :initarg :street-number)
    (street-name

-    :type (string 30)
+    :type (varchar 30)

     :void-value ""
     :initarg :street-name)
    (city
     :column "city_field"
     :void-value "no city"
     :void-value ""
     :initarg :street-name)
    (city
     :column "city_field"
     :void-value "no city"

-    :type (string 30)
+    :type (varchar 30)

     :initarg :city)
    (postal-code
     :column zip
     :initarg :city)
    (postal-code
     :column zip