Skeleton for the test suite.

[time-http.git] / Test / Time / HTTP.hs

diff --git a/Test/Time/HTTP.hs b/Test/Time/HTTP.hs
new file mode 100644 (file)
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 = [
+        ]