diff --git a/Network/Wai/Test.hs b/Network/Wai/Test.hs
--- a/Network/Wai/Test.hs
+++ b/Network/Wai/Test.hs
@@ -9,6 +9,7 @@
     , SRequest (..)
     , SResponse (..)
     , defaultRequest
+    , setRawPathInfo
       -- * Assertions
     , assertStatus
     , assertContentType
@@ -33,6 +34,8 @@
 import qualified Network.HTTP.Types as H
 import Data.CaseInsensitive (CI)
 import qualified Data.ByteString as S
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as TE
 import qualified Data.Conduit as C
 import qualified Data.Conduit.List as CL
 import Data.Monoid (mempty)
@@ -78,6 +81,11 @@
     , requestBody = mempty
     , vault = mempty
     }
+
+setRawPathInfo :: Request -> S8.ByteString -> Request
+setRawPathInfo r rawPinfo =
+  let pInfo = T.split (== '/') $ TE.decodeUtf8 rawPinfo
+  in  r { rawPathInfo = rawPinfo, pathInfo = pInfo }
 
 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.1.0.1
+version:         1.1.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
@@ -16,6 +16,7 @@
     build-depends:   base                      >= 4        && < 5
                    , wai                       >= 1.1      && < 1.2
                    , bytestring                >= 0.9.1.4  && < 0.10
+                   , text                      >= 0.7      && < 0.12
                    , blaze-builder             >= 0.2.1.4  && < 0.4
                    , transformers              >= 0.2.2    && < 0.3
                    , containers                >= 0.2      && < 0.5