1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
(defpackage :cl-postgres-simple-date-tests
(:use :common-lisp :fiveam :cl-postgres :cl-postgres-error :simple-date)
(:export #:prompt-connection #:*test-connection*))
(in-package :cl-postgres-simple-date-tests)
(defparameter *test-connection* '("test" "test" "" "localhost"))
(defun prompt-connection (&optional (list *test-connection*))
(flet ((ask (name pos)
(format *query-io* "~a (enter to keep '~a'): " name (nth pos list))
(finish-output *query-io*)
(let ((answer (read-line *query-io*)))
(unless (string= answer "") (setf (nth pos list) answer)))))
(format *query-io* "~%To run this test, you must configure a database connection.~%")
(ask "Database name" 0)
(ask "User" 1)
(ask "Password" 2)
(ask "Hostname" 3)))
(defmacro with-simple-date-readtable (&body body)
`(let ((*sql-readtable* (simple-date-cl-postgres-glue:simple-date-sql-readtable)))
,@body))
(defmacro with-test-connection (&body body)
`(let ((connection (apply 'open-database *test-connection*)))
(with-simple-date-readtable
(unwind-protect (progn ,@body)
(close-database connection)))))
(def-suite :cl-postgres-simple-date)
(in-suite :cl-postgres-simple-date)
(test row-timestamp-without-time-zone-binary
(with-test-connection
(with-binary-row-values
(is (time= (caaar (exec-query connection "select row('2010-04-05 14:42:21.500'::timestamp without time zone)"
'list-row-reader))
(encode-timestamp 2010 4 5 14 42 21 500))))))
(test row-timestamp-with-time-zone-binary
(with-test-connection
(exec-query connection "set time zone 'GMT'")
(with-binary-row-values
(destructuring-bind (gmt pdt)
(caar
(exec-query
connection
(concatenate 'string
"select row('2010-04-05 14:42:21.500'::timestamp with time zone at time zone 'GMT', "
" '2010-04-05 14:42:21.500'::timestamp with time zone at time zone 'PST')")
'list-row-reader))
(is (time= gmt (encode-timestamp 2010 4 5 14 42 21 500)))
(is (time= pdt (encode-timestamp 2010 4 5 6 42 21 500)))))))
(test row-timestamp-without-time-zone-array-binary
(with-test-connection
(with-binary-row-values
(is (time= (elt (caaar (exec-query connection "select row(ARRAY['2010-04-05 14:42:21.500'::timestamp without time zone])"
'list-row-reader)) 0)
(encode-timestamp 2010 4 5 14 42 21 500))))))
(test row-time-binary
(with-test-connection
(with-binary-row-values
(is (time= (caaar (exec-query connection "select row('05:00'::time)"
'list-row-reader))
(encode-time-of-day 5 0))))))
(test row-timestamp-binary
(with-test-connection
(with-binary-row-values
(is (time= (caaar (exec-query connection "select row('2010-04-05 14:42:21.500'::timestamp)"
'list-row-reader))
(encode-timestamp 2010 4 5 14 42 21 500))))))
|
