diff --git a/Network/Wai/Test.hs b/Network/Wai/Test.hs
--- a/Network/Wai/Test.hs
+++ b/Network/Wai/Test.hs
@@ -102,8 +102,12 @@
 
 setRawPathInfo :: Request -> S8.ByteString -> Request
 setRawPathInfo r rawPinfo =
-  let pInfo = T.split (== '/') $ TE.decodeUtf8 rawPinfo
-  in  r { rawPathInfo = rawPinfo, pathInfo = pInfo }
+    let pInfo = dropFrontSlash $ T.split (== '/') $ TE.decodeUtf8 rawPinfo
+    in  r { rawPathInfo = rawPinfo, pathInfo = pInfo }
+  where
+    dropFrontSlash ("":"":[]) = [] -- homepage, a single slash
+    dropFrontSlash ("":path) = path
+    dropFrontSlash path = path
 
 srequest :: SRequest -> Session SResponse
 srequest (SRequest req bod) = do
diff --git a/wai-test.cabal b/wai-test.cabal
--- a/wai-test.cabal
+++ b/wai-test.cabal
@@ -1,5 +1,5 @@
 name:            wai-test
-version:         1.3.1
+version:         1.3.1.1
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>