Add tests for dump default (#134)

spago.dhall

@@ -32,6 +32,8 @@ to generate this file without the comments in this block.
   , "strings"
   , "transformers"
   , "tuples"
+  , "argonaut-codecs"
+  , "argonaut-core"
   ]
 , packages = ./packages.dhall
 , sources = [ "src/**/*.purs", "tests/purescript/**/*.purs" ]

src/AnyAll/Ternary.purs

@@ -33,9 +33,6 @@ derive instance genericDefault :: Generic (Ternary) _
 instance showDefault :: Show (Ternary) where
   show = genericShow
 
-instance encodeDefault :: Encode (Ternary) where
-  encode eta = encode $ dumpDefault (eta)
-
 ternary2string ∷ Ternary → String
 ternary2string True = "true"
 ternary2string False = "false"

src/AnyAll/Types.purs

@@ -62,14 +62,6 @@ derive instance genericQ :: Generic (Q) _
 instance showQ :: Show (Q) where
   show eta = genericShow eta
 
-type R =
-  { shouldView :: ShouldView
-  , andOr :: AndOr String
-  , tagNL :: Map.Map String String
-  , prePost :: Maybe (Label String)
-  , mark :: Ternary
-  }
-
 -- instance encodeQ :: Encode (Q) where
 --   encode (Q { shouldView, andOr, tagNL, prePost, mark, children }) =
 --     genericEncode defaultOptions { shouldView, andOr, prePost, mark, children }

tests/unit/QuotJs.spec.ts

@@ -56,7 +56,7 @@ function mkOrResponse(children: any) {
   }
 }
 
-describe('evaluate', () => {
+describe('qoutjs', () => {
   it('Asks does the person drink?', () => {
     expect(
       AA.qoutjs(mkAskRequest("does the person drink?"))
@@ -86,4 +86,37 @@ describe('evaluate', () => {
       ])
     );
   });
-});
+});
+
+function marked(mark: string) {
+  return {
+    "source": "user",
+    "value": mark
+  }
+}
+
+describe('Ternary dumpDefault', () => {
+  it('True', () => {
+    expect(
+      AA.dumpDefault(AA.True.value)
+    ).toEqual(
+      marked("true")
+    );
+  });
+
+  it('False', () => {
+    expect(
+      AA.dumpDefault(AA.False.value)
+    ).toEqual(
+      marked("false")
+    );
+  });
+
+  it('Unknown', () => {
+    expect(
+      AA.dumpDefault(AA.Unknown.value)
+    ).toEqual(
+      marked("undefined")
+    );
+  });
+})