X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Test%2FTime%2FHTTP.hs;fp=Test%2FTime%2FHTTP.hs;h=97c5da85f429b954ed5ae4b74c831dac48212779;hp=0000000000000000000000000000000000000000;hb=1029ed1724795d960c3117be35380d3a9c92c6ed;hpb=92009996e8819a53445d50d4718d3f74352ef7a2

diff --git a/Test/Time/HTTP.hs b/Test/Time/HTTP.hs
new file mode 100644
index 0000000..97c5da8
--- /dev/null
+++ b/Test/Time/HTTP.hs
@@ -0,0 +1,22 @@
+{-# LANGUAGE
+    UnicodeSyntax
+  #-}
+module Main (main) where
+import System.Exit
+import Test.QuickCheck
+
+main ∷ IO ()
+main = mapM_ runTest tests
+
+runTest ∷ Property → IO ()
+runTest prop
+    = do r ← quickCheckResult prop
+         case r of
+           Success {}           → return ()
+           GaveUp  {}           → exitFailure
+           Failure {}           → exitFailure
+           NoExpectedFailure {} → exitFailure
+
+tests ∷ [Property]
+tests = [
+        ]