Revision dde8b625 test/hs/Test/Ganeti/Types.hs
b/test/hs/Test/Ganeti/Types.hs  

37  37 
, JobId(..) 
38  38 
) where 
39  39  
40 
import Control.Applicative 

41 
import System.Time (ClockTime(..)) 

42  
40  43 
import Test.QuickCheck as QuickCheck hiding (Result) 
41  44 
import Test.HUnit 
42  45 
import qualified Text.JSON as J 
...  ...  
54  57  
55  58 
 * Arbitrary instance 
56  59  
60 
instance Arbitrary ClockTime where 

61 
arbitrary = TOD <$> arbitrary <*> fmap (`mod` (10^(12::Int))) arbitrary 

62  
57  63 
instance (Arbitrary a, Ord a, Num a, Show a) => 
58  64 
Arbitrary (Types.Positive a) where 
59  65 
arbitrary = do 
Also available in: Unified diff