geojson-1.3.2: test/Arbitrary.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Arbitrary where

import           Test.Tasty.QuickCheck (Arbitrary, arbitrary)
-- Local
import           Data.LinearRing       (LinearRing, makeLinearRing)
import           Data.LineString       (LineString, makeLineString)


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

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