fradrive/test/Model/RatingSpec.hs
2021-01-18 14:19:02 +01:00

21 lines
405 B
Haskell

module Model.RatingSpec where
import TestImport
import ModelSpec ()
import Model.Rating
instance Arbitrary RatingExamPartReference where
arbitrary = genericArbitrary
shrink = genericShrink
instance Arbitrary Rating' where
arbitrary = genericArbitrary
shrink = genericShrink
instance Arbitrary Rating where
arbitrary = genericArbitrary
shrink = genericShrink
spec :: Spec
spec = return ()