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

b/htest/Test/Ganeti/Objects.hs
37 37 
import Control.Applicative
38 38 
import qualified Data.Map as Map
39 39 
import qualified Data.Set as Set
40 
import qualified Text.JSON as J
41 40 

  		





  42
  41
  
    
import Test.Ganeti.TestHelper


  		





  43
  42
  
    
import Test.Ganeti.TestCommon


  		





  ......




  106
  105
  
    
-- testing entire Disk serialisations. So this tests two things at


  		





  107
  106
  
    
-- once, basically.


  		





  108
  107
  
    
prop_Disk_serialisation :: Disk -> Property


  		





  109
  
  
    
prop_Disk_serialisation disk =


  		





  110
  
  
    
  J.readJSON (J.showJSON disk) ==? J.Ok disk


  		





  
  108
  
    
prop_Disk_serialisation = testSerialisation


  		





  111
  109
  
    

  		





  112
  110
  
    
-- | Check that node serialisation is idempotent.


  		





  113
  111
  
    
prop_Node_serialisation :: Node -> Property


  		





  114
  
  
    
prop_Node_serialisation node =


  		





  115
  
  
    
  J.readJSON (J.showJSON node) ==? J.Ok node


  		





  
  112
  
    
prop_Node_serialisation = testSerialisation


  		





  116
  113
  
    

  		





  117
  114
  
    
testSuite "Objects"


  		





  118
  115
  
    
  [ 'prop_fillDict


  		












Also available in:
  Unified diff