diff options
Diffstat (limited to 'test-suite/tests/arrays.test')
-rw-r--r-- | test-suite/tests/arrays.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test index 2ce961b14..b762f2014 100644 --- a/test-suite/tests/arrays.test +++ b/test-suite/tests/arrays.test @@ -207,6 +207,17 @@ (array-equal? #s16(1 2 3) #s16(1 2 3)))) ;;; +;;; array->list +;;; + +(with-test-prefix "array->list" + (pass-if (equal? (array->list #s16(1 2 3)) '(1 2 3))) + (pass-if (equal? (array->list #(1 2 3)) '(1 2 3))) + (pass-if (equal? (array->list #2((1 2) (3 4) (5 6))) '((1 2) (3 4) (5 6)))) + (pass-if (equal? (array->list #()) '()))) + + +;;; ;;; array-fill! ;;; |