From 063bebfbb5a6183c241aa4be94f6ef5ab988fae8 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Sat, 11 Jan 2020 01:36:42 -0500
Subject: [PATCH] test active field in JSON for Player/Goalie

---
 test/TypesSpec.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/test/TypesSpec.hs b/test/TypesSpec.hs
index 7e81400..dbadf3f 100644
--- a/test/TypesSpec.hs
+++ b/test/TypesSpec.hs
@@ -281,6 +281,7 @@ playerJSON = Object $ HM.fromList
   , ( "name",     toJSON ("Joe" :: String)    )
   , ( "position", toJSON ("centre" :: String) )
   , ( "rookie",   toJSON False                )
+  , ( "active",   toJSON True                 )
   , ( "ytd",      playerStatsJSON 1           )
   , ( "lifetime", playerStatsJSON 2           )
   ]
@@ -309,6 +310,7 @@ goalieJSON = Object $ HM.fromList
   [ ( "number",   toJSON (1 :: Int)         )
   , ( "name",     toJSON ("Joe" :: String ) )
   , ( "rookie",   toJSON False              )
+  , ( "active",   toJSON True               )
   , ( "ytd",      goalieStatsJSON 1         )
   , ( "lifetime", goalieStatsJSON 2         )
   ]