forked from KolibriOS/kolibrios
418 lines
13 KiB
C
418 lines
13 KiB
C
/* test/basictests.c
|
|
*
|
|
* Basic tests for the test suite for libwapcaplet
|
|
*
|
|
* Copyright 2009 The NetSurf Browser Project
|
|
* Daniel Silverstone <dsilvers@netsurf-browser.org>
|
|
*/
|
|
|
|
#include <check.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "tests.h"
|
|
|
|
#ifndef UNUSED
|
|
#define UNUSED(x) (void)(x)
|
|
#endif
|
|
|
|
#ifndef NDEBUG
|
|
/* All the basic assert() tests */
|
|
START_TEST (test_lwc_intern_string_aborts1)
|
|
{
|
|
lwc_intern_string(NULL, 0, NULL);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_intern_string_aborts2)
|
|
{
|
|
lwc_intern_string("A", 1, NULL);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_intern_substring_aborts1)
|
|
{
|
|
lwc_intern_substring(NULL, 0, 0, NULL);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_intern_substring_aborts2)
|
|
{
|
|
lwc_string *str;
|
|
fail_unless(lwc_intern_string("Jam", 3, &str) == lwc_error_ok,
|
|
"unable to intern 'Jam'");
|
|
|
|
lwc_intern_substring(str, 88, 77, NULL);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_ref_aborts)
|
|
{
|
|
lwc_string_ref(NULL);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_unref_aborts)
|
|
{
|
|
lwc_string_unref(NULL);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_data_aborts)
|
|
{
|
|
lwc_string_data(NULL);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_length_aborts)
|
|
{
|
|
lwc_string_length(NULL);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_hash_value_aborts)
|
|
{
|
|
lwc_string_hash_value(NULL);
|
|
}
|
|
END_TEST
|
|
|
|
#endif
|
|
|
|
/**** The next set of tests need a fixture set ****/
|
|
|
|
static void
|
|
with_simple_context_setup(void)
|
|
{
|
|
/* Nothing to set up */
|
|
}
|
|
|
|
static void
|
|
with_simple_context_teardown(void)
|
|
{
|
|
/* Nothing to do to tear down */
|
|
}
|
|
|
|
START_TEST (test_lwc_intern_string_ok)
|
|
{
|
|
lwc_string *str = NULL;
|
|
fail_unless(lwc_intern_string("A", 1, &str) == lwc_error_ok,
|
|
"Unable to intern a simple string");
|
|
fail_unless(str != NULL,
|
|
"Returned OK but str was still NULL");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_intern_string_twice_ok)
|
|
{
|
|
lwc_string *str1 = NULL, *str2 = NULL;
|
|
fail_unless(lwc_intern_string("A", 1, &str1) == lwc_error_ok,
|
|
"Unable to intern a simple string");
|
|
fail_unless(str1 != NULL,
|
|
"Returned OK but str was still NULL");
|
|
fail_unless(lwc_intern_string("B", 1, &str2) == lwc_error_ok,
|
|
"Unable to intern a simple string");
|
|
fail_unless(str2 != NULL,
|
|
"Returned OK but str was still NULL");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_intern_string_twice_same_ok)
|
|
{
|
|
lwc_string *str1 = NULL, *str2 = NULL;
|
|
fail_unless(lwc_intern_string("A", 1, &str1) == lwc_error_ok,
|
|
"Unable to intern a simple string");
|
|
fail_unless(str1 != NULL,
|
|
"Returned OK but str was still NULL");
|
|
fail_unless(lwc_intern_string("A", 1, &str2) == lwc_error_ok,
|
|
"Unable to intern a simple string");
|
|
fail_unless(str2 != NULL,
|
|
"Returned OK but str was still NULL");
|
|
}
|
|
END_TEST
|
|
|
|
/**** The next set of tests need a fixture set with some strings ****/
|
|
|
|
static lwc_string *intern_one = NULL, *intern_two = NULL, *intern_three = NULL, *intern_YAY = NULL;
|
|
|
|
static void
|
|
with_filled_context_setup(void)
|
|
{
|
|
fail_unless(lwc_intern_string("one", 3, &intern_one) == lwc_error_ok,
|
|
"Unable to intern 'one'");
|
|
fail_unless(lwc_intern_string("two", 3, &intern_two) == lwc_error_ok,
|
|
"Unable to intern 'two'");
|
|
fail_unless(lwc_intern_string("three", 5, &intern_three) == lwc_error_ok,
|
|
"Unable to intern 'three'");
|
|
fail_unless(lwc_intern_string("YAY", 3, &intern_YAY) == lwc_error_ok,
|
|
"Unable to intern 'YAY'");
|
|
|
|
fail_unless(intern_one != intern_two, "'one' == 'two'");
|
|
fail_unless(intern_one != intern_three, "'one' == 'three'");
|
|
fail_unless(intern_two != intern_three, "'two' == 'three'");
|
|
}
|
|
|
|
static void
|
|
with_filled_context_teardown(void)
|
|
{
|
|
lwc_string_unref(intern_one);
|
|
lwc_string_unref(intern_two);
|
|
lwc_string_unref(intern_three);
|
|
lwc_string_unref(intern_YAY);
|
|
}
|
|
|
|
START_TEST (test_lwc_interning_works)
|
|
{
|
|
lwc_string *new_one = NULL;
|
|
|
|
fail_unless(lwc_intern_string("one", 3, &new_one) == lwc_error_ok,
|
|
"Unable to re-intern 'one'");
|
|
|
|
fail_unless(new_one == intern_one,
|
|
"Internalising of the string failed");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_intern_substring)
|
|
{
|
|
lwc_string *new_hre = NULL, *sub_hre = NULL;
|
|
|
|
fail_unless(lwc_intern_string("hre", 3, &new_hre) == lwc_error_ok,
|
|
"Unable to intern 'hre'");
|
|
fail_unless(lwc_intern_substring(intern_three,
|
|
1, 3, &sub_hre) == lwc_error_ok,
|
|
"Unable to re-intern 'hre' by substring");
|
|
fail_unless(new_hre == sub_hre,
|
|
"'hre' != 'hre' -- wow!");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_intern_substring_bad_offset)
|
|
{
|
|
lwc_string *str;
|
|
|
|
fail_unless(lwc_intern_substring(intern_three, 100, 1, &str) == lwc_error_range,
|
|
"Able to intern substring starting out of range");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_intern_substring_bad_size)
|
|
{
|
|
lwc_string *str;
|
|
|
|
fail_unless(lwc_intern_substring(intern_three, 1, 100, &str) == lwc_error_range,
|
|
"Able to intern substring ending out of range");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_ref_ok)
|
|
{
|
|
fail_unless(lwc_string_ref(intern_one) == intern_one,
|
|
"Oddly, reffing a string didn't return it");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_unref_ok)
|
|
{
|
|
lwc_string_unref(intern_one);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_ref_unref_ok)
|
|
{
|
|
lwc_string_ref(intern_one);
|
|
lwc_string_unref(intern_one);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_isequal_ok)
|
|
{
|
|
bool result = true;
|
|
fail_unless((lwc_string_isequal(intern_one, intern_two, &result)) == lwc_error_ok,
|
|
"Failure comparing 'one' and 'two'");
|
|
fail_unless(result == false,
|
|
"'one' == 'two' ?!");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_caseless_isequal_ok1)
|
|
{
|
|
bool result = true;
|
|
lwc_string *new_ONE;
|
|
|
|
fail_unless(lwc_intern_string("ONE", 3, &new_ONE) == lwc_error_ok,
|
|
"Failure interning 'ONE'");
|
|
|
|
fail_unless((lwc_string_isequal(intern_one, new_ONE, &result)) == lwc_error_ok);
|
|
fail_unless(result == false,
|
|
"'one' == 'ONE' ?!");
|
|
|
|
fail_unless((lwc_string_caseless_isequal(intern_one, new_ONE, &result)) == lwc_error_ok,
|
|
"Failure comparing 'one' and 'ONE' caselessly");
|
|
fail_unless(result == true,
|
|
"'one' !~= 'ONE' ?!");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_caseless_isequal_ok2)
|
|
{
|
|
bool result = true;
|
|
lwc_string *new_yay;
|
|
|
|
fail_unless(lwc_intern_string("yay", 3, &new_yay) == lwc_error_ok,
|
|
"Failure interning 'yay'");
|
|
|
|
fail_unless((lwc_string_isequal(intern_YAY, new_yay, &result)) == lwc_error_ok);
|
|
fail_unless(result == false,
|
|
"'yay' == 'YAY' ?!");
|
|
|
|
fail_unless((lwc_string_caseless_isequal(intern_YAY, new_yay, &result)) == lwc_error_ok,
|
|
"Failure comparing 'yay' and 'YAY' caselessly");
|
|
fail_unless(result == true,
|
|
"'yay' !~= 'YAY' ?!");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_caseless_isequal_bad)
|
|
{
|
|
bool result = true;
|
|
|
|
fail_unless(lwc_string_caseless_isequal(intern_YAY, intern_one, &result) == lwc_error_ok,
|
|
"Failure comparing 'YAY' and 'one' caselessly");
|
|
fail_unless(result == false,
|
|
"'YAY' ~= 'one' ?!");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_extract_data_ok)
|
|
{
|
|
fail_unless(memcmp("one",
|
|
lwc_string_data(intern_one),
|
|
lwc_string_length(intern_one)) == 0,
|
|
"Extracting data ptr etc failed");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_hash_value_ok)
|
|
{
|
|
(void)lwc_string_hash_value(intern_one);
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_string_is_nul_terminated)
|
|
{
|
|
lwc_string *new_ONE;
|
|
|
|
fail_unless(lwc_intern_string("ONE", 3, &new_ONE) == lwc_error_ok,
|
|
"Failure interning 'ONE'");
|
|
|
|
fail_unless(lwc_string_data(new_ONE)[lwc_string_length(new_ONE)] == '\0',
|
|
"Interned string isn't NUL terminated");
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (test_lwc_substring_is_nul_terminated)
|
|
{
|
|
lwc_string *new_ONE;
|
|
lwc_string *new_O;
|
|
|
|
fail_unless(lwc_intern_string("ONE", 3, &new_ONE) == lwc_error_ok,
|
|
"Failure interning 'ONE'");
|
|
|
|
fail_unless(lwc_intern_substring(new_ONE, 0, 1, &new_O) == lwc_error_ok,
|
|
"Failure interning substring 'O'");
|
|
|
|
fail_unless(lwc_string_data(new_O)[lwc_string_length(new_O)] == '\0',
|
|
"Interned substring isn't NUL terminated");
|
|
}
|
|
END_TEST
|
|
|
|
static void
|
|
counting_cb(lwc_string *str, void *pw)
|
|
{
|
|
UNUSED(str);
|
|
|
|
*((int *)pw) += 1;
|
|
}
|
|
|
|
START_TEST (test_lwc_string_iteration)
|
|
{
|
|
int counter = 0;
|
|
lwc_iterate_strings(counting_cb, (void*)&counter);
|
|
fail_unless(counter == 4, "Incorrect string count");
|
|
}
|
|
END_TEST
|
|
|
|
/**** And the suites are set up here ****/
|
|
|
|
void
|
|
lwc_basic_suite(SRunner *sr)
|
|
{
|
|
Suite *s = suite_create("libwapcaplet: Basic tests");
|
|
TCase *tc_basic = tcase_create("Creation/Destruction");
|
|
|
|
#ifndef NDEBUG
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_intern_string_aborts1,
|
|
SIGABRT);
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_intern_string_aborts2,
|
|
SIGABRT);
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_intern_substring_aborts1,
|
|
SIGABRT);
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_intern_substring_aborts2,
|
|
SIGABRT);
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_string_ref_aborts,
|
|
SIGABRT);
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_string_unref_aborts,
|
|
SIGABRT);
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_string_data_aborts,
|
|
SIGABRT);
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_string_length_aborts,
|
|
SIGABRT);
|
|
tcase_add_test_raise_signal(tc_basic,
|
|
test_lwc_string_hash_value_aborts,
|
|
SIGABRT);
|
|
#endif
|
|
|
|
suite_add_tcase(s, tc_basic);
|
|
|
|
tc_basic = tcase_create("Ops with a context");
|
|
|
|
tcase_add_checked_fixture(tc_basic, with_simple_context_setup,
|
|
with_simple_context_teardown);
|
|
tcase_add_test(tc_basic, test_lwc_intern_string_ok);
|
|
tcase_add_test(tc_basic, test_lwc_intern_string_twice_ok);
|
|
tcase_add_test(tc_basic, test_lwc_intern_string_twice_same_ok);
|
|
suite_add_tcase(s, tc_basic);
|
|
|
|
tc_basic = tcase_create("Ops with a filled context");
|
|
|
|
tcase_add_checked_fixture(tc_basic, with_filled_context_setup,
|
|
with_filled_context_teardown);
|
|
tcase_add_test(tc_basic, test_lwc_interning_works);
|
|
tcase_add_test(tc_basic, test_lwc_intern_substring);
|
|
tcase_add_test(tc_basic, test_lwc_string_ref_ok);
|
|
tcase_add_test(tc_basic, test_lwc_string_ref_unref_ok);
|
|
tcase_add_test(tc_basic, test_lwc_string_unref_ok);
|
|
tcase_add_test(tc_basic, test_lwc_string_isequal_ok);
|
|
tcase_add_test(tc_basic, test_lwc_string_caseless_isequal_ok1);
|
|
tcase_add_test(tc_basic, test_lwc_string_caseless_isequal_ok2);
|
|
tcase_add_test(tc_basic, test_lwc_string_caseless_isequal_bad);
|
|
tcase_add_test(tc_basic, test_lwc_extract_data_ok);
|
|
tcase_add_test(tc_basic, test_lwc_string_hash_value_ok);
|
|
tcase_add_test(tc_basic, test_lwc_string_is_nul_terminated);
|
|
tcase_add_test(tc_basic, test_lwc_substring_is_nul_terminated);
|
|
tcase_add_test(tc_basic, test_lwc_intern_substring_bad_size);
|
|
tcase_add_test(tc_basic, test_lwc_intern_substring_bad_offset);
|
|
tcase_add_test(tc_basic, test_lwc_string_iteration);
|
|
suite_add_tcase(s, tc_basic);
|
|
|
|
srunner_add_suite(sr, s);
|
|
}
|