iteratee-0.4.0: tests/QCUtils.hs

{-# LANGUAGE FlexibleInstances, FlexibleContexts, UndecidableInstances #-}

module QCUtils where

import Test.QuickCheck
import Test.QuickCheck.Arbitrary
import Test.QuickCheck.Gen

import Data.Iteratee
import Data.Iteratee.Iteratee
import qualified Data.Iteratee as I
import qualified Data.ListLike as LL
import Data.Functor.Identity

import Control.Applicative
import Control.Exception

-- Show instance
instance (Show a, LL.ListLike s el) => Show (Iteratee s Identity a) where
  show = (++) "<<Iteratee>> " . show . runIdentity . run

-- Arbitrary instances

instance Arbitrary c => Arbitrary (Stream c) where
  arbitrary = do
    err <- arbitrary
    xs <- arbitrary
    elements [EOF err, Chunk xs]

tE :: Exception e => e -> SomeException
tE = toException

instance Arbitrary SomeException where
  arbitrary = do
    str <- arbitrary
    off <- fromInteger <$> (arbitrary :: Gen Integer)
    elements [tE DivergentException, tE (SeekException off),
      tE EofException, iterStrExc str]

instance (Num a, Ord a, Arbitrary a, Monad m) => Arbitrary (Iteratee [a] m [a]) where
  arbitrary = do
    n <- suchThat arbitrary (>0)
    ns <- arbitrary
    elements [
              I.drop n >> stream2list
              ,I.break (< 5)
              ,I.heads ns >> stream2list
              ,I.peek >> stream2list
              ]