Revision 63b068c1 htest/Test/Ganeti/Jobs.hs

b/htest/Test/Ganeti/Jobs.hs
30 30 

  		





  31
  31
  
    
import Test.QuickCheck


  		





  32
  32
  
    

  		





  33
  
  
    
import qualified Text.JSON as J


  		





  34
  
  
    

  		





  35
  33
  
    
import Test.Ganeti.TestHelper


  		





  36
  34
  
    
import Test.Ganeti.TestCommon


  		





  37
  35
  
    

  		





  ......




  49
  47
  
    

  		





  50
  48
  
    
-- | Check that (queued) job\/opcode status serialization is idempotent.


  		





  51
  49
  
    
prop_OpStatus_serialization :: Jobs.OpStatus -> Property


  		





  52
  
  
    
prop_OpStatus_serialization os =


  		





  53
  
  
    
  case J.readJSON (J.showJSON os) of


  		





  54
  
  
    
    J.Error e -> failTest $ "Cannot deserialise: " ++ e


  		





  55
  
  
    
    J.Ok os' -> os ==? os'


  		





  
  50
  
    
prop_OpStatus_serialization = testSerialisation


  		





  56
  51
  
    

  		





  57
  52
  
    
prop_JobStatus_serialization :: Jobs.JobStatus -> Property


  		





  58
  
  
    
prop_JobStatus_serialization js =


  		





  59
  
  
    
  case J.readJSON (J.showJSON js) of


  		





  60
  
  
    
    J.Error e -> failTest $ "Cannot deserialise: " ++ e


  		





  61
  
  
    
    J.Ok js' -> js ==? js'


  		





  
  53
  
    
prop_JobStatus_serialization = testSerialisation


  		





  62
  54
  
    

  		





  63
  55
  
    
testSuite "Jobs"


  		





  64
  56
  
    
            [ 'prop_OpStatus_serialization


  		












Also available in:
  Unified diff