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
|
--- a/tests/UnitTests.hs
+++ b/tests/UnitTests.hs
@@ -319,7 +319,7 @@
, 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
@@ -352,8 +352,6 @@
-- 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.
@@ -381,8 +379,6 @@
Session.withSession $ \s ->
flip E.finally (killThread tid) .
defaultMain $ tests <>
- [ testGroup "plain" $ httpbinTests basic
- , testGroup "session" $ httpbinTests (session s)] <>
case mserv of
Nothing -> []
Just binding -> [
|
