Author: yamakenz
Date: Mon Aug 6 10:50:09 2007
New Revision: 4798
Modified:
sigscheme-trunk/test/test-srfi1-obsolete.scm
sigscheme-trunk/test/test-vector.scm
Log:
* test/test-vector.scm
- Fix incorrect comparison for numbers that errors on storage-fatty
* test/test-srfi1-obsolete.scm
- Comment out invalid tests that errors on storage-fatty
Modified: sigscheme-trunk/test/test-srfi1-obsolete.scm
==============================================================================
--- sigscheme-trunk/test/test-srfi1-obsolete.scm (original)
+++ sigscheme-trunk/test/test-srfi1-obsolete.scm Mon Aug 6 10:50:09 2007
@@ -155,15 +155,17 @@
(assert-equal? "drop-right test 3" '(1 2 3) (drop-right '(1 2 3 . d) 0))
; take!
-(assert-equal? "take! test 1" '(a b) (take! '(a b c d e) 2))
-(assert-equal? "take! test 2" '(1 2) (take! '(1 2 3 . d) 2))
-(assert-equal? "take! test 3" '(1 2 3) (take! '(1 2 3 . d) 3))
+;; Commented out invalid tests -- YamaKen 2007-08-07
+;;(assert-equal? "take! test 1" '(a b) (take! '(a b c d e) 2))
+;;(assert-equal? "take! test 2" '(1 2) (take! '(1 2 3 . d) 2))
+;;(assert-equal? "take! test 3" '(1 2 3) (take! '(1 2 3 . d) 3))
(assert-equal? "take! test 4" '(1 3) (take! (circular-list 1 3 5) 8))
; drop-right!
-(assert-equal? "drop-right! test 1" '(a b c) (drop-right! '(a b c d e) 2))
-(assert-equal? "drop-right! test 2" '(1) (drop-right! '(1 2 3 . d) 2))
-(assert-equal? "drop-right! test 3" '(1 2 3) (drop-right! '(1 2 3 . d) 0))
+;; Commented out invalid tests -- YamaKen 2007-08-07
+;;(assert-equal? "drop-right! test 1" '(a b c) (drop-right! '(a b c d e) 2))
+;;(assert-equal? "drop-right! test 2" '(1) (drop-right! '(1 2 3 . d) 2))
+;;(assert-equal? "drop-right! test 3" '(1 2 3) (drop-right! '(1 2 3 . d) 0))
; split-at
(receive (former latter)
@@ -172,10 +174,11 @@
(assert-equal? "split-at test 2" '(4 5 6 7) latter))
; split-at!
-(receive (former latter)
- (split-at! '(1 2 3 4 5 6 7) 3)
- (assert-equal? "split-at! test 1" '(1 2 3) former)
- (assert-equal? "split-at! test 2" '(4 5 6 7) latter))
+;; Commented out invalid tests -- YamaKen 2007-08-07
+;;(receive (former latter)
+;; (split-at! '(1 2 3 4 5 6 7) 3)
+;; (assert-equal? "split-at! test 1" '(1 2 3) former)
+;; (assert-equal? "split-at! test 2" '(4 5 6 7) latter))
; last
(assert-equal? "last test 1" 'a (last '(a)))
Modified: sigscheme-trunk/test/test-vector.scm
==============================================================================
--- sigscheme-trunk/test/test-vector.scm (original)
+++ sigscheme-trunk/test/test-vector.scm Mon Aug 6 10:50:09 2007
@@ -469,14 +469,14 @@
(assert-equal? (tn) (undef) (vector-fill! (vector 0 1 2) x)))
;; length 0
-(assert-eq? (tn) 0 (let ((v (vector)))
+(assert-equal? (tn) 0 (let ((v (vector)))
(vector-fill! v x)
(vector-length v)))
;; length 1
(assert-eq? (tn) x (let ((v (vector e0)))
(vector-fill! v x)
(vector-ref v 0)))
-(assert-eq? (tn) 1 (let ((v (vector e0)))
+(assert-equal? (tn) 1 (let ((v (vector e0)))
(vector-fill! v x)
(vector-length v)))
;; length 2
@@ -486,7 +486,7 @@
(assert-eq? (tn) x (let ((v (vector e0 e1)))
(vector-fill! v x)
(vector-ref v 1)))
-(assert-eq? (tn) 2 (let ((v (vector e0 e1)))
+(assert-equal? (tn) 2 (let ((v (vector e0 e1)))
(vector-fill! v x)
(vector-length v)))
;; length 5
@@ -505,7 +505,7 @@
(assert-eq? (tn) x (let ((v (vector e0 e1 e2 e3 e4)))
(vector-fill! v x)
(vector-ref v 4)))
-(assert-eq? (tn) 5 (let ((v (vector e0 e1 e2 e3 e4)))
+(assert-equal? (tn) 5 (let ((v (vector e0 e1 e2 e3 e4)))
(vector-fill! v x)
(vector-length v)))
