@@ -4,7 +4,6 @@ module WaiAppStaticTest (spec) where
4import Network.Wai.Application.Static
4import Network.Wai.Application.Static
6import Test.Hspec
6import Test.Hspec
7−import Test.HUnit ((@?=))
8import qualified Data.ByteString.Char8 as S8
7import qualified Data.ByteString.Char8 as S8
9-- import qualified Data.ByteString.Lazy.Char8 as L8
8-- import qualified Data.ByteString.Lazy.Char8 as L8
10import System.PosixCompat.Files (getFileStatus, modificationTime)
9import System.PosixCompat.Files (getFileStatus, modificationTime)
@@ -33,11 +32,11 @@ spec = do
34 describe "mime types" $ do
33 describe "mime types" $ do
35 it "fileNameExtensions" $
34 it "fileNameExtensions" $
36− fileNameExtensions "foo.tar.gz" @?= ["tar.gz", "gz"]
35+ fileNameExtensions "foo.tar.gz" `shouldBe` ["tar.gz", "gz"]
37 it "handles multi-extensions" $
36 it "handles multi-extensions" $
38− defaultMimeLookup "foo.tar.gz" @?= "application/x-tgz"
37+ defaultMimeLookup "foo.tar.gz" `shouldBe` "application/x-tgz"
39 it "defaults correctly" $
38 it "defaults correctly" $
40− defaultMimeLookup "foo.unknown" @?= "application/octet-stream"
39+ defaultMimeLookup "foo.unknown" `shouldBe` "application/octet-stream"
42 describe "webApp" $ do
41 describe "webApp" $ do
43 it "403 for unsafe paths" $ webApp $
42 it "403 for unsafe paths" $ webApp $