Test roundtripping date from first century (#60)

* Allow time 1.10, 1.11, 1.12, 1.13 series

* Test that date from first century can roundtrip

Author: ysangkok

HDBC-postgresql.cabal

@@ -45,7 +45,7 @@ Library
   Build-Depends: base >= 3 && < 5, mtl, HDBC>=2.2.0, parsec, utf8-string,
                  bytestring, old-time, convertible
   if flag(minTime15)
-    Build-Depends: time >= 1.5 && < 1.10
+    Build-Depends: time >= 1.5 && < 1.14
     CPP-Options: -DMIN_TIME_15
   else
     Build-Depends: time < 1.5, old-locale
@@ -63,7 +63,7 @@ Executable runtests
                      convertible, parsec, utf8-string,
                      bytestring, old-time, base >= 4.6 && < 5.0, HDBC>=2.2.6
       if flag(minTime15)
-        Build-Depends: time >= 1.5 && < 1.9
+        Build-Depends: time >= 1.5 && < 1.14
         CPP-Options: -DMIN_TIME_15
       else
         Build-Depends: time < 1.5, old-locale

testsrc/TestSbasics.hs

@@ -1,6 +1,8 @@
 module TestSbasics(tests) where
 import Test.HUnit
+import Data.Convertible (convert)
 import Data.List
+import Data.Time (UTCTime(UTCTime), fromGregorian)
 import Database.HDBC
 import TestUtils
 import System.IO
@@ -153,6 +155,16 @@ testWithTransaction = dbTestCase (\dbh ->
                                )
     where rows = map (\x -> [Just . show $ x]) [1..9]
 
+testFirstCentury = dbTestCase $ \dbh ->
+  do -- we use UTC to avoid Local Mean Time which the 'time' library can't handle
+     runRaw dbh "SET TIMEZONE TO 'UTC';"
+     select <- prepare dbh "SELECT ? :: timestamptz;"
+     let time = UTCTime (fromGregorian 99 12 25) 0
+     execute select [toSql (convert time :: SqlValue)]
+     result <- fetchAllRows select
+     assertEqual "first century year can roundtrip"
+                 time (fromSql $ head $ head result)
+
 tests = TestList
         [
          TestLabel "openClosedb" openClosedb,
@@ -167,5 +179,6 @@ tests = TestList
          TestLabel "sFetchAllRows" testsFetchAllRows,
          TestLabel "basicTransactions" basicTransactions,
          TestLabel "withTransaction" testWithTransaction,
-         TestLabel "dropTable" dropTable
+         TestLabel "dropTable" dropTable,
+         TestLabel "firstCentury" testFirstCentury
          ]