geom2d-0.2.1: Test/Utils.hs

module Test.Utils

where

import Linear.V2
import System.Exit
import Test.QuickCheck

doExit :: Bool -> IO ()
doExit True = exitSuccess
doExit False = exitFailure

instance Arbitrary a => Arbitrary (V2 a) where
  arbitrary = V2 <$> arbitrary <*> arbitrary