From a5d9467cfa1420f91ba466a2bdcc3e4256f34433 Mon Sep 17 00:00:00 2001
From: Wayne Davison <wayned@users.sourceforge.net>
Date: Fri, 2 Jun 2000 01:35:54 +0000
Subject: Some simple array indexing tests.

---
 Test/14array.ztst | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 Test/14array.ztst

diff --git a/Test/14array.ztst b/Test/14array.ztst
new file mode 100644
index 000000000..ad02403e4
--- /dev/null
+++ b/Test/14array.ztst
@@ -0,0 +1,51 @@
+# Tests for array indexing
+
+%prep
+
+  foo=(a b c d e f g)
+
+%test
+
+  echo .$foo[1,4].
+0:Array indexing
+>.a b c d.
+
+  echo .$foo[1,-5].
+0:Array indexing
+>.a b c.
+
+  echo .$foo[4,1].
+0:Array indexing
+>..
+
+  echo .$foo[0,0].
+0:Array indexing
+>.a.
+
+  echo .$foo[0].
+0:Array indexing
+>.a.
+
+  echo .$foo[1].
+0:Array indexing
+>.a.
+
+  echo .$foo[3].
+0:Array indexing
+>.c.
+
+  echo .$foo[0,1].
+0:Array indexing
+>.a.
+
+  echo .$foo[2,2].
+0:Array indexing
+>.b.
+
+  echo .$foo[1,0].
+0:Array indexing
+>..
+
+  echo .$foo[-4,5].
+0:Array indexing
+>.d e.
-- 
cgit 1.4.1