Mercurial > hg > xemacs-beta

comparison tests/automated/md5-tests.el @ 4855:189fb67ca31a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Create Assert-eq, Assert-equal, etc. These are equivalent to (Assert (eq ...)) but display both the actual value and the expected value of the comparison. Use them throughout the test suite.
author Ben Wing <ben@xemacs.org>
date Thu, 14 Jan 2010 02:18:03 -0600
parents 3ecd8885ac67
children 0f66906b6e37
comparison
equal deleted inserted replaced
4854:95c4ced5c07c 4855:189fb67ca31a
54 ;;----------------------------------------------------- 54 ;;-----------------------------------------------------
55 ;; Test `md5' on strings 55 ;; Test `md5' on strings
56 ;;----------------------------------------------------- 56 ;;-----------------------------------------------------
57 57
58 (mapcar (lambda (x) 58 (mapcar (lambda (x)
59 (Assert (equal (md5 (car x)) (cdr x)))) 59 (Assert-equal (md5 (car x)) (cdr x)))
60 md5-tests) 60 md5-tests)
61 61
62 ;;----------------------------------------------------- 62 ;;-----------------------------------------------------
63 ;; Test `md5' on portions of strings 63 ;; Test `md5' on portions of strings
64 ;;----------------------------------------------------- 64 ;;-----------------------------------------------------
65 65
66 (let ((large-string (mapconcat #'car md5-tests ""))) 66 (let ((large-string (mapconcat #'car md5-tests "")))
67 (let ((count 0)) 67 (let ((count 0))
68 (mapcar (lambda (x) 68 (mapcar (lambda (x)
69 (Assert (equal (md5 large-string count (+ count (length (car x)))) 69 (Assert-equal (md5 large-string count (+ count (length (car x))))
70 (cdr x))) 70 (cdr x))
71 (incf count (length (car x)))) 71 (incf count (length (car x))))
72 md5-tests))) 72 md5-tests)))
73 73
74 ;;----------------------------------------------------- 74 ;;-----------------------------------------------------
75 ;; Test `md5' on buffer 75 ;; Test `md5' on buffer
77 77
78 (with-temp-buffer 78 (with-temp-buffer
79 (mapcar (lambda (x) 79 (mapcar (lambda (x)
80 (erase-buffer) 80 (erase-buffer)
81 (insert (car x)) 81 (insert (car x))
82 (Assert (equal (md5 (current-buffer)) (cdr x)))) 82 (Assert-equal (md5 (current-buffer)) (cdr x)))
83 md5-tests)) 83 md5-tests))
84 84
85 ;;----------------------------------------------------- 85 ;;-----------------------------------------------------
86 ;; Test `md5' on portions of buffer 86 ;; Test `md5' on portions of buffer
87 ;;----------------------------------------------------- 87 ;;-----------------------------------------------------
88 88
89 (with-temp-buffer 89 (with-temp-buffer
90 (insert (mapconcat #'car md5-tests "")) 90 (insert (mapconcat #'car md5-tests ""))
91 (let ((point 1)) 91 (let ((point 1))
92 (mapcar (lambda (x) 92 (mapcar (lambda (x)
93 (Assert (equal (md5 (current-buffer) point (+ point (length (car x)))) 93 (Assert-equal (md5 (current-buffer) point (+ point (length (car x))))
94 (cdr x))) 94 (cdr x))
95 (incf point (length (car x)))) 95 (incf point (length (car x))))
96 md5-tests))) 96 md5-tests)))