From f208b9be8ad7ca4a0375c6f906ef2e024d2f9924 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Wed, 29 Sep 2004 15:58:39 +0000
Subject: [PATCH] (array-equal?): New test.

---
 test-suite/tests/unif.test | 9 +++++++++
 1 file changed, 9 insertions(+)

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!
 ;;;