pomaps-0.1.0.0: tests/Data/POMap/Arbitrary.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}
module Data.POMap.Arbitrary where

import           Algebra.PartialOrd
import           Data.POMap.Strict
import           Test.Tasty.QuickCheck

instance (PartialOrd k, Arbitrary k, Arbitrary v) => Arbitrary (POMap k v) where
  arbitrary = fromList <$> arbitrary
  shrink = fmap fromList . shrink . toList