From 0323f80539e32e37ecf63c88ecc735005149b48f Mon Sep 17 00:00:00 2001
From: Mark Wotton <mwotton@gmail.com>
Date: Wed, 24 Jun 2015 19:23:51 -0400
Subject: [PATCH] error encountered in the wild

---
 tests/TestSuite.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/TestSuite.hs b/tests/TestSuite.hs
index f197d4a..f0c8947 100644
--- a/tests/TestSuite.hs
+++ b/tests/TestSuite.hs
@@ -112,6 +112,7 @@ suite = do
         testEstablishConnection
         testParsingJson1
         testParsingJson2
+        testFetching
 
     describe "Corner cases in protocol compliance" $ do
         testSendBodyFor PUT
@@ -693,6 +694,13 @@ testParsingJson2 =
 
         assertEqual "Incorrect response" "Japan" (gLabel x)
         assertEqual "Data not parsed as expected" 2008 (fst $ last $ gData x)
+
+testFetching =
+  it "plain GET, shouldn't crash" $ do
+        let url = "http://highpointdental.com.au"
+        x <- get url concatHandler
+        assertEqual "a" "a" "context"
+
 --      L.putStr $ encodePretty x