Fabio Erculiani
101 lines
3.5 KiB
Haskell
101 lines
3.5 KiB
Haskell
module TestTime(tests) where
|
|
import Test.HUnit
|
|
import Database.HDBC
|
|
import TestUtils
|
|
import Control.Exception
|
|
import Data.Time
|
|
import Data.Time.LocalTime
|
|
import Data.Time.Clock.POSIX
|
|
import Data.Maybe
|
|
import Data.Convertible
|
|
import SpecificDB
|
|
import System.Locale(defaultTimeLocale)
|
|
import Database.HDBC.Locale (iso8601DateFormat)
|
|
import qualified System.Time as ST
|
|
|
|
instance Eq ZonedTime where
|
|
a == b = zonedTimeToUTC a == zonedTimeToUTC b &&
|
|
zonedTimeZone a == zonedTimeZone b
|
|
|
|
testZonedTime :: ZonedTime
|
|
testZonedTime = fromJust $ parseTime defaultTimeLocale (iso8601DateFormat (Just "%T %z"))
|
|
"1989-08-01 15:33:01 -0500"
|
|
|
|
testZonedTimeFrac :: ZonedTime
|
|
testZonedTimeFrac = fromJust $ parseTime defaultTimeLocale (iso8601DateFormat (Just "%T%Q %z"))
|
|
"1989-08-01 15:33:01.536 -0500"
|
|
|
|
|
|
rowdata t = [[SqlInt32 100, toSql t, SqlNull]]
|
|
|
|
testDTType inputdata convToSqlValue = dbTestCase $ \dbh ->
|
|
do run dbh ("CREATE TABLE hdbctesttime (testid INTEGER PRIMARY KEY NOT NULL, \
|
|
\testvalue " ++ dateTimeTypeOfSqlValue value ++ ")") []
|
|
finally (testIt dbh) (do commit dbh
|
|
run dbh "DROP TABLE hdbctesttime" []
|
|
commit dbh
|
|
)
|
|
where testIt dbh =
|
|
do run dbh "INSERT INTO hdbctesttime (testid, testvalue) VALUES (?, ?)"
|
|
[iToSql 5, value]
|
|
commit dbh
|
|
r <- quickQuery' dbh "SELECT testid, testvalue FROM hdbctesttime" []
|
|
case r of
|
|
[[testidsv, testvaluesv]] ->
|
|
do assertEqual "testid" (5::Int) (fromSql testidsv)
|
|
assertEqual "testvalue" inputdata (fromSql testvaluesv)
|
|
value = convToSqlValue inputdata
|
|
|
|
mkTest label inputdata convfunc =
|
|
TestLabel label (testDTType inputdata convfunc)
|
|
|
|
tests = TestList $
|
|
((TestLabel "Non-frac" $ testIt testZonedTime) :
|
|
if supportsFracTime then [TestLabel "Frac" $ testIt testZonedTimeFrac] else [])
|
|
|
|
testIt baseZonedTime =
|
|
TestList [mkTest "Day" baseDay toSql,
|
|
mkTest "TimeOfDay" baseTimeOfDay toSql,
|
|
mkTest "ZonedTimeOfDay" baseZonedTimeOfDay toSql,
|
|
mkTest "LocalTime" baseLocalTime toSql,
|
|
mkTest "ZonedTime" baseZonedTime toSql,
|
|
mkTest "UTCTime" baseUTCTime toSql,
|
|
mkTest "DiffTime" baseDiffTime toSql,
|
|
mkTest "POSIXTime" basePOSIXTime posixToSql,
|
|
mkTest "ClockTime" baseClockTime toSql,
|
|
mkTest "CalendarTime" baseCalendarTime toSql,
|
|
mkTest "TimeDiff" baseTimeDiff toSql
|
|
]
|
|
where
|
|
baseDay :: Day
|
|
baseDay = localDay baseLocalTime
|
|
|
|
baseTimeOfDay :: TimeOfDay
|
|
baseTimeOfDay = localTimeOfDay baseLocalTime
|
|
|
|
baseZonedTimeOfDay :: (TimeOfDay, TimeZone)
|
|
baseZonedTimeOfDay = fromSql (SqlZonedTime baseZonedTime)
|
|
|
|
baseLocalTime :: LocalTime
|
|
baseLocalTime = zonedTimeToLocalTime baseZonedTime
|
|
|
|
baseUTCTime :: UTCTime
|
|
baseUTCTime = convert baseZonedTime
|
|
|
|
baseDiffTime :: NominalDiffTime
|
|
baseDiffTime = basePOSIXTime
|
|
|
|
basePOSIXTime :: POSIXTime
|
|
basePOSIXTime = convert baseZonedTime
|
|
|
|
baseTimeDiff :: ST.TimeDiff
|
|
baseTimeDiff = convert baseDiffTime
|
|
|
|
-- No fractional parts for these two
|
|
|
|
baseClockTime :: ST.ClockTime
|
|
baseClockTime = convert testZonedTime
|
|
|
|
baseCalendarTime :: ST.CalendarTime
|
|
baseCalendarTime = convert testZonedTime
|