Aryadev Chavali
9f3bb57972
- Internal data pointer is read only by default => any uses that require use of the pointer itself (freeing, mutating) must perform a cast. - refactor tests to use some new sv macros and functions, and clean them up. - slight cleanup of sv.c
91 lines
2.4 KiB
C
91 lines
2.4 KiB
C
/* test_vec.c: Vector tests
|
|
* Created: 2026-02-04
|
|
* Author: Aryadev Chavali
|
|
* License: See end of file
|
|
* Commentary:
|
|
*/
|
|
|
|
#include "./data.h"
|
|
#include "./test.h"
|
|
|
|
void vec_test_concat(void)
|
|
{
|
|
TEST_START();
|
|
sys_t system = {0};
|
|
sys_init(&system);
|
|
|
|
// Generating a vector word by word
|
|
lisp_t *lvec = make_vec(&system, 0);
|
|
for (u64 i = 0; i < ARRSIZE(words); ++i)
|
|
{
|
|
const char *word = words[i];
|
|
vec_append(as_vec(lvec), word, strlen(word));
|
|
if (i != ARRSIZE(words) - 1)
|
|
vec_append(as_vec(lvec), " ", 1);
|
|
}
|
|
vec_append(as_vec(lvec), "\0", 1);
|
|
|
|
vec_t *vec = as_vec(lvec);
|
|
|
|
TEST(vec->size == ARRSIZE(words_text), "%lu == %lu", vec->size,
|
|
ARRSIZE(words_text));
|
|
TEST(strncmp((char *)vec_data(vec), words_text, vec->size) == 0,
|
|
"%p@%lu == %p@%lu", (char *)vec_data(vec), vec->size, words_text,
|
|
strlen(words_text));
|
|
|
|
sys_free(&system);
|
|
TEST_END();
|
|
}
|
|
|
|
void vec_test_gen_substr(void)
|
|
{
|
|
TEST_START();
|
|
sys_t system = {0};
|
|
sys_init(&system);
|
|
// Generating substrings
|
|
struct Test
|
|
{
|
|
u64 start, size;
|
|
} tests[] = {
|
|
{0, 16},
|
|
{0, 32},
|
|
{32, 64},
|
|
{0, ARRSIZE(text) - 1},
|
|
};
|
|
|
|
for (u64 i = 0; i < ARRSIZE(tests); ++i)
|
|
{
|
|
struct Test test = tests[i];
|
|
const sv_t substr = sv_substr(SV_AUTO(text), test.start, test.size);
|
|
const u64 size = test.size / 2;
|
|
|
|
lisp_t *lvec = make_vec(&system, size);
|
|
vec_append(as_vec(lvec), text + test.start, test.size);
|
|
TEST(as_vec(lvec)->size > size, "%lu > %lu", as_vec(lvec)->size, size);
|
|
TEST(strncmp((char *)vec_data(as_vec(lvec)), substr.data, substr.size) == 0,
|
|
"%p@%lu == %p@%lu", (char *)vec_data(as_vec(lvec)), as_vec(lvec)->size,
|
|
substr.data, substr.size);
|
|
}
|
|
|
|
sys_free(&system);
|
|
TEST_END();
|
|
}
|
|
|
|
MAKE_TEST_SUITE(VEC_SUITE, "Vector Tests",
|
|
|
|
MAKE_TEST_FN(vec_test_concat),
|
|
MAKE_TEST_FN(vec_test_gen_substr), );
|
|
|
|
/* Copyright (C) 2026 Aryadev Chavali
|
|
|
|
* 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 Version 2 for
|
|
* details.
|
|
|
|
* You may distribute and modify this code under the terms of the GNU General *
|
|
* Public License Version 2, which you should have received a copy of along with
|
|
* this program. If not, please go to <https://www.gnu.org/licenses/>.
|
|
|
|
*/
|