src/Tests/Cube.hs

   1 module Tests.Cube
   2 where
   3
   4 import Test.QuickCheck
   5
   6 import Cube
   7 import Grid (Grid)
   8 import Tests.Grid ()
   9
  10 instance Arbitrary Cube where
  11     arbitrary = do
  12       g' <- arbitrary :: Gen Grid
  13       i' <- choose (coordmin, coordmax)
  14       j' <- choose (coordmin, coordmax)
  15       k' <- choose (coordmin, coordmax)
  16       d' <- arbitrary :: Gen Double
  17       return (Cube g' i' j' k' d')
  18         where
  19           coordmin = -268435456 -- -(2^29 / 2)
  20           coordmax = 268435456  -- +(2^29 / 2)