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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-23 15:43:31 -0700 (Sat, 23 Jul 2005)
New Revision: 1014

Modified:
   branches/r5rs/sigscheme/test/test-define.scm
Log:
* sigscheme/test/test-define.scm:
 - (what?): Rewrite test a bit.


Modified: branches/r5rs/sigscheme/test/test-define.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-define.scm	2005-07-23 11:30:34 UTC (rev 1013)
+++ branches/r5rs/sigscheme/test/test-define.scm	2005-07-23 22:43:31 UTC (rev 1014)
@@ -2,19 +2,17 @@
 
 ; basic define
 (define val1 3)
-(assert-eq? "basic define check" 3 val1)
+(assert-eq? "*basic define check*" 3 val1)
 
 ; redefine
 (define val1 5)
-(assert-eq? "redefine check" 5 val1)
+(assert-eq? "*redefine check*" 5 val1)
 
 ; define lambda
 (define (what? x)
-  x)
+  "DEAFBEEF" x)
 (assert-eq? "func define" 10 (what? 10))
 
 (define (add x y)
   (+ x y))
 (assert-eq? "func define" 10 (add 2 8))
-
-(total-report)