;; Short test suite for `md5'.
;; Simon Josefsson <simon@josefsson.org>

; simple tests

(assert (equal (md5 "foo") "acbd18db4cc2f85cedef654fccc4a4d8"))
(with-temp-buffer
  (insert "foo")
  (assert (equal (md5 (current-buffer)) "acbd18db4cc2f85cedef654fccc4a4d8")))

; start/end

(assert (equal (md5 "foo" 0 3) "acbd18db4cc2f85cedef654fccc4a4d8"))
(assert (equal (md5 "foo" 0 1) "8fa14cdd754f91cc6554c9e71929cce7"))
(assert (equal (md5 "foo" 0 2) "eed807024939b808083f0031a56e9872"))

(with-temp-buffer
  (insert "foo")
  (assert (equal (md5 (current-buffer) (point-min) (point-max))
		 "acbd18db4cc2f85cedef654fccc4a4d8")))

(with-temp-buffer
  (insert "foo")
  (assert (equal (md5 (current-buffer) (point-max) (point-min))
		 "acbd18db4cc2f85cedef654fccc4a4d8")))

(with-temp-buffer
  (insert "foo")
  (assert (equal (md5 (current-buffer) (point-min) (- (point-max) 2))
		 "8fa14cdd754f91cc6554c9e71929cce7")))

(with-temp-buffer
  (insert "foo")
  (assert (equal (md5 (current-buffer) (point-min) (- (point-max) 1))
		 "eed807024939b808083f0031a56e9872")))

; coding system

(assert (equal (md5 "räksmörgås") "09d9d71ec8a8e3bc74e51ebd587154f3"))
(assert (equal (md5 "räksmörgås" nil nil 'iso-8859-1) 
	       "09d9d71ec8a8e3bc74e51ebd587154f3"))

(with-temp-buffer
  (insert "räksmörgås")
  (assert (equal (md5 (current-buffer) (point-min) (point-max))
		 "09d9d71ec8a8e3bc74e51ebd587154f3")))

(with-temp-buffer
  (insert "räksmörgås")
  (assert (equal (md5 (current-buffer) (point-min) (point-max) 'iso-8859-1)
		 "09d9d71ec8a8e3bc74e51ebd587154f3")))

; different results in emacs and xemacs ("räksmörgås" can't be encoded
; in given coding system)

(assert (equal (md5 "räksmörgås" nil nil 'iso-8859-2)
	       ;; "26ca606dbb58796ada1894d47317582b"))  ; xemacs
	       "f170a00191949340ae559b337551e2a1")) ; emacs

(with-temp-buffer
  (insert "räksmörgås")
  (assert (equal (md5 (current-buffer) (point-min) (point-max) 'iso-8859-2)
		 ;; "ff57577d69308122fb58fa2906af8e89" ; xemacs
		 "f170a00191949340ae559b337551e2a1"))) ; emacs