wctype: Add tests.

* tests/test-wctype.c: New file, based on
tests/test-c32_get_type_test.c.
* modules/wctype-tests: New file.

ChangeLog

@@ -1,3 +1,10 @@
+2023-07-25  Bruno Haible  <bruno@clisp.org>
+
+	wctype: Add tests.
+	* tests/test-wctype.c: New file, based on
+	tests/test-c32_get_type_test.c.
+	* modules/wctype-tests: New file.
+
 2023-07-25  Bruno Haible  <bruno@clisp.org>
 
 	Compile benchmark programs without assertions.

modules/wctype-tests

@@ -0,0 +1,12 @@
+Files:
+tests/test-wctype.c
+tests/signature.h
+tests/macros.h
+
+Depends-on:
+
+configure.ac:
+
+Makefile.am:
+TESTS += test-wctype
+check_PROGRAMS += test-wctype

tests/test-wctype.c

@@ -0,0 +1,73 @@
+/* Test of getting descriptor for a wide character property.
+   Copyright (C) 2023 Free Software Foundation, Inc.
+
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
+
+/* Written by Bruno Haible <bruno@clisp.org>, 2023.  */
+
+#include <config.h>
+
+#include <wctype.h>
+
+#include "signature.h"
+SIGNATURE_CHECK (wctype, wctype_t, (const char *));
+
+#include "macros.h"
+
+int
+main (int argc, char *argv[])
+{
+  wctype_t desc;
+
+  desc = wctype ("any");
+  ASSERT (desc == (wctype_t) 0);
+
+  desc = wctype ("blank");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("space");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("punct");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("lower");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("upper");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("alpha");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("digit");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("xdigit");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("alnum");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("cntrl");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("graph");
+  ASSERT (desc != (wctype_t) 0);
+
+  desc = wctype ("print");
+  ASSERT (desc != (wctype_t) 0);
+
+  return 0;
+}