LogSpec.hs

module Angel.LogSpec (spec) where

import Angel.Log

import Data.Time
import Data.Time.Calendar (fromGregorian)
import Data.Time.LocalTime (timeOfDayToTime,
                            TimeOfDay(..),
                            TimeZone(..),
                            ZonedTime(..))

import SpecHelper


spec :: Spec
spec = do
  describe "cleanCalendar" $ do
    it "formats the time correctly" $ cleanCalendar dateTime `shouldBe` "2012/09/12 03:14:59"
  --where time = CalendarTime 2012 September 12 3 14 59 0 Tuesday 263 "Pacific" -25200 True
  where dateTime  = ZonedTime localTime zone
        localTime = LocalTime day tod
        day       = fromGregorian 2012 9 12
        tod       = TimeOfDay 3 14 59
        zone      = TimeZone (-420) False "PDT"