FYI: testing negated character classes.

[Akim Demaille]

2000-11-10  Akim Demaille  <address@hidden>

        * tests/m4sh.at (Negated classes in globbing): New test.

Index: tests/m4sh.at
===================================================================
RCS file: /cvs/autoconf/tests/m4sh.at,v
retrieving revision 1.4
diff -u -u -r1.4 m4sh.at
--- tests/m4sh.at 2000/11/10 10:14:44 1.4
+++ tests/m4sh.at 2000/11/10 14:41:43
@@ -13,7 +13,7 @@
 
 # Build nested dirs.
 
-AT_SETUP(AS_DIRNAME & AS_DIRNAME_SED)
+AT_SETUP([AS_DIRNAME & AS_DIRNAME_SED])
 
 AT_DATA(configure.in,
 [[
@@ -85,7 +85,7 @@
 
 # Build nested dirs.
 
-AT_SETUP(AC_SHELL_MKDIR_P)
+AT_SETUP([AC_SHELL_MKDIR_P])
 
 AT_DATA(configure.in,
 [[AC_PLAIN_SCRIPT
@@ -106,3 +106,32 @@
 AT_CHECK([./configure], 0)
 
 AT_CLEANUP(configure 1 a)
+
+
+
+
+## ----------------------------- ##
+## Negated classes in globbing.  ##
+## ----------------------------- ##
+
+# It is known that `[^...]' is not supported, but it is unknown
+# for `[!...]'.
+
+AT_SETUP([Negated classes in globbing])
+
+AT_DATA(configure.in,
+[[AC_PLAIN_SCRIPT
+case 'with!two!bangs' in
+  *[[!a-z]]*) ;;
+           *) AC_MSG_ERROR([[`*[!a-z]*' didn't match `with!two!bangs']]);;
+esac
+
+case without in
+  *[[!a-z]]*) AC_MSG_ERROR([[`*[!a-z]*' matched `without']]);;
+esac
+]])
+
+AT_CHECK([autoconf --autoconf-dir .. -l $at_srcdir], 0, [], [])
+AT_CHECK([./configure], 0)
+
+AT_CLEANUP(configure)