pd.if.org Git - pdclib/blob - functions/wctype/iswupper.c

   1 /* iswupper( wint_t )\r
   2 \r
   3    This file is part of the Public Domain C Library (PDCLib).\r
   4    Permission is granted to use, modify, and / or redistribute at will.\r
   5 */\r
   6 \r
   7 #include <wctype.h>\r
   8 #ifndef REGTEST\r
   9 #include "_PDCLIB_locale.h"\r
  10 \r
  11 int iswupper( wint_t wc )\r
  12 {\r
  13     return iswctype( wc, _PDCLIB_CTYPE_UPPER );\r
  14 }\r
  15 \r
  16 #endif\r
  17 \r
  18 #ifdef TEST\r
  19 #include "_PDCLIB_test.h"\r
  20 \r
  21 int main( void )\r
  22 {\r
  23     TESTCASE(!iswupper(L'a'));\r
  24     TESTCASE(!iswupper(L'e'));\r
  25     TESTCASE(!iswupper(L'z'));\r
  26     TESTCASE(iswupper(L'A'));\r
  27     TESTCASE(iswupper(L'E'));\r
  28     TESTCASE(iswupper(L'Z'));\r
  29     return TEST_RESULTS;\r
  30 }\r
  31 #endif\r