Skip to content

Commit

Permalink
fixup: Move "Arbitrary instances" section
Browse files Browse the repository at this point in the history
  • Loading branch information
Anviking committed May 26, 2023
1 parent b76a662 commit f062875
Showing 1 changed file with 9 additions and 8 deletions.
17 changes: 9 additions & 8 deletions lib/wallet/test/unit/Cardano/Wallet/Write/TxSpec.hs
Expand Up @@ -203,6 +203,15 @@ spec = do
"fromCardanoUTxO")
id

--------------------------------------------------------------------------------
-- Arbitrary instances
--------------------------------------------------------------------------------

instance Arbitrary AnyRecentEra where
arbitrary = arbitraryBoundedEnum
shrink = shrinkBoundedEnum


instance Arbitrary Cardano.HashableScriptData where
arbitrary = genHashableScriptData
shrink = const []
Expand Down Expand Up @@ -282,14 +291,6 @@ testIsomorphism (NamedFun f fName) (NamedFun g gName) normalize =
(property $ \x -> g (f x) === x)
]

--------------------------------------------------------------------------------
-- Arbitrary instances
--------------------------------------------------------------------------------

instance Arbitrary AnyRecentEra where
arbitrary = arbitraryBoundedEnum
shrink = shrinkBoundedEnum

--------------------------------------------------------------------------------
-- Test Data
--------------------------------------------------------------------------------
Expand Down

0 comments on commit f062875

Please sign in to comment.