Add entry to changelog and test for NonEmptyString

Author: d0liver

CHANGELOG.md

@@ -9,6 +9,7 @@ Breaking changes (😱!!!):
 
 New features:
 - Added decoders for `NonEmptyString` and added a new `decodeNonempty` function (#94)
+- Added encoder for `NonEmptyString` (d0liver, #98)
 
 Bugfixes:
 

test/Test/Main.purs

@@ -11,6 +11,8 @@ import Data.Argonaut.Encode (encodeJson, (:=), (:=?), (~>), (~>?))
 import Data.Argonaut.Gen (genJson)
 import Data.Argonaut.Parser (jsonParser)
 import Data.Array.NonEmpty (NonEmptyArray)
+import Data.String.NonEmpty (NonEmptyString)
+import Data.String.NonEmpty as NonEmptyString
 import Data.Bifunctor (rmap)
 import Data.Either (Either(..), either)
 import Data.Foldable (foldl)
@@ -314,6 +316,21 @@ nonEmptyCheck = do
         Left err ->
           false <?> printJsonDecodeError err
 
+
+  test "Test EncodeJson/DecodeJson on NonEmptyString" do
+    quickCheck \(x :: NonEmptyString) ->
+      case decodeJson (encodeJson x) of
+        Right decoded ->
+          decoded == x
+            <?>
+              (  " x = "
+              <> NonEmptyString.toString x
+              <> ", decoded = "
+              <> NonEmptyString.toString decoded
+              )
+        Left err ->
+          false <?> printJsonDecodeError err
+
   test "Test EncodeJson/DecodeJson on NonEmptyArray" do
     quickCheck \(x :: NonEmptyArray String) ->
       case decodeJson (encodeJson x) of