fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(tests): generate sensible WorkflowPayloadLabels

Browse Source
This commit is contained in:
Gregor Kleen 2020-11-29 17:56:09 +01:00
parent f9d933bdac
commit 8a888d3945
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Model/Types/WorkflowSpec.hs
View File

@ -20,9 +20,11 @@ import Control.Lens.Extras (is)
import Utils.I18n import Utils.I18n
import qualified Data.CaseInsensitive as CI
instance Arbitrary WorkflowPayloadLabel where instance Arbitrary WorkflowPayloadLabel where
arbitrary = genericArbitrary arbitrary = WorkflowPayloadLabel . CI.mk . pack <$> (fmap getPrintableString arbitrary `suchThat` (not . null))
shrink = genericShrink shrink = genericShrink
instance CoArbitrary WorkflowPayloadLabel instance CoArbitrary WorkflowPayloadLabel
instance Function WorkflowPayloadLabel instance Function WorkflowPayloadLabel