int main(int argc, const char *argv[])
{
klib2_t *lib;
static kplatform_t plat = {
"test", 4096,
};
konoha_t konoha = konoha_open((const kplatform_t*)&plat);
lib = konoha->lib2;
int i;
void *malloced[100];
for (i = 0; i < 100; ++i) {
malloced[i] = lib->Kmalloc(0, i);
}
for (i = 0; i < 100; ++i) {
lib->Kfree(0, malloced[i], i);
}
MODGC_check_malloced_size();
for (i = 0; i < 100; ++i) {
malloced[i] = lib->Kzmalloc(0, i);
int j;
char *p = malloced[i];
for (j = 0; j < i; ++j) {
assert(p[0] == 0);
}
}
for (i = 0; i < 100; ++i) {
lib->Kfree(0, malloced[i], i);
}
konoha_close(konoha);
MODGC_check_malloced_size();
return 0;
}
int main(int argc, char *argv[])
{
kbool_t ret = 1;
int scriptidx = konoha_ginit(argc, argv);
if(builtin_test != NULL) {
return konoha_builtintest(builtin_test);
}
if(test_script != NULL) {
return konoha_test(test_script);
}
konoha_t konoha = konoha_open();
if(preimport != NULL) {
konoha_preimport((CTX_t)konoha, preimport);
}
if(startup_script != NULL) {
konoha_startup(konoha, startup_script);
}
if(scriptidx < argc) {
ret = konoha_load(konoha, argv[scriptidx]);
}
if(ret && interactive_flag) {
ret = konoha_shell(konoha);
}
konoha_close(konoha);
MODGC_check_malloced_size();
return ret ? konoha_AssertResult: 1;
}
int main(int argc, const char *argv[])
{
static kplatform_t plat = {
"test", 4096,
};
konoha_t konoha = konoha_open((const kplatform_t*)&plat);
test_module_load(konoha);
test_classdef_load(konoha);
test_mtd_load(konoha);
konoha_close(konoha);
MODGC_check_malloced_size();
return 0;
}
int main(int argc, const char *argv[])
{
static kplatform_t plat = {
"test", 4096,
};
konoha_t konoha = konoha_open((const kplatform_t*)&plat);
int i;
for (i = 0; i < 100; ++i) {
test_Kwb(konoha);
}
konoha_close(konoha);
MODGC_check_malloced_size();
return 0;
}
int main(int argc, char *argv[])
{
kbool_t ret = 1;
if(getenv("KONOHA_DEBUG") != NULL) {
verbose_debug = 1;
verbose_gc = 1;
verbose_sugar = 1;
verbose_code = 1;
}
kplatform_t *plat = platform_shell();
konoha_t konoha = konoha_open((const kplatform_t*)plat);
ret = konoha_parseopt(konoha, plat, argc, argv);
konoha_close(konoha);
MODGC_check_malloced_size();
return ret ? konoha_AssertResult: 0;
}
