doVerifyTest hashAlg i vector = testCase (show i) (True @=? actual)
  where actual = ECDSA.verify hashAlg (vectorToPublic vector) (ECDSA.Signature (r vector) (s vector)) (msg vector)
doVerifyTest hashAlg i vector = testCase (show i) (True @=? actual)
  where actual = ECDSA.verify hashAlg (vectorToPublic vector) (ECDSA.Signature (r vector) (s vector)) (msg vector)
doVerifyTest hashAlg i vector = testCase (show i) (True @=? actual)
  where actual = ECDSA.verify hashAlg (vectorToPublic vector) (ECDSA.Signature (r vector) (s vector)) (msg vector)