diff --git a/test-suite/tests/unif.test b/test-suite/tests/unif.test
index 0d018d981..70aedaca8 100644
--- a/test-suite/tests/unif.test
+++ b/test-suite/tests/unif.test
@@ -221,6 +221,15 @@
       (pass-if "complex" (eq? #f (array? complex  '())))
       (pass-if "scm"     (eq? #t (array? scm      '()))))))
 
+;;;
+;;; array-equal?
+;;;
+
+(with-test-prefix "array-equal?"
+
+  (pass-if "#h(...)"
+    (array-equal? #h(1 2 3) #h(1 2 3))))
+
 ;;;
 ;;; array-fill!
 ;;;