paul/opium
1
0
Fork 0
Code Issues 3 Pull Requests Packages Projects Releases Wiki Activity

Add comment about difference between Postgres and Haskell dates

Browse Source
This commit is contained in:
paul
2023-10-04 13:30:51 +02:00
parent 9c93d3a42b
commit 4f39966da2
2 changed files with 28 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Database/PostgreSQL/Opium/FromFieldSpec.hs
+15 -15
View File
@@ -7,11 +7,10 @@ import Data.ByteString (ByteString)
import Data.Time
( Day (..)
, DiffTime
, LocalTime (..)
, TimeOfDay (..)
, UTCTime (..)
, fromGregorian
, secondsToDiffTime
, timeOfDayToTime
)
import Data.Text (Text)
import Database.PostgreSQL.LibPQ (Connection)
@@ -101,11 +100,11 @@ newtype ATimeOfDay = ATimeOfDay
instance FromRow ATimeOfDay where
newtype AUTCTime = AUTCTime
{ utctime :: UTCTime
newtype ALocalTime = ALocalTime
{ localtime :: LocalTime
} deriving (Eq, Generic, Show)
instance FromRow AUTCTime where
instance FromRow ALocalTime where
newtype ARawField = ARawField
{ raw :: Opium.RawField ByteString
@@ -252,7 +251,7 @@ spec = do
-- BC
-- See https://www.postgresql.org/docs/current/datetime-input-rules.html:
-- "If BC has been specified, negate the year and add one for internal storage. (There is no year zero in the Gregorian calendar, so numerically 1 BC becomes year zero.)"
shouldFetch conn "SELECT date 'January 1, 4710 BC' AS day" [ADay $ fromGregorian (-4710) 1 1]
shouldFetch conn "SELECT date '0001-02-29 BC' AS day" [ADay $ fromGregorian 0 2 29]
describe "FromField DiffTime" $ do
it "Decodes the time" $ \conn -> do
@@ -266,19 +265,20 @@ spec = do
shouldFetch conn "SELECT time '00:01:00' AS timeofday" [ATimeOfDay $ TimeOfDay 0 1 0]
shouldFetch conn "SELECT time '13:07:43' AS timeofday" [ATimeOfDay $ TimeOfDay 13 7 43]
describe "FromField UTCTime" $ do
describe "FromField LocalTime" $ do
it "Decodes timestamp" $ \conn -> do
let ts0 = UTCTime (fromGregorian 2023 10 2) (timeOfDayToTime $ TimeOfDay 12 42 23)
shouldFetch conn "SELECT timestamp '2023-10-02 12:42:23' AS utctime" [AUTCTime ts0]
let ts0 = LocalTime (fromGregorian 2023 10 2) (TimeOfDay 12 42 23)
shouldFetch conn "SELECT timestamp '2023-10-02 12:42:23' AS localtime" [ALocalTime ts0]
let ts1 = UTCTime (fromGregorian 294275 12 31) (timeOfDayToTime $ TimeOfDay 23 59 59)
shouldFetch conn "SELECT timestamp '294275-12-31 23:59:59' AS utctime" [AUTCTime ts1]
let ts1 = LocalTime (fromGregorian 294275 12 31) (TimeOfDay 23 59 59)
shouldFetch conn "SELECT timestamp '294275-12-31 23:59:59' AS localtime" [ALocalTime ts1]
let ts2 = UTCTime (fromGregorian 1 1 1) (timeOfDayToTime $ TimeOfDay 0 0 0)
shouldFetch conn "SELECT timestamp '0001-01-01 00:00:00' AS utctime" [AUTCTime ts2]
let ts2 = LocalTime (fromGregorian 1 1 1) (TimeOfDay 0 0 0)
shouldFetch conn "SELECT timestamp '0001-01-01 00:00:00' AS localtime" [ALocalTime ts2]
let ts3 = UTCTime (fromGregorian (-4710) 1 1) (timeOfDayToTime $ TimeOfDay 0 0 0)
shouldFetch conn "SELECT timestamp 'January 1, 4710 BC 00:00:00' AS utctime" [AUTCTime ts3]
-- See note at the FromField Day instance.
let ts3 = LocalTime (fromGregorian 0 2 29) (TimeOfDay 0 0 0)
shouldFetch conn "SELECT timestamp '0001-02-29 BC 00:00:00' AS localtime" [ALocalTime ts3]
describe "FromField RawField" $ do
it "Simply returns the bytestring without decoding it" $ \conn -> do