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

chore: fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2022-04-21 11:57:42 +02:00
parent 253c6cdd9a
commit 0d0584587b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,6 +47,9 @@ instance (Arbitrary fileid, Arbitrary userid, Typeable fileid, Typeable userid,
instance Arbitrary WorkflowPayloadTextPreset where
arbitrary = genericArbitrary
shrink = genericShrink
instance Arbitrary WorkflowPayloadTextType where
arbitrary = genericArbitrary
shrink = genericShrink
instance Arbitrary (WorkflowPayloadField fileid userid Text) where
arbitrary = WorkflowPayloadFieldText
<$> scale (`div` 2) arbitrary