import Test.Tasty

import HodaTime.InstantTest
import HodaTime.DurationTest
import HodaTime.OffsetTest
import HodaTime.LocalTimeTest
import HodaTime.Calendar.GregorianTest
import HodaTime.Calendar.JulianTest
import HodaTime.Calendar.CopticTest
import HodaTime.Calendar.PersianTest
import HodaTime.Calendar.IslamicTest
import HodaTime.Calendar.HebrewTest
import HodaTime.CalendarDateTimeTest
import HodaTime.ZonedDateTimeTest
import HodaTime.PatternTest
import HodaTime.PeriodTest
import HodaTime.WithCalendarTest
import HodaTime.LocaleTest
import HodaTime.ClassInstanceTests

main :: IO ()
main = defaultMain tests

tests :: TestTree
tests = testGroup "Tests" [instantTests, durationTests, offsetTests, localTimeTests, gregorianTests, julianTests, copticTests, persianTests, islamicTests, hebrewTests, calendarDateTimeTests, zonedDateTimeTests, patternTests, periodTests, withCalendarTests, localeTests, classInstanceTests]

{-
unitTests :: TestTree
unitTests = testGroup "Unit tests"
  [ testCase "List comparison (different length)" $
      [1, 2, 3] `compare` [1,2] @?= GT

  -- the following test does not hold
  , testCase "List comparison (same length)" $
      [1, 2, 3] `compare` [1,2,2] @?= LT
  ]
-}