Revision 4651c69f test/hs/Test/Ganeti/TestCommon.hs

b/test/hs/Test/Ganeti/TestCommon.hs
50 50 
  , SmallRatio(..)
51 51 
  , genSetHelper
52 52 
  , genSet
53 
  , genListSet
53 54 
  , genIPv4Address
54 55 
  , genIPv4Network
55 56 
  , genIp6Addr
......
279 280 
           newelem <- elements candidates `suchThat` (`Set.notMember` set)
280 281 
           return (Set.insert newelem set)) Set.empty [1..size']
281 282 

  		





  282
  
  
    
-- | Generates a set of arbitrary elements.


  		





  
  283
  
    
-- | Generates a 'Set' of arbitrary elements.


  		





  283
  284
  
    
genSet :: (Ord a, Bounded a, Enum a) => Maybe Int -> Gen (Set.Set a)


  		





  284
  285
  
    
genSet = genSetHelper [minBound..maxBound]


  		





  285
  286
  
    

  		





  
  287
  
    
-- | Generates a 'Set' of arbitrary elements wrapped in a 'ListSet'


  		





  
  288
  
    
genListSet :: (Ord a, Bounded a, Enum a) => Maybe Int


  		





  
  289
  
    
              -> Gen (BasicTypes.ListSet a)


  		





  
  290
  
    
genListSet is = BasicTypes.ListSet <$> genSet is


  		





  
  291
  
    

  		





  286
  292
  
    
-- | Generate an arbitrary IPv4 address in textual form.


  		





  287
  293
  
    
genIPv4 :: Gen String


  		





  288
  294
  
    
genIPv4 = do


  		












Also available in:
  Unified diff