Revision 41eb900e htest/Test/Ganeti/Confd/Utils.hs

b/htest/Test/Ganeti/Confd/Utils.hs
96 96 
  let signed = Confd.Utils.signMessage key_sign salt (J.encode crq)
97 97 
      encoded = J.encode signed
98 98 
  in printTestCase ("Accepted message signed with different key" ++ encoded) $
99 
    BasicTypes.Bad "HMAC verification failed" ==?
100 
     Confd.Utils.parseRequest key_verify encoded
99 
     Confd.Utils.parseRequest key_verify encoded ==?
100 
       BasicTypes.Bad "HMAC verification failed"
101 101 

  		





  102
  102
  
    
testSuite "Confd/Utils"


  		





  103
  103
  
    
  [ 'prop_req_sign


  		












Also available in:
  Unified diff