Merge pull request #44 from joneshf/cleanup-tests

Cleanup tests

Author: joneshf

test/HowTo.DecodeAndEncodeJSONWithOptionalValuesInPureScriptSimpleJSON.purs

@@ -23,91 +23,58 @@ writeJSON = Simple.JSON.writeJSON
 
 spec :: Test.Spec.Spec Unit
 spec =
-  Test.Spec.describe "HowTo.DecodeAndEncodeJSONWithOptionalValuesInPureScriptArgonaut" do
+  Test.Spec.describe "HowTo.DecodeAndEncodeJSONWithOptionalValuesInPureScriptSimpleJSON" do
     spec_readJSON
     spec_writeJSON
 
 spec_readJSON :: Test.Spec.Spec Unit
 spec_readJSON =
   Test.Spec.describe "readJSON" do
     Test.Spec.it "doesn't require any fields" do
-      let
-        json :: String
-        json = """{}"""
       Test.Spec.Assertions.shouldEqual
-        (readJSON json)
+        (readJSON """{}""")
         (Data.Either.Right (Option.fromRecord {}))
     Test.Spec.it "accepts only a name" do
-      let
-        json :: String
-        json = """{ "name": "Pat" }"""
       Test.Spec.Assertions.shouldEqual
-        (readJSON json)
+        (readJSON """{ "name": "Pat" }""")
         (Data.Either.Right (Option.fromRecord { name: "Pat" }))
     Test.Spec.it "accepts only a title" do
-      let
-        json :: String
-        json = """{ "title": "wonderful" }"""
       Test.Spec.Assertions.shouldEqual
-        (readJSON json)
+        (readJSON """{ "title": "wonderful" }""")
         (Data.Either.Right (Option.fromRecord { title: "wonderful" }))
     Test.Spec.it "accepts both a name and a title" do
-      let
-        json :: String
-        json = """{ "name": "Pat", "title": "Dr." }"""
       Test.Spec.Assertions.shouldEqual
-        (readJSON json)
+        (readJSON """{ "name": "Pat", "title": "Dr." }""")
         (Data.Either.Right (Option.fromRecord { name: "Pat", title: "Dr." }))
     Test.Spec.it "doesn't fail a null name" do
-      let
-        json :: String
-        json = """{ "name": null }"""
       Test.Spec.Assertions.shouldEqual
-        (readJSON json)
+        (readJSON """{ "name": null }""")
         (Data.Either.Right (Option.fromRecord {}))
     Test.Spec.it "doesn't fail for a null title" do
-      let
-        json :: String
-        json = """{ "title": null }"""
       Test.Spec.Assertions.shouldEqual
-        (readJSON json)
+        (readJSON """{ "title": null }""")
         (Data.Either.Right (Option.fromRecord {}))
     Test.Spec.it "doesn't fail for a null name or title" do
-      let
-        json :: String
-        json = """{ "name": null, "title": null }"""
       Test.Spec.Assertions.shouldEqual
-        (readJSON json)
+        (readJSON """{ "name": null, "title": null }""")
         (Data.Either.Right (Option.fromRecord {}))
 
 spec_writeJSON :: Test.Spec.Spec Unit
 spec_writeJSON =
   Test.Spec.describe "writeJSON" do
     Test.Spec.it "inserts no fields if none exist" do
-      let
-        option :: Option.Option ( name :: String, title :: String )
-        option = Option.fromRecord {}
       Test.Spec.Assertions.shouldEqual
-        (writeJSON option)
+        (writeJSON (Option.fromRecord {}))
         "{}"
     Test.Spec.it "inserts a name if it exist" do
-      let
-        option :: Option.Option ( name :: String, title :: String )
-        option = Option.fromRecord { name: "Pat" }
       Test.Spec.Assertions.shouldEqual
-        (writeJSON option)
+        (writeJSON (Option.fromRecord { name: "Pat" }))
         "{\"name\":\"Pat\"}"
     Test.Spec.it "inserts a title if it exist" do
-      let
-        option :: Option.Option ( name :: String, title :: String )
-        option = Option.fromRecord { title: "wonderful" }
       Test.Spec.Assertions.shouldEqual
-        (writeJSON option)
+        (writeJSON (Option.fromRecord { title: "wonderful" }))
         "{\"title\":\"wonderful\"}"
     Test.Spec.it "inserts both a name and a title if they exist" do
-      let
-        option :: Option.Option ( name :: String, title :: String )
-        option = Option.fromRecord { name: "Pat", title: "Dr." }
       Test.Spec.Assertions.shouldEqual
-        (writeJSON option)
+        (writeJSON (Option.fromRecord { name: "Pat", title: "Dr." }))
         "{\"title\":\"Dr.\",\"name\":\"Pat\"}"

test/HowTo.DecodeAndEncodeJSONWithRequiredAndOptionalValuesInPureScriptSimpleJSON.purs

@@ -32,7 +32,7 @@ writeJSON = Simple.JSON.writeJSON
 
 spec :: Test.Spec.Spec Unit
 spec =
-  Test.Spec.describe "HowTo.DecodeAndEncodeJSONWithRequiredAndOptionalValuesInPureScriptArgonaut" do
+  Test.Spec.describe "HowTo.DecodeAndEncodeJSONWithRequiredAndOptionalValuesInPureScriptSimpleJSON" do
     spec_parse
     spec_writeJSON