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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
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
|
GitWeb