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

chore: fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2021-06-23 15:28:55 +02:00
parent 426c40f0a4
commit 3eb06f3d1d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,6 +44,9 @@ instance (Arbitrary fileid, Arbitrary userid, Typeable fileid, Typeable userid,
, WorkflowPayloadSpec <$> arbitrary @(WorkflowPayloadField fileid userid (NonEmpty (WorkflowFieldPayloadW fileid userid)))
]
instance Arbitrary WorkflowPayloadTextPreset where
arbitrary = genericArbitrary
shrink = genericShrink
instance Arbitrary (WorkflowPayloadField fileid userid Text) where
arbitrary = WorkflowPayloadFieldText
<$> scale (`div` 2) arbitrary
@ -52,6 +55,7 @@ instance Arbitrary (WorkflowPayloadField fileid userid Text) where
<*> scale (`div` 2) arbitrary
<*> scale (`div` 2) arbitrary
<*> scale (`div` 2) arbitrary
<*> scale (`div` 2) arbitrary
instance Arbitrary (WorkflowPayloadField fileid userid Scientific) where
arbitrary = WorkflowPayloadFieldNumber
<$> scale (`div` 2) arbitrary