[uim-commit] r1041 - branches/r5rs/sigscheme/test

[kzk at freedesktop.org]

Author: kzk
Date: 2005-07-26 23:16:56 -0700 (Tue, 26 Jul 2005)
New Revision: 1041

Modified:
   branches/r5rs/sigscheme/test/test-map.scm
Log:
* sigscheme/test/test-map.scm
  - using assert-equal?


Modified: branches/r5rs/sigscheme/test/test-map.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-map.scm	2005-07-27 02:00:02 UTC (rev 1040)
+++ branches/r5rs/sigscheme/test/test-map.scm	2005-07-27 06:16:56 UTC (rev 1041)
@@ -1,8 +1,8 @@
 (load "test/unittest.scm")
 
-(assert "basic map test1" (equal? '(2 2 2) (map cadr '((1 2) (1 2) (1 2)))))
-(assert "basic map test2" (equal? '(2 4 6) (map + '(1 2 3) '(1 2 3))))
-(assert "basic map test3" (equal? '(2 4 6) (map (lambda (x y) (+ x y))
-						'(1 2 3) '(1 2 3))))
+(assert-equal? "basic map test1" '(2 2 2) (map cadr '((1 2) (1 2) (1 2))))
+(assert-equal? "basic map test2" '(2 4 6) (map + '(1 2 3) '(1 2 3)))
+(assert-equal? "basic map test3" '(2 4 6) (map (lambda (x y) (+ x y))
+						'(1 2 3) '(1 2 3)))
 
 (total-report)