@let: additional tests of variable clearing.

* test/let1.awk: Test cases covering more kinds of loops.

1 files changed, 57 insertions, 0 deletions

diff --git a/test/let1.awk b/test/let1.awk
index 90b1248b..a67e3639 100644
--- a/test/let1.awk
+++ b/test/let1.awk
@@ -86,3 +86,60 @@ BEGIN {
     }
   }
 }
+
+BEGIN {
+  @let (i = 0) while (i++ < 2) {
+    @let (a, b, c) {
+      if (a != 0 || a != "")
+        exit 1
+      if (b != 0 || b != "")
+        exit 1
+      if (c != 0 || c != "")
+        exit 1
+      a = b = c = 1
+    }
+  }
+}
+
+BEGIN {
+  @let (i = 0) do {
+    @let (a, b, c) {
+      if (a != 0 || a != "")
+        exit 1
+      if (b != 0 || b != "")
+        exit 1
+      if (c != 0 || c != "")
+        exit 1
+      a = b = c = 1
+    }
+  } while (++i < 2)
+}
+
+BEGIN {
+  @let (a, i) {
+    a[0] = 42
+    for (i in a) {
+      @let (a, b, c) {
+        if (a != 0 || a != "")
+          exit 1
+        if (b != 0 || b != "")
+          exit 1
+        if (c != 0 || c != "")
+          exit 1
+        a = b = c = 1
+      }
+    }
+  }
+}
+
+BEGIN {
+  @let (a = 1, b = 1, c = 1) { }
+  @let (a, b, c) {
+    if (a != 0 || a != "")
+      exit 1
+    if (b != 0 || b != "")
+      exit 1
+    if (c != 0 || c != "")
+      exit 1
+  }
+}