Provide proper JSON details for errors

Refines HTTP codes for server vs client problems Fixes #92 Fixes #40
2014-12-21 19:34:21 -08:00
parent 07b039370d
commit f689ce684a
9 changed files with 142 additions and 95 deletions
@@ -0,0 +1,41 @@
+module Unit.ErrorsSpec where
+
+import Test.Hspec
+
+import Text.Parsec
+import PgError
+import Data.Either (rights)
+
+spec :: Spec
+spec =
+  describe "Parsing Hasql errors" $ do
+    it "can handle status and code" $
+      let p = parse message "" "Status: \"foo\"; Code: \"abc\"." in
+      rights [p] `shouldBe` [
+          Message (Just "foo") "abc" Nothing Nothing
+        ]
+    it "can handle weird redundant quotes in status" $
+      let p = parse message "" "Status: \"\"foo\"\"; Code: \"abc\"." in
+      rights [p] `shouldBe` [
+          Message (Just "foo") "abc" Nothing Nothing
+        ]
+    it "can handle text and code" $
+      let p = parse message "" "Message: \"foo\"; Code: \"abc\"." in
+      rights [p] `shouldBe` [
+          Message Nothing "abc" (Just "foo") Nothing
+        ]
+    it "can handle status, text and code" $
+      let p = parse message "" "Status: \"hi\"; Message: \"foo\"; Code: \"abc\"." in
+      rights [p] `shouldBe` [
+          Message (Just "hi") "abc" (Just "foo") Nothing
+        ]
+    it "can handle unescaped quotes in message" $
+      let p = parse message "" "Status: \"hi\"; Message: \"unknown \"foo\"!\"; Code: \"abc\"." in
+      rights [p] `shouldBe` [
+          Message (Just "hi") "abc" (Just "unknown \"foo\"!") Nothing
+        ]
+    it "can handle periods in message" $
+      let p = parse message "" "Message: \"unknown \"foo\".bar\"; Code: \"42P01\"." in
+      rights [p] `shouldBe` [
+          Message Nothing "42P01" (Just "unknown \"foo\".bar") Nothing
+        ]