cardano-api:test: Switch from Hedgehog.discover to Tasty.testGroupGen…

…erator Because we need to handle `test_` prefix, too.
IntersectMBO · Sep 14, 2021 · eaa3d15 · eaa3d15
1 parent 5f8676f
commit eaa3d15
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 11 deletions.
diff --git a/cardano-api/cardano-api.cabal b/cardano-api/cardano-api.cabal
@@ -207,7 +207,9 @@ test-suite cardano-api-test
                       , shelley-spec-ledger
                       , shelley-spec-ledger-test
                       , tasty
+                      , tasty-hedgehog
                       , tasty-quickcheck
+                      , tasty-th
                       , time
 
   other-modules:        Test.Cardano.Api.Crypto

diff --git a/cardano-api/test/Test/Cardano/Api/Typed/CBOR.hs b/cardano-api/test/Test/Cardano/Api/Typed/CBOR.hs
@@ -5,13 +5,17 @@ module Test.Cardano.Api.Typed.CBOR
   ( tests
   ) where
 
+import           Hedgehog (Property)
+import           Test.Tasty (TestTree)
+import           Test.Tasty.Hedgehog (testProperty)
+import           Test.Tasty.TH (testGroupGenerator)
+
 import           Cardano.Api
+
 import           Gen.Cardano.Api.Typed
 import           Gen.Hedgehog.Roundtrip.CBOR (roundtrip_CBOR)
-import           Gen.Tasty.Hedgehog.Group (fromGroup)
-import           Hedgehog (Property, discover)
+
 import           Test.Cardano.Api.Typed.Orphans ()
-import           Test.Tasty (TestTree)
 
 {- HLINT ignore "Use camelCase" -}
 
@@ -172,4 +176,4 @@ prop_roundtrip_UpdateProposal_CBOR =
 -- -----------------------------------------------------------------------------
 
 tests :: TestTree
-tests = fromGroup $$discover
+tests = $testGroupGenerator
diff --git a/cardano-api/test/Test/Cardano/Api/Typed/JSON.hs b/cardano-api/test/Test/Cardano/Api/Typed/JSON.hs
@@ -13,15 +13,18 @@ module Test.Cardano.Api.Typed.JSON
   ) where
 
 import           Cardano.Prelude
-import           Data.Aeson
-import           Gen.Cardano.Api.Typed
-import           Gen.Tasty.Hedgehog.Group (fromGroup)
-import           Hedgehog (Property, discover, forAll, tripping)
-import           Test.Cardano.Api.Typed.Orphans ()
-import           Test.Tasty (TestTree)
 
+import           Data.Aeson (eitherDecode, encode)
+import           Hedgehog (Property, forAll, tripping)
 import qualified Hedgehog as H
 import qualified Hedgehog.Gen as Gen
+import           Test.Tasty (TestTree)
+import           Test.Tasty.Hedgehog (testProperty)
+import           Test.Tasty.TH (testGroupGenerator)
+
+import           Gen.Cardano.Api.Typed (genMaybePraosNonce, genProtocolParameters)
+
+import           Test.Cardano.Api.Typed.Orphans ()
 
 {- HLINT ignore "Use camelCase" -}
 
@@ -38,4 +41,4 @@ prop_roundtrip_protocol_parameters_JSON = H.property $ do
 -- -----------------------------------------------------------------------------
 
 tests :: TestTree
-tests = fromGroup $$discover
+tests = $testGroupGenerator