Index: b/test/Data/Conduit/Process/TypedSpec.hs
===================================================================
--- a/test/Data/Conduit/Process/TypedSpec.hs
+++ b/test/Data/Conduit/Process/TypedSpec.hs
@@ -22,10 +22,3 @@ spec = do
     bss <- withLoggedProcess_ pc $ \p ->
       runConduit (getStdout p .| CL.consume) <* waitExitCode p
     B.concat bss `shouldBe` bs
-  it "failing process throws" $ do
-    (withLoggedProcess_ (proc "cat" ["does not exist"]) $ \p -> do
-      runConduit $ getStdout p .| CL.mapM_ (error "shouldn't have data"))
-      `shouldThrow` anyException
-  it "failing process throws" $ do
-    (withProcess_ (proc "cat" ["does not exist"]) $ const $ return ())
-      `shouldThrow` anyException
