cl-postgres/simple-date-tests.lisp

   1
   2 (in-package :cl-postgres-tests)
   3
   4 (def-suite :cl-postgres-simple-date)
   5 (in-suite :cl-postgres-simple-date)
   6
   7 (test row-timestamp-without-time-zone-binary
   8   (with-test-connection
   9     (with-binary-row-values
  10       (is (time= (caaar (exec-query connection "select row('2010-04-05 14:42:21.500'::timestamp without time zone)"
  11                                     'list-row-reader))
  12                  (encode-timestamp 2010 4 5 14 42 21 500))))))
  13
  14 (test row-timestamp-with-time-zone-binary
  15   (with-test-connection
  16     (with-binary-row-values
  17       (destructuring-bind (gmt pdt)
  18           (caar
  19            (exec-query
  20             connection
  21             (concatenate 'string
  22                          "select row('2010-04-05 14:42:21.500'::timestamp with time zone at time zone 'GMT', "
  23                          " '2010-04-05 14:42:21.500'::timestamp with time zone at time zone 'PST')")
  24             'list-row-reader))
  25         (is (time= gmt (encode-timestamp 2010 4 5 14 42 21 500)))
  26         (is (time= pdt (encode-timestamp 2010 4 5 6 42 21 500)))))))
  27
  28 (test row-timestamp-without-time-zone-array-binary
  29   (with-test-connection
  30     (with-binary-row-values
  31       (is (time= (elt (caaar (exec-query connection "select row(ARRAY['2010-04-05 14:42:21.500'::timestamp without time zone])"
  32                                          'list-row-reader)) 0)
  33                  (encode-timestamp 2010 4 5 14 42 21 500))))))
  34
  35 (test row-time-binary
  36   (with-test-connection
  37     (with-binary-row-values
  38       (is (time= (caaar (exec-query connection "select row('05:00'::time)"
  39                                     'list-row-reader))
  40                  (encode-time-of-day 5 0))))))
  41
  42 (test row-timestamp-binary
  43   (with-test-connection
  44     (with-binary-row-values
  45       (is (time= (caaar (exec-query connection "select row('2010-04-05 14:42:21.500'::timestamp)"
  46                                     'list-row-reader))
  47                  (encode-timestamp 2010 4 5 14 42 21 500))))))
  48