Revision fef919b7 htest/Test/Ganeti/Confd/Utils.hs

b/htest/Test/Ganeti/Confd/Utils.hs
28 28 

  		





  29
  29
  
    
module Test.Ganeti.Confd.Utils (testConfd_Utils) where


  		





  30
  30
  
    

  		





  31
  
  
    
import Control.Applicative


  		





  32
  31
  
    
import Test.QuickCheck


  		





  33
  32
  
    
import qualified Text.JSON as J


  		





  34
  33
  
    

  		





  35
  34
  
    
import Test.Ganeti.TestHelper


  		





  36
  35
  
    
import Test.Ganeti.TestCommon


  		





  
  36
  
    
import Test.Ganeti.Confd.Types ()


  		





  37
  37
  
    

  		





  38
  38
  
    
import qualified Ganeti.BasicTypes as BasicTypes


  		





  39
  39
  
    
import qualified Ganeti.Confd.Types as Confd


  		





  ......




  41
  41
  
    
import qualified Ganeti.Constants as C


  		





  42
  42
  
    
import qualified Ganeti.Hash as Hash


  		





  43
  43
  
    

  		





  44
  
  
    
$(genArbitrary ''Confd.ConfdRequestType)


  		





  45
  
  
    

  		





  46
  
  
    
$(genArbitrary ''Confd.ConfdReqField)


  		





  47
  
  
    

  		





  48
  
  
    
$(genArbitrary ''Confd.ConfdReqQ)


  		





  49
  
  
    

  		





  50
  
  
    
instance Arbitrary Confd.ConfdQuery where


  		





  51
  
  
    
  arbitrary = oneof [ pure Confd.EmptyQuery


  		





  52
  
  
    
                    , Confd.PlainQuery <$> genName


  		





  53
  
  
    
                    , Confd.DictQuery <$> arbitrary


  		





  54
  
  
    
                    ]


  		





  55
  
  
    

  		





  56
  
  
    
$(genArbitrary ''Confd.ConfdRequest)


  		





  57
  
  
    

  		





  58
  44
  
    
-- | Test that signing messages and checking signatures is correct. It


  		





  59
  45
  
    
-- also tests, indirectly the serialisation of messages so we don't


  		





  60
  46
  
    
-- need a separate test for that.


  		












Also available in:
  Unified diff