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

Fix Test

Browse Source
This commit is contained in:
Gregor Kleen 2019-04-21 14:33:48 +02:00
parent eaf0f321b8
commit 89bc1b7b70
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/Model/TypesSpec.hs
View File

@ -66,7 +66,11 @@ instance Arbitrary UploadMode where
arbitrary = genericArbitrary
shrink = genericShrink
instance Arbitrary SheetSubmissionMode where
instance Arbitrary SubmissionMode where
arbitrary = genericArbitrary
shrink = genericShrink
instance Arbitrary SubmissionModeDescr where
arbitrary = genericArbitrary
shrink = genericShrink
@ -171,8 +175,10 @@ spec = do
[ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, pathPieceLaws, finiteLaws ]
lawsCheckHspec (Proxy @UploadMode)
[ eqLaws, showReadLaws, ordLaws, jsonLaws, persistFieldLaws, pathPieceLaws, finiteLaws ]
lawsCheckHspec (Proxy @SheetSubmissionMode)
[ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, jsonLaws, persistFieldLaws, finiteLaws, pathPieceLaws ]
lawsCheckHspec (Proxy @SubmissionMode)
[ eqLaws, showReadLaws, ordLaws, jsonLaws, persistFieldLaws, finiteLaws ]
lawsCheckHspec (Proxy @SubmissionModeDescr)
[ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, finiteLaws, pathPieceLaws ]
lawsCheckHspec (Proxy @ExamStatus)
[ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, persistFieldLaws ]
lawsCheckHspec (Proxy @Load)