Marc Weber wrote:

data A = A INt
       | B [A]

instace Arbitrary A where
  arbitrary = oneof [ liftM A arbitrary
                    , liftM B arbitrary
                    ]

But now QuickCheck will propably create a test value
A ( B [ A ( B [ A .... -> no end

Is there an easy QuickCheck way to prevent this?

There are two successive sections in the QuickCheck manual that cover exactly this topic.

http://www.cs.chalmers.se/~rjmh/QuickCheck/manual_body.html#15

        <b
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to