[tests] fix unit tests with ESRepeatNElseArchive

parent 9ef63634
Pipeline #6443 failed with stages
in 9 minutes and 58 seconds
......@@ -24,7 +24,9 @@ aesonPropTests = testGroup "Aeson (de-)serialization property tests" $
instance QC.Arbitrary WT.ArchiveStrategy where
arbitrary = QC.elements [ WT.ASDelete, WT.ASArchive ]
instance QC.Arbitrary WT.ErrorStrategy where
arbitrary = QC.elements [ WT.ESDelete, WT.ESArchive, WT.ESRepeat ]
arbitrary = do
n <- arbitrary
QC.elements [ WT.ESDelete, WT.ESArchive, WT.ESRepeatNElseArchive n ]
instance QC.Arbitrary WT.TimeoutStrategy where
arbitrary = do
n <- arbitrary
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment