Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/tests/automated/md5-tests.el	Thu Jan 14 01:25:16 2010 -0600
+++ b/tests/automated/md5-tests.el	Thu Jan 14 02:18:03 2010 -0600
@@ -56,7 +56,7 @@
 ;;-----------------------------------------------------
 
 (mapcar (lambda (x)
-	  (Assert (equal (md5 (car x)) (cdr x))))
+	  (Assert-equal (md5 (car x)) (cdr x)))
 	md5-tests)
 
 ;;-----------------------------------------------------
@@ -66,8 +66,8 @@
 (let ((large-string (mapconcat #'car md5-tests "")))
   (let ((count 0))
     (mapcar (lambda (x)
-	      (Assert (equal (md5 large-string count (+ count (length (car x))))
-			     (cdr x)))
+	      (Assert-equal (md5 large-string count (+ count (length (car x))))
+			     (cdr x))
 	      (incf count (length (car x))))
 	    md5-tests)))
 
@@ -79,7 +79,7 @@
   (mapcar (lambda (x)
 	    (erase-buffer)
 	    (insert (car x))
-	    (Assert (equal (md5 (current-buffer)) (cdr x))))
+	    (Assert-equal (md5 (current-buffer)) (cdr x)))
 	  md5-tests))
 
 ;;-----------------------------------------------------
@@ -90,7 +90,7 @@
   (insert (mapconcat #'car md5-tests ""))
   (let ((point 1))
     (mapcar (lambda (x)
-	      (Assert (equal (md5 (current-buffer) point (+ point (length (car x))))
-			     (cdr x)))
+	      (Assert-equal (md5 (current-buffer) point (+ point (length (car x))))
+			     (cdr x))
 	      (incf point (length (car x))))
 	    md5-tests)))