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

diff --git a/ChangeLog b/ChangeLog
index 84555d7fc63e6ba21d5798e2df3d543d1200bff8..4a7ef1ed9b7c8b62f88a1fcb86c6c2403e4e0590 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-10  Akim Demaille  <akim@epita.fr>
+
+       * tests/m4sh.at (Negated classes in globbing): New test.
+
 2000-11-10  Akim Demaille  <akim@epita.fr>
 
        * doc/autoconf.texi (Limitations of Builtins): `for i; do'.

diff --git a/tests/m4sh.at b/tests/m4sh.at
index 5e6e2e7a3a04344b6d48b9f5e997ab8af4e6027b..3ddbbd6d6eb7f162d0101be7b9360d397c514a4a 100644 (file)
--- a/tests/m4sh.at
+++ b/tests/m4sh.at
@@ -13,7 +13,7 @@ EOF
 
 # 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 @@ AT_CLEANUP(configure)
 
 # 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([autoconf --autoconf-dir .. -l $at_srcdir], 0, [], [])
 AT_CHECK([./configure], 0)
 
 AT_CLEANUP(configure 1 a)
+
+
+
+
+## ----------------------------- ##
+## Negated classes in globbing.  ##
+## ----------------------------- ##
+
+# It is known that `[^...]' is not universally 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)