Revision b9bdc10e htest/Test/Ganeti/TestCommon.hs

b/htest/Test/Ganeti/TestCommon.hs
31 31 
import Data.List
32 32 
import qualified Test.HUnit as HUnit
33 33 
import Test.QuickCheck
34 
import Test.QuickCheck.Monadic
34 35 
import qualified Text.JSON as J
35 36 
import System.Environment (getEnv)
36 37 
import System.Exit (ExitCode(..))
37 38 
import System.IO.Error (isDoesNotExistError)
38 39 
import System.Process (readProcessWithExitCode)
39 40 

  		





  
  41
  
    
import qualified Ganeti.BasicTypes as BasicTypes


  		





  
  42
  
    

  		





  40
  43
  
    
-- * Constants


  		





  41
  44
  
    

  		





  42
  45
  
    
-- | Maximum memory (1TiB, somewhat random value).


  		





  ......




  199
  202
  
    
  case J.readJSON (J.showJSON a) of


  		





  200
  203
  
    
    J.Error msg -> failTest $ "Failed to deserialise: " ++ msg


  		





  201
  204
  
    
    J.Ok a' -> a ==? a'


  		





  
  205
  
    

  		





  
  206
  
    
-- | Result to PropertyM IO.


  		





  
  207
  
    
resultProp :: BasicTypes.Result a -> PropertyM IO a


  		





  
  208
  
    
resultProp (BasicTypes.Bad msg) = stop $ failTest msg


  		





  
  209
  
    
resultProp (BasicTypes.Ok  val) = return val


  		












Also available in:
  Unified diff