Revision 37904802 htest/Test/Ganeti/Ssconf.hs

b/htest/Test/Ganeti/Ssconf.hs
43 43 
prop_filename :: Ssconf.SSKey -> Property
44 44 
prop_filename key =
45 45 
  printTestCase "Key doesn't start with correct prefix" $
46 
    Ssconf.sSFilePrefix `isPrefixOf` Ssconf.keyToFilename (Just "") key
46 
    Ssconf.sSFilePrefix `isPrefixOf` Ssconf.keyToFilename "" key
47 47 

  		





  48
  48
  
    
testSuite "Ssconf"


  		





  49
  49
  
    
  [ 'prop_filename


  		












Also available in:
  Unified diff