Skip to content

Commit

Permalink
Tweak expect test result for HTTP to HTTPS upgrade
Browse files Browse the repository at this point in the history
The HTTP upgrade to HTTS test was failing in slightly different ways on
two different machines; TlsException and TlsExceptionHostPort. We now
accept either.
  • Loading branch information
erikd committed Sep 25, 2015
1 parent e7aacd8 commit 3f7a401
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion Test/testsuite.hs
Original file line number Diff line number Diff line change
Expand Up @@ -147,7 +147,7 @@ requestTest = describe "Request:" $ do
-- Getting a TlsException shows that we have successfully upgraded
-- from HTTP to HTTPS. Its not possible to ignore this failure
-- because its made by the http-conduit inside the proxy.
BS.takeWhile (/= ' ') (resultBS result) `shouldBe` "TlsException"
BS.take 12 (resultBS result) `shouldBe` "TlsException"
it "Can provide a proxy Response." $
withTestProxy proxySettingsProxyResponse $ \ testProxyPort -> do
req <- addTestProxy testProxyPort <$> mkGetRequest Http "/whatever"
Expand Down

0 comments on commit 3f7a401

Please sign in to comment.