mirror of
https://github.com/Jaxan/ons-hs.git
synced 2025-04-27 14:47:45 +02:00
15 lines
344 B
Haskell
15 lines
344 B
Haskell
{-# OPTIONS_GHC -Wno-orphans #-}
|
|
|
|
module SpecUtils where
|
|
|
|
import Test.Tasty.HUnit hiding (assert)
|
|
import Test.Tasty.QuickCheck as QC
|
|
|
|
import Support (Rat (..))
|
|
|
|
assert :: HasCallStack => (a -> Bool) -> a -> IO ()
|
|
assert f x = assertBool "" (f x)
|
|
|
|
instance Arbitrary Rat where
|
|
arbitrary = Rat <$> arbitrary
|
|
shrink (Rat p) = Rat <$> shrink p
|