Revision e09c1fa0 htest/Test/Ganeti/HTools/Types.hs

b/htest/Test/Ganeti/HTools/Types.hs
27 27 
-}
28 28 

  		





  29
  29
  
    
module Test.Ganeti.HTools.Types


  		





  30
  
  
    
  ( testTypes


  		





  
  30
  
    
  ( testHTools_Types


  		





  31
  31
  
    
  , Types.AllocPolicy(..)


  		





  32
  32
  
    
  , Types.DiskTemplate(..)


  		





  33
  33
  
    
  , Types.FailMode(..)


  		





  ......




  175
  175
  
    
                 Types.Ok v' -> v == v'


  		





  176
  176
  
    
    where r = Types.eitherToResult ei


  		





  177
  177
  
    

  		





  178
  
  
    
testSuite "Types"


  		





  
  178
  
    
testSuite "HTools/Types"


  		





  179
  179
  
    
            [ 'prop_AllocPolicy_serialisation


  		





  180
  180
  
    
            , 'prop_DiskTemplate_serialisation


  		





  181
  181
  
    
            , 'prop_ISpec_serialisation


  		












Also available in:
  Unified diff