Author: yamakenz
Date: Sun Jul 1 02:57:40 2007
New Revision: 4642
Modified:
sigscheme-trunk/test/test-assoc.scm
sigscheme-trunk/test/test-list.scm
sigscheme-trunk/test/test-member.scm
Log:
* test/test-member.scm
* test/test-assoc.scm
- Replace unique object generation by 'lambda' with 'list' to ensure its
uniqueness on non-SigScheme implementations that shares procedure object
* test/test-list.scm
- Ditto
- Fix an incorrect test name
Modified: sigscheme-trunk/test/test-assoc.scm
==============================================================================
--- sigscheme-trunk/test/test-assoc.scm (original)
+++ sigscheme-trunk/test/test-assoc.scm Sun Jul 1 02:57:40 2007
@@ -35,10 +35,10 @@
(define tn test-name)
-(define elm0 (lambda () #f))
-(define elm1 (lambda () #f))
-(define elm2 (lambda () #f))
-(define elm3 (lambda () #f))
+(define elm0 (list #t))
+(define elm1 (list #t))
+(define elm2 (list #t))
+(define elm3 (list #t))
(define nil '())
(define cdr3 (cons (cons elm3 3) nil))
(define cdr2 (cons (cons elm2 2) cdr3))
Modified: sigscheme-trunk/test/test-list.scm
==============================================================================
--- sigscheme-trunk/test/test-list.scm (original)
+++ sigscheme-trunk/test/test-list.scm Sun Jul 1 02:57:40 2007
@@ -38,10 +38,10 @@
(define tn test-name)
-(define elm0 (lambda () #f))
-(define elm1 (lambda () #f))
-(define elm2 (lambda () #f))
-(define elm3 (lambda () #f))
+(define elm0 (list #t))
+(define elm1 (list #t))
+(define elm2 (list #t))
+(define elm3 (list #t))
(define nil '())
(define cdr3 (cons elm3 nil))
(define cdr2 (cons elm2 cdr3))
@@ -342,7 +342,7 @@
(assert-equal? (tn) 2 (length* '(1 2)))
(assert-equal? (tn) 3 (length* '(1 2 3)))
(assert-equal? (tn) 4 (length* '(1 2 3 4)))
- (tn "length* improper list")
+ (tn "length* dotted list")
(assert-equal? (tn) -1 (length* 1))
(assert-equal? (tn) -2 (length* '(1 . 2)))
(assert-equal? (tn) -3 (length* '(1 2 . 3)))
Modified: sigscheme-trunk/test/test-member.scm
==============================================================================
--- sigscheme-trunk/test/test-member.scm (original)
+++ sigscheme-trunk/test/test-member.scm Sun Jul 1 02:57:40 2007
@@ -35,10 +35,10 @@
(define tn test-name)
-(define elm0 (lambda () #f))
-(define elm1 (lambda () #f))
-(define elm2 (lambda () #f))
-(define elm3 (lambda () #f))
+(define elm0 (list #t))
+(define elm1 (list #t))
+(define elm2 (list #t))
+(define elm3 (list #t))
(define nil '())
(define cdr3 (cons elm3 nil))
(define cdr2 (cons elm2 cdr3))
