Add json roundtrip tests

kadena-io · Dec 14, 2023 · 87c14cd · 87c14cd
1 parent 828cf35
commit 87c14cd
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/Test/Pact/Utils/LegacyValue.hs b/tests/Test/Pact/Utils/LegacyValue.hs
@@ -67,6 +67,7 @@ import Pact.Types.SigData
 import Pact.Types.SPV
 import Pact.Types.SQLite
 import Pact.Types.Term.Arbitrary ()
+import Pact.Types.Verifier
 import Pact.PersistPactDb
 
 import qualified Pact.JSON.Encode as J
@@ -1039,6 +1040,12 @@ spec_pact_types_command =
       , Case checkAesonCompat
       , Case checkLegacyValueCompat
       ]
+   spec_case @(Verifier ParsedVerifierArgs)
+      [ Case checkRoundtrip
+      , Case checkRoundtrip2
+      , Case checkAesonCompat
+      , Case checkLegacyValueCompat
+      ]
 
 -- ---------------------------------------------- --
 spec_pact_types_sigdata :: Spec