517 lines
15 KiB
C
517 lines
15 KiB
C
/*
|
|
* Copyright (c) 2017-2018, Patrick Pelissier
|
|
* All rights reserved.
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions are met:
|
|
* + Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* + Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND ANY
|
|
* EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
* DISCLAIMED. IN NO EVENT SHALL THE REGENTS AND CONTRIBUTORS BE LIABLE FOR ANY
|
|
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
|
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
|
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
#define STRING_WITHIN_TEST
|
|
#include "m-string.h"
|
|
|
|
BOUNDED_STRING_DEF(string16, 16)
|
|
|
|
static void test1(void)
|
|
{
|
|
M_LET(s1, s2, string_t) {
|
|
string_set_str(s1, "Success!");
|
|
string_set(s2, s1);
|
|
assert(string_equal_p(s1, s2));
|
|
}
|
|
}
|
|
|
|
static void test_utf8_basic(void)
|
|
{
|
|
string_t s;
|
|
string_init (s);
|
|
|
|
assert (string_utf8_p(s) == true);
|
|
assert (string_length_u(s) == 0);
|
|
|
|
/* Test internal encode + decode for all characters */
|
|
for (string_unicode_t i = 1; i < 0x10ffff; i++) {
|
|
if (i < 0xD800U || i > 0xDFFFU) {
|
|
string_it_t it;
|
|
char buf[5] = {0};
|
|
stringi_utf8_encode (buf, i);
|
|
/* Low level access for internal testing */
|
|
it->ptr = buf;
|
|
bool b = string_end_p(it);
|
|
assert (b == false);
|
|
assert (it->u == i);
|
|
assert (string_get_cref(it) == i);
|
|
assert (*it->next_ptr == 0);
|
|
assert (stringi_utf8_length(buf) == 1);
|
|
assert (stringi_utf8_valid_str_p(buf) == true);
|
|
/* Higher level access */
|
|
string_clean(s);
|
|
string_push_u(s, i);
|
|
assert(string_utf8_p(s) == true);
|
|
assert(string_length_u(s) == 1);
|
|
}
|
|
}
|
|
|
|
/* Reject out of range value */
|
|
for (string_unicode_t i = 0x110000; i < 0x1fffff; i++) {
|
|
string_clean(s);
|
|
string_push_u(s, i);
|
|
assert(string_utf8_p(s) == false);
|
|
}
|
|
/* Test rejection of surrogate halves */
|
|
for (string_unicode_t i = 0xd800; i <= 0xdfff; i++) {
|
|
string_clean(s);
|
|
string_push_u(s, i);
|
|
assert(string_utf8_p(s) == false);
|
|
}
|
|
/* NOTE: Non-canonical representation are not rejected */
|
|
string_clear(s);
|
|
}
|
|
|
|
static void test_utf8_it(void)
|
|
{
|
|
string_t s;
|
|
string_init(s);
|
|
const unsigned int tab[] = { 45, 1458, 25623, 129, 24 };
|
|
for(int i = 0; i < 5; i++)
|
|
string_push_u (s, tab[i]);
|
|
assert (string_length_u(s) == 5);
|
|
string_it_t it;
|
|
int i = 0;
|
|
for(string_it(it, s) ; !string_end_p(it); string_next(it), i++) {
|
|
assert (i < 5);
|
|
assert (string_get_cref(it) == tab[i]);
|
|
}
|
|
|
|
string_set_str (s, "H€llo René Chaînôr¬");
|
|
assert(string_length_u(s) == 19);
|
|
string_unicode_t tab2[19];
|
|
i = 0;
|
|
for(string_it(it, s) ; !string_end_p(it); string_next(it), i++) {
|
|
assert (i < 19);
|
|
tab2[i] = string_get_cref(it);
|
|
}
|
|
assert (i == 19);
|
|
string_clean(s);
|
|
for(i = 0 ; i < 19; i++)
|
|
string_push_u(s, tab2[i]);
|
|
assert (string_equal_str_p(s, "H€llo René Chaînôr¬"));
|
|
|
|
string_clear(s);
|
|
}
|
|
|
|
static void test0(void)
|
|
{
|
|
string_t s1;
|
|
string_t s2;
|
|
size_t i, j;
|
|
bool b;
|
|
|
|
string_init (s1);
|
|
string_init (s2);
|
|
|
|
string_set_str (s1, "Hello, world!");
|
|
assert (string_size(s1) == 13);
|
|
assert (string_get_char(s1, 1) == 'e');
|
|
|
|
string_clean(s1);
|
|
assert (string_size(s1) == 0);
|
|
assert (string_empty_p(s1) == true);
|
|
assert (strcmp(string_get_cstr(s1), "") == 0);
|
|
|
|
string_set_strn(s1, "Hello, world!", 14);
|
|
assert (strcmp(string_get_cstr(s1), "Hello, world!") == 0);
|
|
string_clean(s1);
|
|
string_set_strn(s1, "Hello, world!", 5);
|
|
assert (strcmp(string_get_cstr(s1), "Hello") == 0);
|
|
string_clean(s1);
|
|
|
|
string_set_str (s1, "Hello");
|
|
string_set_str (s2, "Hello, world!");
|
|
string_set_n (s1, s2, 7, 5);
|
|
assert (strcmp(string_get_cstr(s1), "world") == 0);
|
|
|
|
string_set_str (s1, "Hello beautiful world!");
|
|
assert (string_size(s1) == 22);
|
|
assert (strcmp(string_get_cstr(s1), "Hello beautiful world!") == 0);
|
|
|
|
string_clean(s1);
|
|
string_set_n (s2, s1, 0, 5);
|
|
assert(string_empty_p(s2));
|
|
|
|
string_set_str(s1, "Hello");
|
|
string_cat_str(s1, ", world!");
|
|
assert (string_size(s1) == 13);
|
|
assert (string_cmp_str(s1, "Hello, world!") == 0);
|
|
string_set_str(s2, "Hello, world!");
|
|
assert (string_cmp(s1, s2) == 0);
|
|
|
|
string_set_str(s2, "hELLO, world!");
|
|
assert (string_cmpi(s1, s2) == 0);
|
|
|
|
i = string_search_char (s1, ',');
|
|
assert (i == 5);
|
|
i = string_search_char (s1, 'Z');
|
|
assert (i == STRING_FAILURE);
|
|
|
|
i = string_search_rchar (s1, 'o');
|
|
assert (i == 8);
|
|
i = string_search_rchar (s1, 'Z');
|
|
assert (i == STRING_FAILURE);
|
|
|
|
i = string_search_str (s1, "world");
|
|
assert (i == 7);
|
|
i = string_search_str (s1, "World");
|
|
assert (i == STRING_FAILURE);
|
|
|
|
string_set (s1, s1);
|
|
string_set (s2, s1);
|
|
|
|
j = string_search_char (s1, ',');
|
|
string_left (s1, j);
|
|
assert (string_cmp_str (s1, "Hello") == 0);
|
|
|
|
string_set (s1, s2);
|
|
j = string_search_char (s1, ',');
|
|
string_right (s1, j);
|
|
assert (string_cmp_str (s1, ", world!") == 0);
|
|
|
|
string_set (s1, s2);
|
|
j = string_search_char (s1, ',');
|
|
string_mid (s1, j, 2);
|
|
assert (string_cmp_str (s1, ", ") == 0);
|
|
|
|
string_set (s1, s2);
|
|
i = string_replace_str (s1, "world", "Paul");
|
|
assert (i != STRING_FAILURE);
|
|
assert (string_cmp_str (s1, "Hello, Paul!") == 0);
|
|
|
|
i = string_replace_str (s1, "world", "Paul");
|
|
assert (i == STRING_FAILURE);
|
|
assert (string_cmp_str (s1, "Hello, Paul!") == 0);
|
|
|
|
i = string_replace_str (s1, "Paul", "Juliette");
|
|
assert (i != STRING_FAILURE);
|
|
assert (string_cmp_str (s1, "Hello, Juliette!") == 0);
|
|
|
|
string_printf (s1, "There is %d Paul!", 2);
|
|
assert (string_cmp_str (s1, "There is 2 Paul!") == 0);
|
|
assert (string_size (s1) == 16);
|
|
|
|
string_set_str(s1, "Hello, world()\n");
|
|
i = string_cspn(s1, ",()");
|
|
assert (i == 5);
|
|
string_set_str(s1, "Hello (world)\n");
|
|
i = string_cspn(s1, ",()");
|
|
assert (i == 6);
|
|
string_set_str(s1, "Hello (world)\n");
|
|
i = string_spn(s1, "Hel");
|
|
assert (i == 4);
|
|
|
|
string_clear (s1);
|
|
string_init (s1);
|
|
|
|
assert (string_cmp_str (s1, "") == 0);
|
|
assert (string_cmpi (s1, s1) == 0);
|
|
|
|
string_set_str(s2, "Hello");
|
|
string_cat (s2, s1);
|
|
assert (string_cmp_str (s2, "Hello") == 0);
|
|
|
|
string_set_str(s2, "Hello");
|
|
string_cat (s1, s2);
|
|
assert (string_cmp_str (s1, "Hello") == 0);
|
|
|
|
string_set_str(s2, " World!");
|
|
string_cat (s1, s2);
|
|
assert (string_cmp_str (s1, "Hello World!") == 0);
|
|
|
|
string_clear (s1);
|
|
string_init (s1);
|
|
|
|
string_left(s1, 100);
|
|
assert (string_empty_p (s1));
|
|
assert (string_size (s1) == 0);
|
|
assert (string_cmp_str (s1, "") == 0);
|
|
|
|
string_right(s1, 100);
|
|
assert (string_empty_p (s1));
|
|
assert (string_size (s1) == 0);
|
|
assert (string_cmp_str (s1, "") == 0);
|
|
|
|
string_set_str(s2, "Hello");
|
|
string_set (s2, s1);
|
|
assert (string_empty_p (s2));
|
|
assert (string_size (s2) == 0);
|
|
assert (string_cmp_str (s2, "") == 0);
|
|
|
|
string_set_str(s1, "Hello, world!");
|
|
assert(string_start_with_str_p(s1, "Hello") == true);
|
|
assert(string_start_with_str_p(s1, "Help") == false);
|
|
string_set_str(s2, "H");
|
|
assert(string_start_with_string_p(s1, s2) == true);
|
|
|
|
string_cat_printf(s1, " %d little %s.", 10, "suns");
|
|
string_set_str(s2, "Hello, world! 10 little suns.");
|
|
assert(string_equal_p(s1, s2) == true);
|
|
|
|
string_set_str(s1, " \r\n\t HELLO \n\r\t");
|
|
string_strim(s1);
|
|
assert (string_cmp_str (s1, "HELLO") == 0);
|
|
|
|
string_set_str(s1, " \r\n\t \n\r\t");
|
|
string_strim(s1);
|
|
assert (string_cmp_str (s1, "") == 0);
|
|
|
|
string_set_str(s1, " \r\n\t++\t YES ++ \n\r\t");
|
|
string_strim(s1, "\r\n\t +");
|
|
assert (string_cmp_str (s1, "YES") == 0);
|
|
|
|
string_set_str(s1, "Hello world");
|
|
string_get_str(s2, s1, false);
|
|
assert (string_cmp_str (s2, "\"Hello world\"") == 0);
|
|
string_set_str(s1, "Hello \"world\"");
|
|
string_get_str(s2, s1, true);
|
|
assert (string_cmp_str (s2, "\"Hello world\"\"Hello \\\"world\\\"\"") == 0);
|
|
|
|
const char *sp = string_get_cstr(s2);
|
|
b = string_parse_str(s1, sp, &sp);
|
|
assert (b == true);
|
|
assert (strcmp(sp, "\"Hello \\\"world\\\"\"") == 0);
|
|
assert (string_cmp_str(s1, "Hello world") == 0);
|
|
b = string_parse_str(s1, sp, &sp);
|
|
assert (b == true);
|
|
assert (strcmp(sp, "") == 0);
|
|
assert (string_cmp_str(s1, "Hello \"world\"") == 0);
|
|
|
|
string_set_str(s1, "Hello \"world\"");
|
|
FILE *f = fopen ("a-mstring.dat", "wt");
|
|
assert (f != NULL);
|
|
string_out_str (f, s1);
|
|
fclose (f);
|
|
f = fopen("a-mstring.dat", "rt");
|
|
assert (f != NULL);
|
|
b = string_in_str(s2, f);
|
|
assert(b);
|
|
fclose(f);
|
|
assert (string_equal_p(s1, s2));
|
|
|
|
string_set_str(s1, "\tHell\\o\n\"World\"\r\001");
|
|
string_get_str(s2, s1, false);
|
|
assert (string_cmp_str(s2, "\"\\tHell\\\\o\\n\\\"World\\\"\\r\\001\"") == 0);
|
|
|
|
f = fopen ("a-mstring.dat", "wt");
|
|
assert (f != NULL);
|
|
string_out_str (f, s1);
|
|
fclose (f);
|
|
f = fopen("a-mstring.dat", "rt");
|
|
assert (f != NULL);
|
|
b = string_in_str(s2, f);
|
|
assert(b);
|
|
fclose(f);
|
|
assert (string_equal_p(s1, s2));
|
|
|
|
string_set_str(s1, "AZERTY");
|
|
string_set_str(s2, "QWERTY");
|
|
string_swap (s1, s2);
|
|
assert(string_equal_str_p (s1, "QWERTY"));
|
|
assert(string_equal_str_p (s2, "AZERTY"));
|
|
|
|
string_cat(s1, s1);
|
|
assert (string_equal_str_p(s1, "QWERTYQWERTY"));
|
|
|
|
string_clear (s2);
|
|
char *s = string_clear_get_str (s1);
|
|
assert(strcmp(s, "QWERTYQWERTY") == 0);
|
|
free(s);
|
|
|
|
string_init_set_str(s1, "RESTART");
|
|
assert (string_equal_str_p(s1, "RESTART"));
|
|
|
|
string_init_set(s2, s1);
|
|
assert (string_equal_str_p(s2, "RESTART"));
|
|
|
|
string_set_str(s2, "DUMMY");
|
|
string_clear (s2);
|
|
string_init_move(s2, s1);
|
|
assert (string_equal_str_p(s2, "RESTART"));
|
|
string_reserve(s2, 0);
|
|
assert (string_equal_str_p(s2, "RESTART"));
|
|
string_init(s1);
|
|
string_move(s1, s2);
|
|
assert (string_equal_str_p(s1, "RESTART"));
|
|
|
|
string_init_set_str(s2, "START");
|
|
size_t n = string_search(s1, s2);
|
|
assert(n == 2);
|
|
|
|
string_set(s1, s2);
|
|
n = string_strcoll (s1, s2);
|
|
assert (n == 0);
|
|
|
|
string_right (s1, 100);
|
|
assert (string_empty_p(s1));
|
|
|
|
string_set_str(s1, "RESTART");
|
|
string_set_str(s2, "START");
|
|
string_replace (s1, s2, s2);
|
|
assert (string_equal_str_p(s1, "RESTART"));
|
|
|
|
string_clear (s1);
|
|
string_clear (s2);
|
|
|
|
string_init (s1);
|
|
string_init (s2);
|
|
|
|
string_printf (s1, "Hello %d worlds. How do you do? I'm fine. Thank you! The weather is bad today. I should had brought my umbrella. Oh! You can lend me one! Thank you very much! No really thank you. I wouldn't be able to get in time for my job.", 2);
|
|
assert (string_equal_str_p(s1, "Hello 2 worlds. How do you do? I'm fine. Thank you! The weather is bad today. I should had brought my umbrella. Oh! You can lend me one! Thank you very much! No really thank you. I wouldn't be able to get in time for my job."));
|
|
|
|
f = fopen ("a-mstring.dat", "wt");
|
|
assert (f != NULL);
|
|
string_fputs (f, s1);
|
|
fclose (f);
|
|
f = fopen("a-mstring.dat", "rt");
|
|
assert (f != NULL);
|
|
string_fgets(s2, f, STRING_READ_FILE);
|
|
fclose(f);
|
|
assert (string_equal_p(s1, s2));
|
|
|
|
string_clear(s2);
|
|
string_init(s2);
|
|
string_set_str(s2, "I'm ok");
|
|
|
|
f = fopen ("a-mstring.dat", "wt");
|
|
assert (f != NULL);
|
|
string_fputs (f, s1);
|
|
fprintf (f, "\n");
|
|
fclose (f);
|
|
f = fopen("a-mstring.dat", "rt");
|
|
assert (f != NULL);
|
|
string_fgets(s2, f, STRING_READ_PURE_LINE);
|
|
fclose(f);
|
|
assert (string_equal_p(s1, s2));
|
|
|
|
string_clear(s1);
|
|
string_init(s1);
|
|
f = fopen("a-mstring.dat", "wt");
|
|
assert(f != NULL);
|
|
fprintf(f, "hello world...\n\tHowwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww do you do?");
|
|
fclose(f);
|
|
f = fopen("a-mstring.dat", "rt");
|
|
b = string_fget_word(s1, " \t.\n?", f);
|
|
assert(b);
|
|
assert(string_equal_str_p(s1, "hello"));
|
|
b = string_fget_word(s1, " \t.\n?", f);
|
|
assert(b);
|
|
assert(string_equal_str_p(s1, "world"));
|
|
b = string_fget_word(s1, " \t.\n?", f);
|
|
assert(b);
|
|
assert(string_equal_str_p(s1, "Howwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww"));
|
|
b = string_fget_word(s1, " \t.\n?", f);
|
|
assert(b);
|
|
assert(string_equal_str_p(s1, "do"));
|
|
b = string_fget_word(s1, " \t.\n?", f);
|
|
assert(b);
|
|
assert(string_equal_str_p(s1, "you"));
|
|
b = string_fget_word(s1, " \t.\n?", f);
|
|
assert(b);
|
|
assert(string_equal_str_p(s1, "do"));
|
|
b = string_fget_word(s1, " \t.\n?", f);
|
|
assert(b == false);
|
|
fclose(f);
|
|
|
|
size_t h = string_hash(s1);
|
|
assert (h != 0);
|
|
|
|
string_set_str (s1, "");
|
|
assert (string_capacity(s1) > 0);
|
|
string_reserve (s1, 0);
|
|
assert (string_capacity(s1) == 0);
|
|
|
|
string_set_str(s1, "HELLO XXX!");
|
|
string_replace_at(s1, 6, 3, "World");
|
|
assert(string_equal_str_p(s1, "HELLO World!"));
|
|
|
|
h = string_search_pbrk(s1, "AB");
|
|
assert(h==STRING_FAILURE);
|
|
h = string_search_pbrk(s1, "oO");
|
|
assert(h==4);
|
|
|
|
string_clear (s1);
|
|
string_clear (s2);
|
|
}
|
|
|
|
static void test_bounded1(void)
|
|
{
|
|
string16_t s, d;
|
|
string16_init(s);
|
|
assert (string16_empty_p(s));
|
|
assert (string16_size(s) == 0);
|
|
assert (string16_capacity(s) == 17);
|
|
string16_set_str(s, "Hello");
|
|
assert (!string16_empty_p(s));
|
|
assert (string16_size(s) == 5);
|
|
assert (string16_equal_str_p(s, "Hello"));
|
|
assert (string16_cmp_str(s, "Hello") == 0);
|
|
assert (string16_get_char(s, 1) == 'e');
|
|
assert (strcmp(string16_get_cstr(s), "Hello") == 0);
|
|
string16_clean(s);
|
|
assert (string16_empty_p(s));
|
|
assert (string16_size(s) == 0);
|
|
string16_set_str(s, "Hello, world! How do you do?");
|
|
assert (!string16_empty_p(s));
|
|
assert (string16_size(s) == 16);
|
|
assert (string16_equal_str_p(s, "Hello, world! Ho"));
|
|
string16_set_strn(s, "Hello, world! How do you do?", 17);
|
|
assert (!string16_empty_p(s));
|
|
assert (string16_size(s) == 16);
|
|
assert (string16_equal_str_p(s, "Hello, world! Ho"));
|
|
string16_set_strn(s, "Hello, world! How do you do?", 15);
|
|
assert (!string16_empty_p(s));
|
|
assert (string16_size(s) == 15);
|
|
assert (string16_equal_str_p(s, "Hello, world! H"));
|
|
string16_cat_str(s, "ow do you do?");
|
|
assert (string16_size(s) == 16);
|
|
assert (!string16_equal_str_p(s, "Hello, world! H"));
|
|
assert (string16_equal_str_p(s, "Hello, world! Ho"));
|
|
string16_printf(s, "HeH:%d", 16);
|
|
assert (string16_size(s) == 6);
|
|
assert (string16_equal_str_p(s, "HeH:16"));
|
|
string16_cat_printf(s, " GeG:%d/%d FRE:%d", 17, 42, 13);
|
|
assert (string16_size(s) == 16);
|
|
assert (string16_equal_str_p(s, "HeH:16 GeG:17/42"));
|
|
assert (string16_hash(s) != 0);
|
|
|
|
string16_set_strn(s, "Hello, world! How do you do?", 15);
|
|
string16_init_set(d, s);
|
|
string16_clean(s);
|
|
assert (string16_equal_str_p(d, "Hello, world! H"));
|
|
|
|
string16_clear(d);
|
|
string16_clear(s);
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
test0();
|
|
test1();
|
|
test_utf8_basic();
|
|
test_utf8_it();
|
|
test_bounded1();
|
|
exit(0);
|
|
}
|