Revision 2e0bb81d htest/Test/Ganeti/TestCommon.hs

b/htest/Test/Ganeti/TestCommon.hs
81 81 
failTest :: String -> Property
82 82 
failTest msg = printTestCase msg False
83 83 

  		





  
  84
  
    
-- | A 'True' property.


  		





  
  85
  
    
passTest :: Property


  		





  
  86
  
    
passTest = property True


  		





  
  87
  
    

  		





  84
  88
  
    
-- | Return the python binary to use. If the PYTHON environment


  		





  85
  89
  
    
-- variable is defined, use its value, otherwise use just \"python\".


  		





  86
  90
  
    
pythonCmd :: IO String


  		












Also available in:
  Unified diff