Add JSON roundtrip property for ScriptData

using detailed schema.
IntersectMBO · Mar 28, 2023 · fe7227d · fe7227d
1 parent 7cafc3a
commit fe7227d
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/cardano-api/test/Test/Cardano/Api/Typed/Script.hs b/cardano-api/test/Test/Cardano/Api/Typed/Script.hs
@@ -116,6 +116,12 @@ prop_roundtrip_ScriptData =
     sData <- H.forAll genHashableScriptData
     sData === fromAlonzoData (toAlonzoData sData)
 
+prop_roundtrip_ScriptData_JSON :: Property
+prop_roundtrip_ScriptData_JSON =
+  H.property $ do
+    sData <- H.forAll genScriptData
+    H.tripping sData scriptDataToJsonDetailedSchema scriptDataFromJsonDetailedSchema
+
 -- -----------------------------------------------------------------------------
 
 tests :: TestTree