@@ -1,6 +1,7 @@
1{-# LANGUAGE OverloadedStrings #-}
1{-# LANGUAGE OverloadedStrings #-}
2−import Test.Framework (defaultMain, testGroup, Test)
2+import Test.Hspec
3−import Test.Framework.Providers.HUnit
3+import Test.Hspec.QuickCheck
4+import Test.Hspec.HUnit ()
4import Test.HUnit hiding (Test)
5import Test.HUnit hiding (Test)
6import Network.Wai
7import Network.Wai
@@ -29,30 +30,28 @@ import Data.Maybe (fromMaybe)
29import Network.HTTP.Types (parseSimpleQuery, status200)
30import Network.HTTP.Types (parseSimpleQuery, status200)
31main :: IO ()
32main :: IO ()
32−main = defaultMain [testSuite]
33+main = hspecX $ do
35−testSuite = testGroup "Network.Wai.Parse"
34+ describe "Network.Wai.Parse"
36− [ testCase "parseQueryString" caseParseQueryString
35+ [ it "parseQueryString" caseParseQueryString
37− , testCase "parseQueryString with question mark" caseParseQueryStringQM
36+ , it "parseQueryString with question mark" caseParseQueryStringQM
38− , testCase "parseHttpAccept" caseParseHttpAccept
37+ , it "parseHttpAccept" caseParseHttpAccept
39− , testCase "parseRequestBody" caseParseRequestBody
38+ , it "parseRequestBody" caseParseRequestBody
41− , testCase "findBound" caseFindBound
40+ , it "findBound" caseFindBound
42− , testCase "sinkTillBound" caseSinkTillBound
41+ , it "sinkTillBound" caseSinkTillBound
43− , testCase "killCR" caseKillCR
42+ , it "killCR" caseKillCR
44− , testCase "killCRLF" caseKillCRLF
43+ , it "killCRLF" caseKillCRLF
45− , testCase "takeLine" caseTakeLine
44+ , it "takeLine" caseTakeLine
47− , testCase "jsonp" caseJsonp
46+ , it "jsonp" caseJsonp
48− , testCase "gzip" caseGzip
47+ , it "gzip" caseGzip
49− , testCase "gzip not for MSIE" caseGzipMSIE
48+ , it "gzip not for MSIE" caseGzipMSIE
50− , testCase "vhost" caseVhost
49+ , it "vhost" caseVhost
51− , testCase "autohead" caseAutohead
50+ , it "autohead" caseAutohead
52− , testCase "method override" caseMethodOverride
51+ , it "method override" caseMethodOverride
53− , testCase "accept override" caseAcceptOverride
52+ , it "accept override" caseAcceptOverride
54− , testCase "dalvik multipart" caseDalvikMultipart
53+ , it "dalvik multipart" caseDalvikMultipart
55− , testCase "debug request body" caseDebugRequestBody
54+ , it "debug request body" caseDebugRequestBody
58caseParseQueryString :: Assertion
57caseParseQueryString :: Assertion