tests/test-sasl.el

   1 (require 'lunit)
   2 (require 'sasl)
   3
   4 (luna-define-class test-sasl (lunit-test-case))
   5
   6 (luna-define-method test-sasl-find-mechanism ((case test-sasl))
   7   (let ((mechanisms sasl-mechanisms))
   8     (while mechanisms
   9       (let* ((sasl-mechanisms (list (car mechanisms))))
  10         (lunit-assert
  11          (sasl-find-mechanism (list (car mechanisms)))))
  12       (setq mechanisms (cdr mechanisms)))))
  13
  14 (luna-define-method test-sasl-digest-md5-build-response-value ((case test-sasl))
  15   (require 'sasl-digest)
  16   (lunit-assert
  17    (string=
  18     (sasl-digest-md5-build-response-value
  19      "chris" "elwood.innosoft.com" "secret" "OA9BSXrbuRhWay" "OA9BSuZWMSpW8m" 1
  20      (sasl-digest-md5-digest-uri "acap" "elwood.innosoft.com"))
  21     "username=\"chris\",realm=\"elwood.innosoft.com\",nonce=\"OA9BSXrbuRhWay\",nc=00000001,cnonce=\"OA9BSuZWMSpW8m\",digest-uri=\"acap/elwood.innosoft.com\",response=6084c6db3fede7352c551284490fd0fc,")))