From 73ab8f4b8cb6f08e7b694bdadcd42751b3916dae Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 13 Jun 2019 01:51:44 +0200 Subject: [PATCH] New file rfc2104-tests.el * test/lisp/net/rfc2104-tests.el: New file to test rfc2104 hashes. --- test/lisp/net/rfc2104-tests.el | 39 ++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 test/lisp/net/rfc2104-tests.el diff --git a/test/lisp/net/rfc2104-tests.el b/test/lisp/net/rfc2104-tests.el new file mode 100644 index 00000000000..db6fccab190 --- /dev/null +++ b/test/lisp/net/rfc2104-tests.el @@ -0,0 +1,39 @@ +;;; rfc2104-tests.el --- Tests of RFC2104 hashes + +;; Copyright (C) 2019 Free Software Foundation, Inc. + +;; Author: Lars Ingebrigtsen + +;; This program is free software: you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation, either version 3 of the +;; License, or (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see `https://www.gnu.org/licenses/'. + +;;; Code: + +(require 'ert) +(require 'rfc2104) +(require 'sha1) +(require 'md5) + +(ert-deftest dbus-test-sha1 () + (should + (equal (rfc2104-hash 'sha1 64 20 "Jefe" "what do ya want for nothing?") + "effcdf6ae5eb2fa2d27416d5f184df9c259a7c79"))) + +(ert-deftest dbus-test-md5 () + (should + (equal (rfc2104-hash 'md5 64 16 "Jefe" "what do ya want for nothing?") + "750c783e6ab0b503eaa86e310a5db738"))) + +(provide 'rfc2104-tests) + +;;; rfc2104-tests.el ends here -- 2.39.5