wai-app-static 1.3.0.1 → 1.3.0.2
raw patch · 3 files changed
+12/−15 lines, 3 filesdep −HUnitdep ~hspec
Dependencies removed: HUnit
Dependency ranges changed: hspec
Files
- test/WaiAppStaticTest.hs +7/−9
- tests.hs +3/−3
- wai-app-static.cabal +2/−3
test/WaiAppStaticTest.hs view
@@ -1,11 +1,9 @@ {-# LANGUAGE OverloadedStrings, NoMonomorphismRestriction #-}-module WaiAppStaticTest (specs) where +module WaiAppStaticTest (spec) where import Network.Wai.Application.Static -import Test.Hspec.Monadic-import Test.Hspec.HUnit ()-import Test.HUnit ((@?=))+import Test.Hspec import qualified Data.ByteString.Char8 as S8 -- import qualified Data.ByteString.Lazy.Char8 as L8 import System.PosixCompat.Files (getFileStatus, modificationTime)@@ -23,8 +21,8 @@ defRequest :: Request defRequest = defaultRequest -specs :: Specs-specs = do+spec :: Spec+spec = do let webApp = flip runSession $ staticApp $ defaultWebAppSettings "test" let fileServerApp = flip runSession $ staticApp $ defaultFileServerSettings "test" @@ -34,11 +32,11 @@ describe "mime types" $ do it "fileNameExtensions" $- fileNameExtensions "foo.tar.gz" @?= ["tar.gz", "gz"]+ fileNameExtensions "foo.tar.gz" `shouldBe` ["tar.gz", "gz"] it "handles multi-extensions" $- defaultMimeLookup "foo.tar.gz" @?= "application/x-tgz"+ defaultMimeLookup "foo.tar.gz" `shouldBe` "application/x-tgz" it "defaults correctly" $- defaultMimeLookup "foo.unknown" @?= "application/octet-stream"+ defaultMimeLookup "foo.unknown" `shouldBe` "application/octet-stream" describe "webApp" $ do it "403 for unsafe paths" $ webApp $
tests.hs view
@@ -1,5 +1,5 @@-import WaiAppStaticTest (specs)+import WaiAppStaticTest (spec) import Test.Hspec.Monadic -main :: IO a-main = hspecX specs+main :: IO ()+main = hspec spec
wai-app-static.cabal view
@@ -1,5 +1,5 @@ name: wai-app-static-version: 1.3.0.1+version: 1.3.0.2 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>@@ -65,8 +65,7 @@ type: exitcode-stdio-1.0 build-depends: base >= 4 && < 5- , hspec >= 0.8- , HUnit+ , hspec == 1.3.* , unix-compat , time , old-locale