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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-07-27 08:20:18 -0700 (Wed, 27 Jul 2005)
New Revision: 1048

Modified:
   branches/r5rs/sigscheme/test/test-char.scm
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* test/test-char.scm
  - add testcases for (char? #\ ), that is, space handling.
    fix to pass this test!

* test/test-exp.scm
  - add testcases for lambda
    fix to pass "basic lambda test8"!
  - add testcases for cond
    but current cond doesn't support "=>" form


Modified: branches/r5rs/sigscheme/test/test-char.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-char.scm	2005-07-27 13:43:00 UTC (rev 1047)
+++ branches/r5rs/sigscheme/test/test-char.scm	2005-07-27 15:20:18 UTC (rev 1048)
@@ -2,7 +2,8 @@
 
 ;; check char?
 (assert "alphabet char" (char? #\a))
-(assert "space"         (char? #\space))
+(assert "space 1"       (char? #\space))
+(assert "space 2"       (char? #\ ))
 (assert "newline"       (char? #\newline))
 (assert "hiragana char" (char? #\¤¢))
 

Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-07-27 13:43:00 UTC (rev 1047)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-07-27 15:20:18 UTC (rev 1048)
@@ -12,7 +12,16 @@
 (assert-equal? "basic lambda test4" '(3 4 5 6) ((lambda x x) 3 4 5 6))
 (assert-equal? "basic lambda test5" '(5) ((lambda (x y . z) z) 3 4 5))
 (assert-equal? "basic lambda test6" '(5 6) ((lambda (x y . z) z) 3 4 5 6))
+(assert-equal? "basic lambda test7" 1 ((lambda (x . y) x) 1))
+(assert-equal? "basic lambda test8" '() ((lambda (x . y) y) 1))
 
+;; cond
+(assert-equal? "basic cond test1" 'greater (cond ((> 3 2) 'greater)
+						 ((< 3 2) 'less)))
+(assert-equal? "basic cond test1" 'equal (cond ((> 3 3) 'greater)
+					       ((< 3 3) 'less)
+					       (else 'equal)))
+
 ;; let
 (assert-eq? "basic let test1" 0 (let ((n 0))
 				 n))