# 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])
	}
}