Revision 5bfcd75f htest/Test/Ganeti/Confd/Utils.hs

b/htest/Test/Ganeti/Confd/Utils.hs
82 82 
  let signed = Confd.Utils.signMessage key_sign salt (J.encode crq)
83 83 
      encoded = J.encode signed
84 84 
  in printTestCase ("Accepted message signed with different key" ++ encoded) $
85 
     Confd.Utils.parseRequest key_verify encoded ==?
85 
     (Confd.Utils.parseSignedMessage key_verify encoded
86 
      :: BasicTypes.Result (String, String, Confd.ConfdRequest)) ==?
86 87 
       BasicTypes.Bad "HMAC verification failed"
87 88 

  		





  88
  89
  
    
testSuite "Confd/Utils"


  		












Also available in:
  Unified diff