From: PHO <pho@cielonegro.org>
Date: Mon, 3 Oct 2011 12:11:21 +0000 (+0900)
Subject: Tests for Data.Time.HTTP
X-Git-Tag: RELEASE-0.2~3
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=commitdiff_plain;h=fec6c14ea67a82b1037ea99401cfd611cc9d7820;hp=e7ac0839f2d4beb2fe79f903222e04e797a47dd4

Tests for Data.Time.HTTP

Ditz-issue: c8c594f249504e28212f18a8a5c6b8a708b99f79
---

diff --git a/Test/Time/HTTP.hs b/Test/Time/HTTP.hs
index d6f76cf..f0f9bfb 100644
--- a/Test/Time/HTTP.hs
+++ b/Test/Time/HTTP.hs
@@ -8,6 +8,7 @@ import Control.Applicative
 import Control.Applicative.Unicode
 import Data.Time
 import qualified Data.Time.Asctime as Asctime
+import qualified Data.Time.HTTP    as HTTP
 import qualified Data.Time.RFC733  as RFC733
 import qualified Data.Time.RFC1123 as RFC1123
 import System.Exit
@@ -52,6 +53,12 @@ instance Arbitrary TimeZone where
 instance Arbitrary ZonedTime where
     arbitrary = ZonedTime <$> arbitrary ⊛ arbitrary
 
+instance Arbitrary DiffTime where
+    arbitrary = secondsToDiffTime <$> choose (0, 86400)
+
+instance Arbitrary UTCTime where
+    arbitrary = UTCTime <$> arbitrary ⊛ arbitrary
+
 tests ∷ [Property]
 tests = [ -- Asctime
           property ( Asctime.fromAscii "Sun Nov  6 08:49:37 1994"
@@ -79,6 +86,12 @@ tests = [ -- Asctime
                      ≡ RFC1123.toAscii referenceZonedTime )
 
         , property $ \zt → Right zt ≡ RFC1123.fromAscii (RFC1123.toAscii zt)
+
+          -- HTTP
+        , property $ \ut → Right ut ≡ HTTP.fromAscii (HTTP.toAscii           ut )
+        , property $ \ut → Right ut ≡ HTTP.fromAscii (Asctime.toAscii (ut2lt ut))
+        , property $ \ut → Right ut ≡ HTTP.fromAscii (RFC733.toAscii  (ut2zt ut))
+        , property $ \ut → Right ut ≡ HTTP.fromAscii (RFC1123.toAscii (ut2zt ut))
         ]
     where
       referenceLocalTime
@@ -86,3 +99,7 @@ tests = [ -- Asctime
 
       referenceZonedTime
           = ZonedTime referenceLocalTime utc
+
+      ut2lt = utcToLocalTime utc
+
+      ut2zt = utcToZonedTime utc