1 files changed, 30 insertions, 0 deletions
diff --git a/test/regrange.awk b/test/regrange.awk
new file mode 100644
index 00000000..71879316
--- /dev/null
+++ b/test/regrange.awk
@@ -0,0 +1,30 @@
+# Tests due to John Haque, May 2011
+#
+# The following should be fatal; can't catch them inside awk, though
+# $> echo 'a' | ./gawk '/[z-a]/ { print }'
+# $> echo 'A' | ./gawk '/[+-[:digit:]]/'
+
+BEGIN {
+	char[1] = "."
+	pat[1] = "[--\\/]"
+
+	char[2] = "a"
+	pat[2] = "[]-c]"
+
+	char[3] = "c"
+	pat[3] = "[[a-d]"
+
+	char[4] = "\\"
+	pat[4] = "[\\[-\\]]"
+
+	char[5] = "[.c.]"
+	pat[5] = "[a-[.e.]]"
+
+	char[6] = "[.d.]"
+	pat[6] = "[[.c.]-[.z.]]"
+
+	for (i = 1; i in char; i++) {
+		printf("\"%s\" ~ /%s/ --> %d\n", char[i], pat[i],
+			char[i] ~ pat[i])
+	}
+}