wai-middleware-route 0.5.0 → 0.5.1

raw patch · 3 files changed

+43/−4 lines, 3 filesdep +HUnitdep +QuickCheckdep +test-frameworkdep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: HUnit, QuickCheck, test-framework, test-framework-hunit, test-framework-quickcheck2

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• src/Network/Wai/Middleware/Route.hs +3/−1
• test/Main.hs +23/−0
• wai-middleware-route.cabal +17/−3

@@ -151,8 +151,10 @@ -- | Make Pieces from path
 mkPieces :: T.Text -> [D.Piece]
 mkPieces = 
-    map chunk . T.split (=='/')
+    map chunk . protPath . T.split (=='/')
   where
+    protPath [""] = []
+    protPath p = p
     chunk "" = D.Dynamic
     chunk c = D.Static c
 {-# INLINE mkPieces #-}

@@ -0,0 +1,23 @@+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+import Test.Framework (defaultMain)
+import Test.Framework.Providers.HUnit (testCase)
+import Test.HUnit (Assertion, (@=?))
+
+import qualified Data.Text as T 
+
+main :: IO ()
+main = defaultMain [
+        testCase "Split Text" caseSplitText
+    ]
+
+caseSplitText :: Assertion
+caseSplitText = do
+    [""] @=? sp ""
+    ["", ""] @=? sp "/"
+    ["", "a"] @=? sp "/a"
+    ["", "a", "", "b", ""] @=? sp "/a//b/"
+  where
+    sp = T.split (=='/')

@@ -1,5 +1,5 @@ name:           wai-middleware-route
-version:        0.5.0
+version:        0.5.1
 cabal-version:  >= 1.8
 build-type:     Simple
 synopsis:       Wai dispatch middleware
@@ -18,8 +18,7 @@ 
 library
   hs-source-dirs:   src
-  build-depends:    
-                   base >= 4 && < 5,
+  build-depends:    base >= 4 && < 5,
                    bytestring >= 0.9 && < 0.10,
                    http-types >= 0.6 && < 0.7,
                    text,
@@ -28,4 +27,19 @@   ghc-options:      -Wall -rtsopts
   exposed-modules:  Network.Wai.Middleware.Route
 
+test-suite test
+  type:            exitcode-stdio-1.0
+  x-uses-tf:       true
+  build-depends:   
+                   base >= 4,
+                   HUnit >= 1.2 && < 2,
+                   QuickCheck >= 2.4,
+                   test-framework >= 0.4.1,
+                   test-framework-quickcheck2,
+                   test-framework-hunit,
+
+                   text
+  ghc-options:     -Wall -rtsopts
+  hs-source-dirs:  test
+  main-is:         Main.hs