src/Tests/Grid.hs

   1 module Tests.Grid
   2 where
   3
   4 import Test.QuickCheck
   5 import Grid
   6
   7 instance Arbitrary Grid where
   8     arbitrary = do
   9       (Positive h') <- arbitrary :: Gen (Positive Double)
  10       fv <- arbitrary :: Gen [[[Double]]]
  11       return (make_grid h' fv)