35 lines
958 B
Haskell
35 lines
958 B
Haskell
module MailSpec where
|
|
|
|
import TestImport
|
|
import Utils.DateTimeSpec ()
|
|
|
|
import Mail
|
|
|
|
instance Arbitrary MailSmtpData where
|
|
arbitrary = genericArbitrary
|
|
shrink = genericShrink
|
|
|
|
instance Arbitrary MailLanguages where
|
|
arbitrary = fmap MailLanguages $ shuffle =<< sublistOf (toList appLanguages)
|
|
shrink = genericShrink
|
|
|
|
instance Arbitrary MailContext where
|
|
arbitrary = genericArbitrary
|
|
shrink = genericShrink
|
|
|
|
instance Arbitrary VerpMode where
|
|
arbitrary = genericArbitrary
|
|
shrink = genericShrink
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
parallel $ do
|
|
lawsCheckHspec (Proxy @MailSmtpData)
|
|
[ eqLaws, ordLaws, showReadLaws, monoidLaws ]
|
|
lawsCheckHspec (Proxy @MailLanguages)
|
|
[ eqLaws, ordLaws, showReadLaws, isListLaws, jsonLaws, hashableLaws, persistFieldLaws ]
|
|
lawsCheckHspec (Proxy @MailContext)
|
|
[ eqLaws, ordLaws, showReadLaws, jsonLaws, hashableLaws ]
|
|
lawsCheckHspec (Proxy @VerpMode)
|
|
[ eqLaws, showReadLaws, jsonLaws ]
|