Add [array exists] tests

1 files changed, 92 insertions, 0 deletions

diff --git a/tests/array.test b/tests/array.test
index 3dc3455..8fde4a7 100644
--- a/tests/array.test
+++ b/tests/array.test
@@ -630,6 +630,98 @@ test {
 }
 
 ########################### array-6.*: array exists ############################
+test {
+    name array-6.1
+    desc {empty array}
+    {array a} {}
+    body {array exists a}
+    result 1
+}
+test {
+    name array-6.2
+    desc {non-empty array}
+    {array a} {e 1}
+    body {array exists a}
+    result 1
+}
+test {
+    name array-6.3
+    desc {nonexistent element using default mode}
+    {array a} {e 1}
+    body {array exists a {[d]}}
+    result 0
+}
+test {
+    name array-6.4
+    desc {existing element using default mode}
+    {array a} {e 1}
+    body {array exists a {[e]}}
+    result 1
+}
+test {
+    name array-6.5
+    desc {multiple elements using default mode}
+    {array a} {e 1 f 2}
+    body {array exists a {[ef]}}
+    result 1
+}
+test {
+    name array-6.6
+    desc {nonexistent element using -glob}
+    {array a} {e 1}
+    body {array exists a -glob {[d]}}
+    result 0
+}
+test {
+    name array-6.7
+    desc {existing element using -glob}
+    {array a} {e 1}
+    body {array exists a -glob {[e]}}
+    result 1
+}
+test {
+    name array-6.8
+    desc {multiple elements using -glob}
+    {array a} {e 1 f 2}
+    body {array exists a -glob {[ef]}}
+    result 1
+}
+test {
+    name array-6.9
+    desc {nonexistent element using -exact}
+    {array a} {e 1}
+    body {array exists a -exact d}
+    result 0
+}
+test {
+    name array-6.10
+    desc {existing element using -exact}
+    {array a} {e 1}
+    body {array exists a -exact e}
+    result 1
+}
+test {
+    name array-6.11
+    desc {nonexistent element using -regexp}
+    {array a} {e 1}
+    body {array exists a -regexp {^[d]}}
+    result 0
+}
+test {
+    name array-6.12
+    desc {existing element using -regexp}
+    {array a} {e 1}
+    body {array exists a -regexp {^[e]}}
+    result 1
+}
+test {
+    name array-6.13
+    desc {multiple elements using -regexp}
+    {array a} {e 1 f 2}
+    body {array exists a -regexp {^[ef]}}
+    result 1
+}
+
 ############################# array-7.*: array get #############################
 ############################ array-8.*: array names ############################
 ######################### array-9.*: array statistics ##########################