Revision 7022db83 htest/Test/Ganeti/Ssconf.hs

b/htest/Test/Ganeti/Ssconf.hs
38 38 

  		





  39
  39
  
    
-- * Ssconf tests


  		





  40
  40
  
    

  		





  41
  
  
    
instance Arbitrary Ssconf.SSKey where


  		





  42
  
  
    
  arbitrary = elements [minBound..maxBound]


  		





  
  41
  
    
$(genArbitrary ''Ssconf.SSKey)


  		





  43
  42
  
    

  		





  44
  43
  
    
prop_filename :: Ssconf.SSKey -> Property


  		





  45
  44
  
    
prop_filename key =


  		












Also available in:
  Unified diff