tests/test-oodml.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; ======================================================================
   3 ;;;; File:    test-oodml.lisp
   4 ;;;; Author:  Marcus Pearce <m.t.pearce@city.ac.uk>
   5 ;;;; Created: 01/04/2004
   6 ;;;; Updated: $Id$
   7 ;;;;
   8 ;;;; Tests for the CLSQL Object Oriented Data Definition Language
   9 ;;;; (OODML).
  10 ;;;;
  11 ;;;; This file is part of CLSQL.
  12 ;;;;
  13 ;;;; CLSQL users are granted the rights to distribute and use this software
  14 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  15 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  16 ;;;; ======================================================================
  17
  18 (in-package #:clsql-tests)
  19
  20 #.(clsql:locally-enable-sql-reader-syntax)
  21
  22 (setq *rt-oodml*
  23       '(
  24
  25 (deftest :oodml/select/1
  26     (mapcar #'(lambda (e) (slot-value e 'last-name))
  27             (clsql:select 'employee :order-by [last-name] :flatp t))
  28   ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
  29               "Stalin" "Trotsky" "Yeltsin"))
  30
  31 (deftest :oodml/select/2
  32     (mapcar #'(lambda (e) (slot-value e 'name))
  33             (clsql:select 'company :flatp t))
  34   ("Widgets Inc."))
  35
  36 (deftest :oodml/select/3
  37     (mapcar #'(lambda (e) (slot-value e 'companyid))
  38             (clsql:select 'employee
  39                           :where [and [= [slot-value 'employee 'companyid]
  40                                          [slot-value 'company 'companyid]]
  41                                       [= [slot-value 'company 'name]
  42                                          "Widgets Inc."]]
  43                           :flatp t))
  44   (1 1 1 1 1 1 1 1 1 1))
  45
  46 (deftest :oodml/select/4
  47     (mapcar #'(lambda (e)
  48                 (concatenate 'string (slot-value e 'first-name)
  49                              " "
  50                              (slot-value e 'last-name)))
  51             (clsql:select 'employee :where [= [slot-value 'employee 'first-name]
  52                                              "Vladamir"]
  53                          :flatp t
  54                          :order-by [last-name]))
  55   ("Vladamir Lenin" "Vladamir Putin"))
  56
  57 (deftest :oodml/select/5
  58     (length (clsql:select 'employee :where [married] :flatp t))
  59   3)
  60
  61 (deftest :oodml/select/6
  62     (slot-value (caar (clsql:select 'employee :where [= 1 [emplid]])) 'married)
  63   t)
  64
  65 (deftest :oodml/select/7
  66     (slot-value (caar (clsql:select 'employee :where [= 4 [emplid]])) 'married)
  67   nil)
  68
  69 ;; tests update-records-from-instance
  70 (deftest :oodml/update-records/1
  71     (values
  72      (progn
  73        (let ((lenin (car (clsql:select 'employee
  74                                       :where [= [slot-value 'employee 'emplid]
  75                                                 1]
  76                                       :flatp t))))
  77          (concatenate 'string
  78                       (first-name lenin)
  79                       " "
  80                       (last-name lenin)
  81                       ": "
  82                       (employee-email lenin))))
  83        (progn
  84          (setf (slot-value employee1 'first-name) "Dimitriy"
  85                (slot-value employee1 'last-name) "Ivanovich"
  86                (slot-value employee1 'email) "ivanovich@soviet.org")
  87          (clsql:update-records-from-instance employee1)
  88          (let ((lenin (car (clsql:select 'employee
  89                                       :where [= [slot-value 'employee 'emplid]
  90                                                 1]
  91                                       :flatp t))))
  92            (concatenate 'string
  93                         (first-name lenin)
  94                         " "
  95                         (last-name lenin)
  96                         ": "
  97                         (employee-email lenin))))
  98        (progn
  99          (setf (slot-value employee1 'first-name) "Vladamir"
 100                (slot-value employee1 'last-name) "Lenin"
 101                (slot-value employee1 'email) "lenin@soviet.org")
 102          (clsql:update-records-from-instance employee1)
 103          (let ((lenin (car (clsql:select 'employee
 104                                       :where [= [slot-value 'employee 'emplid]
 105                                                 1]
 106                                       :flatp t))))
 107            (concatenate 'string
 108                         (first-name lenin)
 109                         " "
 110                         (last-name lenin)
 111                         ": "
 112                         (employee-email lenin)))))
 113   "Vladamir Lenin: lenin@soviet.org"
 114   "Dimitriy Ivanovich: ivanovich@soviet.org"
 115   "Vladamir Lenin: lenin@soviet.org")
 116
 117 ;; tests update-record-from-slot
 118 (deftest :oodml/update-records/2
 119     (values
 120      (employee-email
 121       (car (clsql:select 'employee
 122                         :where [= [slot-value 'employee 'emplid] 1]
 123                         :flatp t)))
 124      (progn
 125        (setf (slot-value employee1 'email) "lenin-nospam@soviet.org")
 126        (clsql:update-record-from-slot employee1 'email)
 127        (employee-email
 128         (car (clsql:select 'employee
 129                           :where [= [slot-value 'employee 'emplid] 1]
 130                           :flatp t))))
 131      (progn
 132        (setf (slot-value employee1 'email) "lenin@soviet.org")
 133        (clsql:update-record-from-slot employee1 'email)
 134        (employee-email
 135         (car (clsql:select 'employee
 136                           :where [= [slot-value 'employee 'emplid] 1]
 137                           :flatp t)))))
 138   "lenin@soviet.org" "lenin-nospam@soviet.org" "lenin@soviet.org")
 139
 140 ;; tests update-record-from-slots
 141 (deftest :oodml/update-records/3
 142     (values
 143      (let ((lenin (car (clsql:select 'employee
 144                                     :where [= [slot-value 'employee 'emplid]
 145                                               1]
 146                                     :flatp t))))
 147        (concatenate 'string
 148                     (first-name lenin)
 149                     " "
 150                     (last-name lenin)
 151                     ": "
 152                     (employee-email lenin)))
 153      (progn
 154        (setf (slot-value employee1 'first-name) "Dimitriy"
 155              (slot-value employee1 'last-name) "Ivanovich"
 156              (slot-value employee1 'email) "ivanovich@soviet.org")
 157        (clsql:update-record-from-slots employee1 '(first-name last-name email))
 158        (let ((lenin (car (clsql:select 'employee
 159                                       :where [= [slot-value 'employee 'emplid]
 160                                                 1]
 161                                       :flatp t))))
 162          (concatenate 'string
 163                       (first-name lenin)
 164                       " "
 165                       (last-name lenin)
 166                       ": "
 167                       (employee-email lenin))))
 168      (progn
 169        (setf (slot-value employee1 'first-name) "Vladamir"
 170              (slot-value employee1 'last-name) "Lenin"
 171              (slot-value employee1 'email) "lenin@soviet.org")
 172        (clsql:update-record-from-slots employee1 '(first-name last-name email))
 173        (let ((lenin (car (clsql:select 'employee
 174                                       :where [= [slot-value 'employee 'emplid]
 175                                                 1]
 176                                       :flatp t))))
 177          (concatenate 'string
 178                       (first-name lenin)
 179                       " "
 180                       (last-name lenin)
 181                       ": "
 182                       (employee-email lenin)))))
 183   "Vladamir Lenin: lenin@soviet.org"
 184   "Dimitriy Ivanovich: ivanovich@soviet.org"
 185   "Vladamir Lenin: lenin@soviet.org")
 186
 187 ;; tests update-instance-from-records
 188 (deftest :oodml/update-instance/1
 189     (values
 190      (concatenate 'string
 191                   (slot-value employee1 'first-name)
 192                   " "
 193                   (slot-value employee1 'last-name)
 194                   ": "
 195                   (slot-value employee1 'email))
 196      (progn
 197        (clsql:update-records [employee]
 198                             :av-pairs '(([first-name] "Ivan")
 199                                         ([last-name] "Petrov")
 200                                         ([email] "petrov@soviet.org"))
 201                             :where [= [emplid] 1])
 202        (clsql:update-instance-from-records employee1)
 203        (concatenate 'string
 204                     (slot-value employee1 'first-name)
 205                     " "
 206                     (slot-value employee1 'last-name)
 207                     ": "
 208                     (slot-value employee1 'email)))
 209      (progn
 210        (clsql:update-records [employee]
 211                             :av-pairs '(([first-name] "Vladamir")
 212                                         ([last-name] "Lenin")
 213                                         ([email] "lenin@soviet.org"))
 214                             :where [= [emplid] 1])
 215        (clsql:update-instance-from-records employee1)
 216        (concatenate 'string
 217                     (slot-value employee1 'first-name)
 218                     " "
 219                     (slot-value employee1 'last-name)
 220                     ": "
 221                     (slot-value employee1 'email))))
 222   "Vladamir Lenin: lenin@soviet.org"
 223   "Ivan Petrov: petrov@soviet.org"
 224   "Vladamir Lenin: lenin@soviet.org")
 225
 226 ;; tests update-slot-from-record
 227 (deftest :oodml/update-instance/2
 228     (values
 229      (slot-value employee1 'email)
 230      (progn
 231        (clsql:update-records [employee]
 232                             :av-pairs '(([email] "lenin-nospam@soviet.org"))
 233                             :where [= [emplid] 1])
 234        (clsql:update-slot-from-record employee1 'email)
 235        (slot-value employee1 'email))
 236      (progn
 237        (clsql:update-records [employee]
 238                             :av-pairs '(([email] "lenin@soviet.org"))
 239                             :where [= [emplid] 1])
 240        (clsql:update-slot-from-record employee1 'email)
 241        (slot-value employee1 'email)))
 242   "lenin@soviet.org" "lenin-nospam@soviet.org" "lenin@soviet.org")
 243
 244
 245 (deftest :oodml/do-query/1
 246      (let ((result '()))
 247        (clsql:do-query ((e) [select 'employee :order-by [emplid]])
 248          (push (slot-value e 'last-name) result))
 249        result)
 250    ("Putin" "Yeltsin" "Gorbachev" "Chernenko" "Andropov" "Brezhnev" "Kruschev"
 251  "Trotsky" "Stalin" "Lenin"))
 252
 253 (deftest :oodml/do-query/2
 254      (let ((result '()))
 255        (clsql:do-query ((e c) [select 'employee 'company
 256                                   :where [= [slot-value 'employee 'last-name]
 257                                   "Lenin"]])
 258          (push (list (slot-value e 'last-name) (slot-value c 'name))
 259                result))
 260        result)
 261  (("Lenin" "Widgets Inc.")))
 262
 263 (deftest :oodml/map-query/1
 264      (clsql:map-query 'list #'last-name [select 'employee :order-by [emplid]])
 265  ("Lenin" "Stalin" "Trotsky" "Kruschev" "Brezhnev" "Andropov" "Chernenko"
 266   "Gorbachev" "Yeltsin" "Putin"))
 267
 268 (deftest :oodml/map-query/2
 269      (clsql:map-query 'list #'(lambda (e c) (list (slot-value e 'last-name)
 270                                                   (slot-value c 'name)))
 271       [select 'employee 'company :where [= [slot-value 'employee 'last-name]
 272                                            "Lenin"]])
 273  (("Lenin" "Widgets Inc.")))
 274
 275 ;(deftest :oodml/iteration/3
 276 ;    (loop for (e) being the tuples in
 277 ;          [select 'employee :where [married] :order-by [emplid]]
 278 ;          collect (slot-value e 'last-name))
 279 ;  ("Lenin" "Stalin" "Trotsky"))
 280
 281 ))
 282
 283 #.(clsql:restore-sql-reader-syntax-state)