diff options
author | Daniel Llorens <lloda@sarc.name> | 2021-03-02 15:12:20 +0100 |
---|---|---|
committer | Daniel Llorens <lloda@sarc.name> | 2021-03-02 15:12:20 +0100 |
commit | a4a5fbced344b12335d538102c7fe37f5848a519 (patch) | |
tree | e16a93c2f4d89c3643fcde8ea72617cc78fe11f2 /test-suite/tests/arrays.test | |
parent | d69062daf1ac51f583155016c4aed5f72d59158d (diff) | |
download | guile-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.test | 6 |
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()" |