module Tests.Grid
where

import Test.QuickCheck
import Grid

instance Arbitrary Grid where
    arbitrary = do
      (Positive h') <- arbitrary :: Gen (Positive Double)
      fv <- arbitrary :: Gen [[[Double]]]
      return (make_grid h' fv)