module Tests.Cube
where

import Test.QuickCheck

import Cube
import Grid (Grid)
import Tests.Grid ()

instance Arbitrary Cube where
    arbitrary = do
      g' <- arbitrary :: Gen Grid
      i' <- choose (coordmin, coordmax)
      j' <- choose (coordmin, coordmax)
      k' <- choose (coordmin, coordmax)
      d' <- arbitrary :: Gen Double
      return (Cube g' i' j' k' d')
        where
          coordmin = -268435456 -- -(2^29 / 2)
          coordmax = 268435456  -- +(2^29 / 2)