tests/ConversionTest.hs

   1 module ConversionTest
   2     ( testData
   3     )
   4     where
   5
   6 import Data.Convertible
   7 import Data.Time
   8 import Data.Time.W3C
   9 import Test.HUnit
  10
  11
  12 instance Eq ZonedTime where
  13     a == b
  14         = zonedTimeToUTC a == zonedTimeToUTC b
  15
  16
  17 testData :: [Test]
  18 testData = [ convert (W3CDateTime 2010 (Just 1) (Just 2) Nothing Nothing Nothing Nothing)
  19              ~?=
  20              fromGregorian 2010 1 2
  21
  22            , convert (W3CDateTime 2010 (Just 1) (Just 2) (Just 3) (Just 4) (Just 5.666666) (Just utc))
  23              ~?=
  24              ZonedTime {
  25                zonedTimeToLocalTime = let day = fromGregorian 2010 1 2
  26                                           tod = TimeOfDay 3 4 5.666666
  27                                       in
  28                                         LocalTime day tod
  29              , zonedTimeZone = utc
  30              }
  31
  32            , convert (fromGregorian 2010 1 2)
  33              ~?=
  34              W3CDateTime 2010 (Just 1) (Just 2) Nothing Nothing Nothing Nothing
  35
  36            , convert ZonedTime {
  37                zonedTimeToLocalTime = let day = fromGregorian 2010 1 2
  38                                           tod = TimeOfDay 3 4 5.666666
  39                                       in
  40                                         LocalTime day tod
  41              , zonedTimeZone = utc
  42              }
  43              ~?=
  44              W3CDateTime 2010 (Just 1) (Just 2) (Just 3) (Just 4) (Just 5.666666) (Just utc)
  45            ]