1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
{-# LANGUAGE CPP #-}
module HPACKSpec where
#if __GLASGOW_HASKELL__ < 709
import Control.Applicative ((<$>))
#endif
import Control.Monad (filterM, forM_)
import Data.Aeson (eitherDecode)
import qualified Data.ByteString.Lazy as BL
import Data.List (isPrefixOf, isSuffixOf)
import System.Directory (
doesDirectoryExist,
doesFileExist,
getDirectoryContents,
)
import System.FilePath ((</>))
import Test.Hspec
import HPACKDecode
import JSON
testDir :: FilePath
testDir = "test-hpack/hpack-test-case"
getTestFiles :: FilePath -> IO [FilePath]
getTestFiles dir = do
subdirs0 <- valid <$> getDirectoryContents dir
subdirs1 <- filterM doesDirectoryExist subdirs0
concat <$> mapM getTestFiles' subdirs1
where
valid = map (testDir </>) . filter ("raw-data" /=) . filter (not . isPrefixOf ".")
getTestFiles' :: FilePath -> IO [FilePath]
getTestFiles' subdir = do
files0 <- valid <$> getDirectoryContents subdir
filterM doesFileExist files0
where
valid = map (subdir </>) . filter (isSuffixOf ".json")
test :: FilePath -> IO (Maybe String)
test file = do
bs <- BL.readFile file
let etc = eitherDecode bs :: Either String Test
case etc of
Left e -> return $ Just $ file ++ ": " ++ e
Right tc -> do
res <- run False tc
case res of
Pass -> return Nothing
Fail e -> return $ Just $ file ++ ": " ++ e
spec :: Spec
spec = do
describe "decodeRequestHeader" $ do
it "decodes headers in request" $ do
files <- getTestFiles testDir
forM_ files $ \file -> do
putStrLn file
test file `shouldReturn` Nothing
|
