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