X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=7e875b26d8f182adcee256ca699364e15b79aa48;hb=550cc94ed84c6cfc61830c25fac2b39e92393b06;hp=cf9eda715d8253792e934cf2dec313f8ca46a44e;hpb=70227e5f0b76bb649fc6c1a478d7374953fd815b;p=clsql.git diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp index cf9eda7..7e875b2 100644 --- a/tests/test-oodml.lisp +++ b/tests/test-oodml.lisp @@ -4,14 +4,15 @@ ;;;; Author: Marcus Pearce ;;;; Created: 01/04/2004 ;;;; Updated: $Id$ -;;;; ====================================================================== -;;;; -;;;; Description ========================================================== -;;;; ====================================================================== ;;;; ;;;; Tests for the CLSQL Object Oriented Data Definition Language ;;;; (OODML). ;;;; +;;;; This file is part of CLSQL. +;;;; +;;;; CLSQL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ====================================================================== (in-package #:clsql-tests) @@ -23,22 +24,23 @@ (deftest :oodml/select/1 (mapcar #'(lambda (e) (slot-value e 'last-name)) - (clsql:select 'employee :order-by [last-name])) + (clsql:select 'employee :order-by [last-name] :flatp t)) ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin" "Stalin" "Trotsky" "Yeltsin")) (deftest :oodml/select/2 (mapcar #'(lambda (e) (slot-value e 'name)) - (clsql:select 'company)) + (clsql:select 'company :flatp t)) ("Widgets Inc.")) (deftest :oodml/select/3 (mapcar #'(lambda (e) (slot-value e 'companyid)) (clsql:select 'employee - :where [and [= [slot-value 'employee 'companyid] - [slot-value 'company 'companyid]] - [= [slot-value 'company 'name] - "Widgets Inc."]])) + :where [and [= [slot-value 'employee 'companyid] + [slot-value 'company 'companyid]] + [= [slot-value 'company 'name] + "Widgets Inc."]] + :flatp t)) (1 1 1 1 1 1 1 1 1 1)) (deftest :oodml/select/4 @@ -48,21 +50,45 @@ (slot-value e 'last-name))) (clsql:select 'employee :where [= [slot-value 'employee 'first-name] "Vladamir"] + :flatp t :order-by [last-name])) ("Vladamir Lenin" "Vladamir Putin")) -;; sqlite fails this because it is typeless (deftest :oodml/select/5 - (length (clsql:select 'employee :where [married])) + (length (clsql:select 'employee :where [married] :flatp t)) 3) +(deftest :oodml/select/6 + (let ((a (caar (clsql:select 'address :where [= 1 [emplid]])))) + (values + (slot-value a 'street-number) + (slot-value a 'street-name) + (slot-value a 'city) + (slot-value a 'postal-code))) + 10 "Park Place" "Leningrad" 123) + +(deftest :oodml/select/7 + (let ((a (caar (clsql:select 'address :where [= 2 [emplid]])))) + (values + (slot-value a 'street-number) + (slot-value a 'street-name) + (slot-value a 'city) + (slot-value a 'postal-code))) + nil "" "no city" 0) + +(deftest :oodml/select/8 + (mapcar #'(lambda (e) (slot-value e 'married)) + (clsql:select 'employee :flatp t :order-by [emplid])) + (t t t nil nil nil nil nil nil nil)) + ;; tests update-records-from-instance (deftest :oodml/update-records/1 (values (progn (let ((lenin (car (clsql:select 'employee :where [= [slot-value 'employee 'emplid] - 1])))) + 1] + :flatp t)))) (concatenate 'string (first-name lenin) " " @@ -76,7 +102,8 @@ (clsql:update-records-from-instance employee1) (let ((lenin (car (clsql:select 'employee :where [= [slot-value 'employee 'emplid] - 1])))) + 1] + :flatp t)))) (concatenate 'string (first-name lenin) " " @@ -90,7 +117,8 @@ (clsql:update-records-from-instance employee1) (let ((lenin (car (clsql:select 'employee :where [= [slot-value 'employee 'emplid] - 1])))) + 1] + :flatp t)))) (concatenate 'string (first-name lenin) " " @@ -106,19 +134,22 @@ (values (employee-email (car (clsql:select 'employee - :where [= [slot-value 'employee 'emplid] 1]))) + :where [= [slot-value 'employee 'emplid] 1] + :flatp t))) (progn (setf (slot-value employee1 'email) "lenin-nospam@soviet.org") (clsql:update-record-from-slot employee1 'email) (employee-email (car (clsql:select 'employee - :where [= [slot-value 'employee 'emplid] 1])))) + :where [= [slot-value 'employee 'emplid] 1] + :flatp t)))) (progn (setf (slot-value employee1 'email) "lenin@soviet.org") (clsql:update-record-from-slot employee1 'email) (employee-email (car (clsql:select 'employee - :where [= [slot-value 'employee 'emplid] 1]))))) + :where [= [slot-value 'employee 'emplid] 1] + :flatp t))))) "lenin@soviet.org" "lenin-nospam@soviet.org" "lenin@soviet.org") ;; tests update-record-from-slots @@ -126,7 +157,8 @@ (values (let ((lenin (car (clsql:select 'employee :where [= [slot-value 'employee 'emplid] - 1])))) + 1] + :flatp t)))) (concatenate 'string (first-name lenin) " " @@ -140,7 +172,8 @@ (clsql:update-record-from-slots employee1 '(first-name last-name email)) (let ((lenin (car (clsql:select 'employee :where [= [slot-value 'employee 'emplid] - 1])))) + 1] + :flatp t)))) (concatenate 'string (first-name lenin) " " @@ -154,7 +187,8 @@ (clsql:update-record-from-slots employee1 '(first-name last-name email)) (let ((lenin (car (clsql:select 'employee :where [= [slot-value 'employee 'emplid] - 1])))) + 1] + :flatp t)))) (concatenate 'string (first-name lenin) " " @@ -223,22 +257,41 @@ "lenin@soviet.org" "lenin-nospam@soviet.org" "lenin@soviet.org") -;(deftest :oodml/iteration/1 -; (clsql:do-query ((e) [select 'clsql-tests::employee :where [married] -; :order-by [emplid]]) -; (slot-value e last-name)) -; ("Lenin" "Stalin" "Trotsky")) +(deftest :oodml/do-query/1 + (let ((result '())) + (clsql:do-query ((e) [select 'employee :order-by [emplid]]) + (push (slot-value e 'last-name) result)) + result) + ("Putin" "Yeltsin" "Gorbachev" "Chernenko" "Andropov" "Brezhnev" "Kruschev" + "Trotsky" "Stalin" "Lenin")) + +(deftest :oodml/do-query/2 + (let ((result '())) + (clsql:do-query ((e c) [select 'employee 'company + :where [= [slot-value 'employee 'last-name] + "Lenin"]]) + (push (list (slot-value e 'last-name) (slot-value c 'name)) + result)) + result) + (("Lenin" "Widgets Inc."))) + +(deftest :oodml/map-query/1 + (clsql:map-query 'list #'last-name [select 'employee :order-by [emplid]]) + ("Lenin" "Stalin" "Trotsky" "Kruschev" "Brezhnev" "Andropov" "Chernenko" + "Gorbachev" "Yeltsin" "Putin")) -;(deftest :oodml/iteration/2 -; (clsql:map-query 'list #'last-name [select 'employee :where [married] -; :order-by [emplid]]) -; ("Lenin" "Stalin" "Trotsky")) +(deftest :oodml/map-query/2 + (clsql:map-query 'list #'(lambda (e c) (list (slot-value e 'last-name) + (slot-value c 'name))) + [select 'employee 'company :where [= [slot-value 'employee 'last-name] + "Lenin"]]) + (("Lenin" "Widgets Inc."))) -;(deftest :oodml/iteration/3 -; (loop for (e) being the tuples in -; [select 'employee :where [married] :order-by [emplid]] -; collect (slot-value e 'last-name)) -; ("Lenin" "Stalin" "Trotsky")) +(deftest :oodml/iteration/3 + (loop for (e) being the records in + (select 'employee :where [married] :order-by [emplid]) + collect (slot-value e 'last-name)) + ("Lenin" "Stalin" "Trotsky")) ))