diff options
Diffstat (limited to 'test-suite/tests/arrays.test')
-rw-r--r-- | test-suite/tests/arrays.test | 26 |
1 files changed, 2 insertions, 24 deletions
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test index f13b1a2ac..d88a1cb8c 100644 --- a/test-suite/tests/arrays.test +++ b/test-suite/tests/arrays.test @@ -1,6 +1,6 @@ ;;;; unif.test --- tests guile's uniform arrays -*- scheme -*- ;;;; -;;;; Copyright 2004, 2006, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. +;;;; Copyright 2004, 2006, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -228,26 +228,6 @@ (array->list b)))) ;;; -;;; generalized-vector->list -;;; - -(with-test-prefix "generalized-vector->list" - (pass-if-equal '(1 2 3) (generalized-vector->list #s16(1 2 3))) - (pass-if-equal '(1 2 3) (generalized-vector->list #(1 2 3))) - (pass-if-equal '() (generalized-vector->list #())) - - (pass-if-equal "http://bugs.gnu.org/12465 - ok" - '(3 4) - (let* ((a #2((1 2) (3 4))) - (b (make-shared-array a (lambda (j) (list 1 j)) 2))) - (generalized-vector->list b))) - (pass-if-equal "http://bugs.gnu.org/12465 - bad" - '(2 4) - (let* ((a #2((1 2) (3 4))) - (b (make-shared-array a (lambda (i) (list i 1)) 2))) - (generalized-vector->list b)))) - -;;; ;;; array-fill! ;;; @@ -451,7 +431,7 @@ (array-set! a 'y 2)) (pass-if-exception "end+1" exception:out-of-range (array-set! a 'y 6)) - (pass-if-exception "two indexes" exception:out-of-range + (pass-if-exception "two indexes" exception:wrong-num-indices (array-set! a 'y 6 7)))) (with-test-prefix "two dim" @@ -649,6 +629,4 @@ (pass-if (equal? (array-row array 1) #u32(2 3))) (pass-if (equal? (array-ref (array-row array 1) 0) - 2)) - (pass-if (equal? (generalized-vector-ref (array-row array 1) 0) 2)))) |