From: ueno <ueno>
Date: Fri, 10 Nov 2000 15:50:24 +0000 (+0000)
Subject: * sasl-digest.el (sasl-digest-md5-challenge): Abolish.
X-Git-Tag: deisui-1_14_0-2000-12-14~21
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=988818b4d8c8f1b978cc0de28f17a55aebab800c;p=elisp%2Fflim.git

* sasl-digest.el (sasl-digest-md5-challenge): Abolish.
(sasl-digest-md5-syntax-table): Rename from
`sasl-digest-md5-parse-digest-challenge-syntax-table'.
(sasl-digest-md5-parse-string): Rename from
`sasl-digest-md5-parse-digest-challenge'; only return a property list.
(sasl-digest-md5-challenge): Abolish.
(sasl-digest-md5-build-response-value-1): Abolish.
(sasl-digest-md5-response-value): Define as function.
(sasl-digest-md5-response): Rewrite.

* tests/test-sasl.el (test-sasl-digest-md5-imap): New testcase.
(test-sasl-digest-md5-acap): New testcase.
---

diff --git a/tests/test-sasl.el b/tests/test-sasl.el
index e911deb..07bcaa1 100644
--- a/tests/test-sasl.el
+++ b/tests/test-sasl.el
@@ -11,11 +11,50 @@
 	 (sasl-find-mechanism (list (car mechanisms)))))
       (setq mechanisms (cdr mechanisms)))))
 
-(luna-define-method test-sasl-digest-md5-build-response-value ((case test-sasl))
-  (require 'sasl-digest)
-  (lunit-assert
-   (string=
-    (sasl-digest-md5-build-response-value
-     "chris" "elwood.innosoft.com" "secret" "OA9BSXrbuRhWay" "OA9BSuZWMSpW8m" 1
-     (sasl-digest-md5-digest-uri "acap" "elwood.innosoft.com"))
-    "username=\"chris\",realm=\"elwood.innosoft.com\",nonce=\"OA9BSXrbuRhWay\",nc=00000001,cnonce=\"OA9BSuZWMSpW8m\",digest-uri=\"acap/elwood.innosoft.com\",response=6084c6db3fede7352c551284490fd0fc,")))
+(luna-define-method test-sasl-digest-md5-imap ((case test-sasl))
+  (let* ((sasl-mechanisms '("DIGEST-MD5"))
+	 (mechanism
+	  (sasl-find-mechanism '("DIGEST-MD5")))
+	 (client
+	  (sasl-make-client mechanism "chris" "imap" "elwood.innosoft.com"))
+	 (sasl-read-passphrase
+	  #'(lambda (prompt)
+	      "secret"))
+	 step
+	 response)
+    (sasl-client-set-property client 'realm "elwood.innosoft.com")
+    (sasl-client-set-property client 'cnonce "OA6MHXh6VqTrRk")
+    (setq step (sasl-next-step client nil))
+    (sasl-step-set-data
+     step "realm=\"elwood.innosoft.com\",nonce=\"OA6MG9tEQGm2hh\",\
+qop=\"auth\",algorithm=md5-sess,charset=utf-8")
+    (setq step (sasl-next-step client step))
+    (sasl-step-data step)
+    (setq response (sasl-digest-md5-parse-string (sasl-step-data step)))
+    (lunit-assert
+     (string=
+      (plist-get response 'response) "d388dad90d4bbd760a152321f2143af7"))))
+
+(luna-define-method test-sasl-digest-md5-acap ((case test-sasl))
+  (let* ((sasl-mechanisms '("DIGEST-MD5"))
+	 (mechanism
+	  (sasl-find-mechanism '("DIGEST-MD5")))
+	 (client
+	  (sasl-make-client mechanism "chris" "acap" "elwood.innosoft.com"))
+	 (sasl-read-passphrase
+	  #'(lambda (prompt)
+	      "secret"))
+	 step
+	 response)
+    (sasl-client-set-property client 'realm "elwood.innosoft.com")
+    (sasl-client-set-property client 'cnonce "OA9BSuZWMSpW8m")
+    (setq step (sasl-next-step client nil))
+    (sasl-step-set-data
+     step "realm=\"elwood.innosoft.com\",nonce=\"OA9BSXrbuRhWay\",qop=\"auth\",\
+algorithm=md5-sess,charset=utf-8")
+    (setq step (sasl-next-step client step))
+    (sasl-step-data step)
+    (setq response (sasl-digest-md5-parse-string (sasl-step-data step)))
+    (lunit-assert
+     (string=
+      (plist-get response 'response) "6084c6db3fede7352c551284490fd0fc"))))