Author: yamakenz Date: Thu May 24 09:25:38 2007 New Revision: 4563 Modified: sigscheme-trunk/test/test-char.scm sigscheme-trunk/test/test-string-core.scm
Log: * test/test-char.scm - Complement lacked assertions for 'char?' * QALog - Update * test/test-string-core.scm - Remove obsolete tests Modified: sigscheme-trunk/test/test-char.scm ============================================================================== --- sigscheme-trunk/test/test-char.scm (original) +++ sigscheme-trunk/test/test-char.scm Thu May 24 09:25:38 2007 @@ -72,6 +72,27 @@ (assert-eq? (tn) #f (char? +)) (assert-eq? (tn) #f (char? (lambda () #t))) +;; syntactic keywords should not be appeared as operand +(if sigscheme? + (begin + ;; pure syntactic keyword + (assert-error (tn) (lambda () (char? else))) + ;; expression keyword + (assert-error (tn) (lambda () (char? do))))) + +(call-with-current-continuation + (lambda (k) + (assert-eq? (tn) #f (char? k)))) +(assert-eq? (tn) #f (char? (current-output-port))) +(assert-eq? (tn) #f (char? '(#t . #t))) +(assert-eq? (tn) #f (char? (cons #t #t))) +(assert-eq? (tn) #f (char? '(0 1 2))) +(assert-eq? (tn) #f (char? (list 0 1 2))) +(assert-eq? (tn) #f (char? '#())) +(assert-eq? (tn) #f (char? (vector))) +(assert-eq? (tn) #f (char? '#(0 1 2))) +(assert-eq? (tn) #f (char? (vector 0 1 2))) + (tn "char-upcase") (assert-equal? (tn) #\x00 (char-upcase #\x00)) (assert-equal? (tn) #\newline (char-upcase #\newline)) Modified: sigscheme-trunk/test/test-string-core.scm ============================================================================== --- sigscheme-trunk/test/test-string-core.scm (original) +++ sigscheme-trunk/test/test-string-core.scm Thu May 24 09:25:38 2007 @@ -107,13 +107,6 @@ (assert-eq? (tn) #f (string? (vector))) (assert-eq? (tn) #f (string? '#(0 1 2))) (assert-eq? (tn) #f (string? (vector 0 1 2))) -(tn "string? immutable") -(assert-true (tn) (string? "")) -(assert-true (tn) (string? "abcde")) -(assert-true (tn) (string? (symbol->string 'foo))) -(tn "string? mutable") -(assert-true (tn) (string? (cp ""))) -(assert-true (tn) (string? (cp "abcde"))) (tn "string-length invalid objects") (assert-error (tn) (lambda () (string-length #t)))
