summaryrefslogtreecommitdiff
path: root/test-suite/tests/arrays.test
diff options
context:
space:
mode:
authorDaniel Llorens <lloda@sarc.name>2021-03-02 15:12:20 +0100
committerDaniel Llorens <lloda@sarc.name>2021-03-02 15:12:20 +0100
commita4a5fbced344b12335d538102c7fe37f5848a519 (patch)
treee16a93c2f4d89c3643fcde8ea72617cc78fe11f2 /test-suite/tests/arrays.test
parentd69062daf1ac51f583155016c4aed5f72d59158d (diff)
downloadguile-a4a5fbced344b12335d538102c7fe37f5848a519.tar.gz
Fix another typo in routine reading arrays
* module/ice-9/read.scm: As stated. * test-suite/tests/arrays.test: Test a fixed case.
Diffstat (limited to 'test-suite/tests/arrays.test')
-rw-r--r--test-suite/tests/arrays.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test
index e913e30a2..c8eed39d3 100644
--- a/test-suite/tests/arrays.test
+++ b/test-suite/tests/arrays.test
@@ -994,7 +994,7 @@
;;; printing arrays
;;;
-(with-test-prefix/c&e "printing arrays"
+(with-test-prefix/c&e "printing and reading arrays"
(pass-if-equal "writing 1D arrays that aren't vectors"
"#1(b c)"
(format #f "~a" (make-shared-array #(a b c)
@@ -1016,6 +1016,10 @@
(pass-if-equal "empty 3-array with last nonempty dim."
"#3:0:0:1()"
(format #f "~a" (make-array 1 0 0 1)))
+
+ (pass-if-equal "empty typed 3-array with last nonempty dim."
+ "#3f64:0:0:1()"
+ (format #f "~a" (make-typed-array 'f64 1 0 0 1)))
(pass-if-equal "empty 3-array with middle nonempty dim."
"#3:0:1:0()"