mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2024-12-26 15:36:14 +01:00
a7a76cfac7
2001-08-25 Alexander Larsson <alla@lysator.liu.se> * glib/gstrfuncs.[ch]: * docs/reference/glib/glib-overrides.txt: * docs/reference/glib/glib-sections.txt: * docs/reference/glib/tmpl/string_utils.sgml: Implement and document g_ascii_isxxx. * tests/strfunc-test.c: Add tests for g_ascii_isxxx * glib/guniprop.c (g_unichar_ispunct): include symbols, not just punctuation. (g_unichar_isspace): Vertical tab is not considered whitespace. * tests/shell-test.c: Output errors on stderr
359 lines
11 KiB
C
359 lines
11 KiB
C
/* GLIB - Library of useful routines for C programming
|
|
* Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library 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
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the
|
|
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
* Boston, MA 02111-1307, USA.
|
|
*/
|
|
|
|
/*
|
|
* Modified by the GLib Team and others 1997-2000. See the AUTHORS
|
|
* file for a list of people on the GLib Team. See the ChangeLog
|
|
* files for a list of changes. These files are distributed with
|
|
* GLib at ftp://ftp.gtk.org/pub/gtk/.
|
|
*/
|
|
|
|
#undef G_LOG_DOMAIN
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include "glib.h"
|
|
#include <stdarg.h>
|
|
#include <ctype.h>
|
|
|
|
static gboolean any_failed = FALSE;
|
|
static gboolean failed = FALSE;
|
|
|
|
#define TEST(m,cond) G_STMT_START { failed = !(cond); \
|
|
if (failed) \
|
|
{ if (!m) \
|
|
g_print ("(%s:%d) failed for: %s\n", __FILE__, __LINE__, ( # cond )); \
|
|
else \
|
|
g_print ("(%s:%d) failed for: %s: (%s)\n", __FILE__, __LINE__, ( # cond ), (gchar*)m); \
|
|
fflush (stdout); \
|
|
any_failed = TRUE; \
|
|
} \
|
|
} G_STMT_END
|
|
|
|
#define TEST_FAILED(message) \
|
|
G_STMT_START { g_print ("Error: "); g_print message; g_print ("\n"); any_failed = TRUE; } G_STMT_END
|
|
|
|
#define GLIB_TEST_STRING "el dorado "
|
|
|
|
static gboolean
|
|
strv_check (gchar **strv, ...)
|
|
{
|
|
gboolean ok = TRUE;
|
|
gint i = 0;
|
|
va_list list;
|
|
|
|
va_start (list, strv);
|
|
while (ok)
|
|
{
|
|
const gchar *str = va_arg (list, const char *);
|
|
if (strv[i] == NULL)
|
|
{
|
|
ok = str == NULL;
|
|
break;
|
|
}
|
|
if (str == NULL)
|
|
ok = FALSE;
|
|
else if (strcmp (strv[i], str) != 0)
|
|
ok = FALSE;
|
|
i++;
|
|
}
|
|
va_end (list);
|
|
|
|
g_strfreev (strv);
|
|
|
|
return ok;
|
|
}
|
|
|
|
static gboolean
|
|
test_isalnum (gchar c)
|
|
{
|
|
return g_ascii_isalnum (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_isalpha (gchar c)
|
|
{
|
|
return g_ascii_isalpha (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_iscntrl (gchar c)
|
|
{
|
|
return g_ascii_iscntrl (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_isdigit (gchar c)
|
|
{
|
|
return g_ascii_isdigit (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_isgraph (gchar c)
|
|
{
|
|
return g_ascii_isgraph (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_islower (gchar c)
|
|
{
|
|
return g_ascii_islower (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_isprint (gchar c)
|
|
{
|
|
return g_ascii_isprint (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_ispunct (gchar c)
|
|
{
|
|
return g_ascii_ispunct (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_isspace (gchar c)
|
|
{
|
|
return g_ascii_isspace (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_isupper (gchar c)
|
|
{
|
|
return g_ascii_isupper (c);
|
|
}
|
|
|
|
static gboolean
|
|
test_isxdigit (gchar c)
|
|
{
|
|
return g_ascii_isxdigit (c);
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
test_is_function (const char *name,
|
|
gboolean (* ascii_function) (gchar),
|
|
int (* c_library_function) (int),
|
|
gboolean (* unicode_function) (gunichar))
|
|
{
|
|
int c;
|
|
|
|
for (c = 0; c <= 0x7F; c++)
|
|
{
|
|
gboolean ascii_result = ascii_function ((gchar)c);
|
|
gboolean c_library_result = c_library_function (c) != 0;
|
|
gboolean unicode_result = unicode_function ((gunichar) c);
|
|
if (ascii_result != c_library_result && c != '\v')
|
|
TEST_FAILED (("g_ascii_%s returned %d and %s returned %d for 0x%X",
|
|
name, ascii_result, name, c_library_result, c));
|
|
if (ascii_result != unicode_result)
|
|
TEST_FAILED (("g_ascii_%s returned %d and g_unichar_%s returned %d for 0x%X",
|
|
name, ascii_result, name, unicode_result, c));
|
|
}
|
|
for (c = 0x80; c <= 0xFF; c++)
|
|
{
|
|
gboolean ascii_result = ascii_function ((gchar)c);
|
|
if (ascii_result)
|
|
TEST_FAILED (("g_ascii_%s returned TRUE for 0x%X",
|
|
name, c));
|
|
}
|
|
}
|
|
|
|
static void
|
|
test_to_function (const char *name,
|
|
gchar (* ascii_function) (gchar),
|
|
int (* c_library_function) (int),
|
|
gunichar (* unicode_function) (gunichar))
|
|
{
|
|
int c;
|
|
|
|
for (c = 0; c <= 0x7F; c++)
|
|
{
|
|
int ascii_result = (guchar) ascii_function ((gchar) c);
|
|
int c_library_result = c_library_function (c);
|
|
int unicode_result = unicode_function ((gunichar) c);
|
|
if (ascii_result != c_library_result)
|
|
TEST_FAILED (("g_ascii_%s returned 0x%X and %s returned 0x%X for 0x%X",
|
|
name, ascii_result, name, c_library_result, c));
|
|
if (ascii_result != unicode_result)
|
|
TEST_FAILED (("g_ascii_%s returned 0x%X and g_unichar_%s returned 0x%X for 0x%X",
|
|
name, ascii_result, name, unicode_result, c));
|
|
}
|
|
for (c = 0x80; c <= 0xFF; c++)
|
|
{
|
|
int ascii_result = (guchar) ascii_function ((gchar) c);
|
|
if (ascii_result != c)
|
|
TEST_FAILED (("g_ascii_%s returned 0x%X for 0x%X",
|
|
name, ascii_result, c));
|
|
}
|
|
}
|
|
|
|
static void
|
|
test_digit_function (const char *name,
|
|
int (* ascii_function) (gchar),
|
|
int (* unicode_function) (gunichar))
|
|
{
|
|
int c;
|
|
|
|
for (c = 0; c <= 0x7F; c++)
|
|
{
|
|
int ascii_result = ascii_function ((gchar) c);
|
|
int unicode_result = unicode_function ((gunichar) c);
|
|
if (ascii_result != unicode_result)
|
|
TEST_FAILED (("g_ascii_%s_value returned %d and g_unichar_%s_value returned %d for 0x%X",
|
|
name, ascii_result, name, unicode_result, c));
|
|
}
|
|
for (c = 0x80; c <= 0xFF; c++)
|
|
{
|
|
int ascii_result = ascii_function ((gchar) c);
|
|
if (ascii_result != -1)
|
|
TEST_FAILED (("g_ascii_%s_value returned %d for 0x%X",
|
|
name, ascii_result, c));
|
|
}
|
|
}
|
|
|
|
int
|
|
main (int argc,
|
|
char *argv[])
|
|
{
|
|
gchar *string;
|
|
gchar *vec[] = { "Foo", "Bar", NULL };
|
|
gchar **copy;
|
|
|
|
TEST (NULL, g_ascii_strcasecmp ("FroboZZ", "frobozz") == 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("frobozz", "frobozz") == 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("frobozz", "FROBOZZ") == 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("FROBOZZ", "froboz") != 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("", "") == 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("!#%&/()", "!#%&/()") == 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("a", "b") < 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("a", "B") < 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("A", "b") < 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("A", "B") < 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("b", "a") > 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("b", "A") > 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("B", "a") > 0);
|
|
TEST (NULL, g_ascii_strcasecmp ("B", "A") > 0);
|
|
|
|
TEST (NULL, g_strdup (NULL) == NULL);
|
|
string = g_strdup (GLIB_TEST_STRING);
|
|
TEST (NULL, string != NULL);
|
|
TEST (NULL, strcmp (string, GLIB_TEST_STRING) == 0);
|
|
g_free(string);
|
|
|
|
string = g_strconcat (GLIB_TEST_STRING, NULL);
|
|
TEST (NULL, string != NULL);
|
|
TEST (NULL, strcmp (string, GLIB_TEST_STRING) == 0);
|
|
g_free(string);
|
|
|
|
string = g_strconcat (GLIB_TEST_STRING, GLIB_TEST_STRING,
|
|
GLIB_TEST_STRING, NULL);
|
|
TEST (NULL, string != NULL);
|
|
TEST (NULL, strcmp (string, GLIB_TEST_STRING GLIB_TEST_STRING
|
|
GLIB_TEST_STRING) == 0);
|
|
g_free(string);
|
|
|
|
string = g_strdup_printf ("%05d %-5s", 21, "test");
|
|
TEST (NULL, string != NULL);
|
|
TEST (NULL, strcmp(string, "00021 test ") == 0);
|
|
g_free (string);
|
|
|
|
TEST (NULL, strcmp
|
|
(g_strcompress ("abc\\\\\\\"\\b\\f\\n\\r\\t\\003\\177\\234\\313\\12345z"),
|
|
"abc\\\"\b\f\n\r\t\003\177\234\313\12345z") == 0);
|
|
TEST (NULL, strcmp (g_strescape("abc\\\"\b\f\n\r\t\003\177\234\313", NULL),
|
|
"abc\\\\\\\"\\b\\f\\n\\r\\t\\003\\177\\234\\313") == 0);
|
|
TEST (NULL, strcmp(g_strescape("abc\\\"\b\f\n\r\t\003\177\234\313",
|
|
"\b\f\001\002\003\004"),
|
|
"abc\\\\\\\"\b\f\\n\\r\\t\003\\177\\234\\313") == 0);
|
|
|
|
copy = g_strdupv (vec);
|
|
TEST (NULL, strcmp (copy[0], "Foo") == 0);
|
|
TEST (NULL, strcmp (copy[1], "Bar") == 0);
|
|
TEST (NULL, copy[2] == NULL);
|
|
g_strfreev (copy);
|
|
|
|
TEST (NULL, strcmp (g_strstr_len ("FooBarFooBarFoo", 6, "Bar"),
|
|
"BarFooBarFoo") == 0);
|
|
TEST (NULL, strcmp (g_strrstr ("FooBarFooBarFoo", "Bar"),
|
|
"BarFoo") == 0);
|
|
TEST (NULL, strcmp (g_strrstr_len ("FooBarFooBarFoo", 14, "BarFoo"),
|
|
"BarFooBarFoo") == 0);
|
|
|
|
TEST (NULL, strv_check (g_strsplit ("", ",", 0), NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x", ",", 0), "x", NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x,y", ",", 0), "x", "y", NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x,y,", ",", 0), "x", "y", "", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",x,y", ",", 0), "", "x", "y", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",x,y,", ",", 0), "", "x", "y", "", NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x,y,z", ",", 0), "x", "y", "z", NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x,y,z,", ",", 0), "x", "y", "z", "", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",x,y,z", ",", 0), "", "x", "y", "z", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",x,y,z,", ",", 0), "", "x", "y", "z", "", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",,x,,y,,z,,", ",", 0), "", "", "x", "", "y", "", "z", "", "", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",,x,,y,,z,,", ",,", 0), "", "x", "y", "z", "", NULL));
|
|
|
|
TEST (NULL, strv_check (g_strsplit ("", ",", 2), NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x", ",", 2), "x", NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x,y", ",", 2), "x", "y", NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x,y,", ",", 2), "x", "y,", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",x,y", ",", 2), "", "x,y", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",x,y,", ",", 2), "", "x,y,", NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x,y,z", ",", 2), "x", "y,z", NULL));
|
|
TEST (NULL, strv_check (g_strsplit ("x,y,z,", ",", 2), "x", "y,z,", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",x,y,z", ",", 2), "", "x,y,z", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",x,y,z,", ",", 2), "", "x,y,z,", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",,x,,y,,z,,", ",", 2), "", ",x,,y,,z,,", NULL));
|
|
TEST (NULL, strv_check (g_strsplit (",,x,,y,,z,,", ",,", 2), "", "x,,y,,z,,", NULL));
|
|
|
|
#define TEST_IS(name) test_is_function (#name, test_##name, name, g_unichar_##name)
|
|
|
|
TEST_IS (isalnum);
|
|
TEST_IS (isalpha);
|
|
TEST_IS (iscntrl);
|
|
TEST_IS (isdigit);
|
|
TEST_IS (isgraph);
|
|
TEST_IS (islower);
|
|
TEST_IS (isprint);
|
|
TEST_IS (ispunct);
|
|
TEST_IS (isspace);
|
|
TEST_IS (isupper);
|
|
TEST_IS (isxdigit);
|
|
|
|
#undef TEST_IS
|
|
|
|
#define TEST_TO(name) test_to_function (#name, g_ascii_##name, name, g_unichar_##name)
|
|
|
|
TEST_TO (tolower);
|
|
TEST_TO (toupper);
|
|
|
|
#undef TEST_TO
|
|
|
|
#define TEST_DIGIT(name) test_digit_function (#name, g_ascii_##name##_value, g_unichar_##name##_value)
|
|
|
|
TEST_DIGIT (digit);
|
|
TEST_DIGIT (xdigit);
|
|
|
|
#undef TEST_DIGIT
|
|
|
|
return any_failed;
|
|
}
|