Sarah Vaupel
72f5a9fb37
TODOs left: reimplement clean and help, sync static,well-known and assets between services
23 lines
535 B
Haskell
23 lines
535 B
Haskell
-- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>
|
|
--
|
|
-- SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
module Utils.I18nSpec where
|
|
|
|
import TestImport
|
|
|
|
import Utils.I18n
|
|
|
|
|
|
instance Arbitrary a => Arbitrary (I18n a) where
|
|
arbitrary = genericArbitrary
|
|
shrink = genericShrink
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
parallel $ do
|
|
lawsCheckHspec (Proxy @I18nText)
|
|
[ eqLaws, ordLaws, showLaws, showReadLaws, jsonLaws, persistFieldLaws ]
|
|
lawsCheckHspec (Proxy @I18n)
|
|
[ foldableLaws, functorLaws, traversableLaws ]
|