update test

This commit is contained in:
Alex Shinn 2022-06-12 16:11:16 +09:00
parent 38fc7e0932
commit 54d3aafc7b

View file

@ -2496,8 +2496,8 @@ OTHER DEALINGS IN THE SOFTWARE.
(array->list* (make-array (make-interval '#(0 0)) error)))
(test '(() ())
(array->list* (make-array (make-interval '#(2 0)) error)))
;; (test '(())
;; (array->list* (make-array (make-interval '#(0 2)) error)))
(test '()
(array->list* (make-array (make-interval '#(0 2)) error)))
(test 2 ;; no vector
(array->vector* (make-array (make-interval '#()) (lambda () 2))))