@@ -4,7 +4,6 @@ module WaiAppStaticTest (spec) where
44import Network.Wai.Application.Static
55
66import Test.Hspec
7−import Test.HUnit ((@?=))
87import qualified Data.ByteString.Char8 as S8
98-- import qualified Data.ByteString.Lazy.Char8 as L8
109import System.PosixCompat.Files (getFileStatus, modificationTime)
@@ -33,11 +32,11 @@ spec = do
3332
3433 describe "mime types" $ do
3534 it "fileNameExtensions" $
36− fileNameExtensions "foo.tar.gz" @?= ["tar.gz", "gz"]
35+ fileNameExtensions "foo.tar.gz" `shouldBe` ["tar.gz", "gz"]
3736 it "handles multi-extensions" $
38− defaultMimeLookup "foo.tar.gz" @?= "application/x-tgz"
37+ defaultMimeLookup "foo.tar.gz" `shouldBe` "application/x-tgz"
3938 it "defaults correctly" $
40− defaultMimeLookup "foo.unknown" @?= "application/octet-stream"
39+ defaultMimeLookup "foo.unknown" `shouldBe` "application/octet-stream"
4140
4241 describe "webApp" $ do
4342 it "403 for unsafe paths" $ webApp $