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
|
module Main where
import Test.Calendar.AddDays
import Test.Calendar.CalendarProps
import Test.Calendar.Calendars
import Test.Calendar.ClipDates
import Test.Calendar.ConvertBack
import Test.Calendar.DayPeriod
import Test.Calendar.Duration
import Test.Calendar.Easter
import Test.Calendar.LongWeekYears
import Test.Calendar.MonthDay
import Test.Calendar.MonthOfYear
import Test.Calendar.Valid
import Test.Calendar.Week
import Test.Calendar.Year
import Test.Clock.Conversion
import Test.Clock.Lift (testLift)
import Test.Clock.Resolution
import Test.Clock.TAI
import Test.Format.Compile ()
import Test.Format.Format
import Test.Format.ISO8601
import Test.Format.ParseTime
import Test.LocalTime.CalendarDiffTime
import Test.LocalTime.Time
import Test.LocalTime.TimeOfDay
import Test.Tasty
import Test.Types ()
tests :: TestTree
tests =
testGroup
"Time"
[ testGroup
"Calendar"
[ addDaysTest
, testCalendarProps
, testCalendars
, clipDates
, convertBack
, longWeekYears
, testDayPeriod
, testMonthDay
, testMonthOfYear
, testEaster
, testValid
, testWeek
, testYear
, testDuration
]
, testGroup "Clock" [testClockConversion, testResolutions, testTAI, testLift]
-- , testGroup "Format" [testFormat, testParseTime, testISO8601]
, testGroup "LocalTime" [{- testTime, -} testTimeOfDay, testCalendarDiffTime]
]
main :: IO ()
main = defaultMain tests
|
