mirror of https://github.com/Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
1.1 KiB
43 lines
1.1 KiB
// SPDX-License-Identifier: GPL-2.0 |
|
#include <string.h> |
|
#include <stdlib.h> |
|
#include <stdio.h> |
|
#include "tests.h" |
|
#include "session.h" |
|
#include "debug.h" |
|
#include "demangle-ocaml.h" |
|
|
|
int test__demangle_ocaml(struct test *test __maybe_unused, int subtest __maybe_unused) |
|
{ |
|
int ret = TEST_OK; |
|
char *buf = NULL; |
|
size_t i; |
|
|
|
struct { |
|
const char *mangled, *demangled; |
|
} test_cases[] = { |
|
{ "main", |
|
NULL }, |
|
{ "camlStdlib__array__map_154", |
|
"Stdlib.array.map_154" }, |
|
{ "camlStdlib__anon_fn$5bstdlib$2eml$3a334$2c0$2d$2d54$5d_1453", |
|
"Stdlib.anon_fn[stdlib.ml:334,0--54]_1453" }, |
|
{ "camlStdlib__bytes__$2b$2b_2205", |
|
"Stdlib.bytes.++_2205" }, |
|
}; |
|
|
|
for (i = 0; i < ARRAY_SIZE(test_cases); i++) { |
|
buf = ocaml_demangle_sym(test_cases[i].mangled); |
|
if ((buf == NULL && test_cases[i].demangled != NULL) |
|
|| (buf != NULL && test_cases[i].demangled == NULL) |
|
|| (buf != NULL && strcmp(buf, test_cases[i].demangled))) { |
|
pr_debug("FAILED: %s: %s != %s\n", test_cases[i].mangled, |
|
buf == NULL ? "(null)" : buf, |
|
test_cases[i].demangled == NULL ? "(null)" : test_cases[i].demangled); |
|
ret = TEST_FAIL; |
|
} |
|
free(buf); |
|
} |
|
|
|
return ret; |
|
}
|
|
|