1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Index: b/tests/UnitTests.hs
===================================================================
--- a/tests/UnitTests.hs
+++ b/tests/UnitTests.hs
@@ -344,7 +344,7 @@ commonTestsWith verb site = [
, testCase "put" $ basicPut verb site
, testCase "delete" $ basicDelete verb site
, testCase "404" $ throwsStatusCode verb site
- , testCase "headRedirect" $ headRedirect verb site
+-- , testCase "headRedirect" $ headRedirect verb site
, testCase "redirectOverflow" $ redirectOverflow verb site
, testCase "invalidURL" $ invalidURL verb site
, testCase "funkyScheme" $ funkyScheme verb site
@@ -378,8 +378,6 @@ httpbinTestsWith verb site = commonTests
-- Tests that our local httpbin clone doesn't yet support.
httpbinTests verb = [testGroup "httpbin" [
- testGroup "http" $ httpbinTestsWith verb ("http://httpbin.org" <>)
- , testGroup "https" $ httpbinTestsWith verb ("https://httpbin.org" <>)
]]
-- Tests that httpbin.org doesn't support.
@@ -407,8 +405,6 @@ testWith tests = do
s <- Session.newSession
flip E.finally (killThread tid) .
defaultMain $ tests <>
- [ testGroup "plain" $ httpbinTests basic
- , testGroup "session" $ httpbinTests (session s)] <>
case mserv of
Nothing -> []
Just binding -> [
|
