From 3eb06f3d1d0670b52e56979340e7d5ea90d360fa Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 23 Jun 2021 15:28:55 +0200 Subject: [PATCH] chore: fix tests --- test/Model/Types/WorkflowSpec.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/Model/Types/WorkflowSpec.hs b/test/Model/Types/WorkflowSpec.hs index fca72b520..d43af9ae8 100644 --- a/test/Model/Types/WorkflowSpec.hs +++ b/test/Model/Types/WorkflowSpec.hs @@ -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