From 89bc1b7b70dab8e0851f75afecc82f504199ee9e Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 21 Apr 2019 14:33:48 +0200 Subject: [PATCH] Fix Test --- test/Model/TypesSpec.hs | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/test/Model/TypesSpec.hs b/test/Model/TypesSpec.hs index d30237550..b042b2aa6 100644 --- a/test/Model/TypesSpec.hs +++ b/test/Model/TypesSpec.hs @@ -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)