mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
45686f6c86
* WIP - C unit testing stubs * Get test-lib to compile and run * Add test-lib to CI * Use cflags for test-lib * Build runtime library * Fix typo * Break into separate CI tasks * Cleanup * Add example tests for non-CPS * Include -g option for test-lib * Add CI to build C runtime Can expand into scheme at some point, this is a first step. * Use latest upload workflow
51 lines
1.4 KiB
C
51 lines
1.4 KiB
C
#include <stdio.h>
|
|
#include <assert.h>
|
|
#include "include/cyclone/types.h"
|
|
#include "include/cyclone/runtime.h"
|
|
#include "include/cyclone/runtime-main.h"
|
|
|
|
/* Future considerations:
|
|
int main(int argc, char **argv, char **envp)
|
|
{gc_thread_data *thd;
|
|
long stack_size = global_stack_size = STACK_SIZE;
|
|
long heap_size = global_heap_size = HEAP_SIZE;
|
|
init_polyfills();
|
|
mclosure0(clos_halt,&Cyc_halt); // Halt if final closure is reached
|
|
mclosure0(entry_pt,&c_entry_pt); // First function to execute
|
|
_cyc_argc = argc;
|
|
_cyc_argv = argv;
|
|
set_env_variables(envp);
|
|
gc_initialize();
|
|
thd = malloc(sizeof(gc_thread_data));
|
|
gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size);
|
|
thd->gc_cont = &entry_pt;
|
|
thd->gc_args[0] = &clos_halt;
|
|
thd->gc_num_args = 1;
|
|
thd->thread_id = pthread_self();
|
|
gc_add_mutator(thd);
|
|
Cyc_heap_init(heap_size);
|
|
thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
|
|
Cyc_start_trampoline(thd);
|
|
return 0;}
|
|
*/
|
|
|
|
void test_exact() {
|
|
common_type ptr;
|
|
make_double(d, 42.5);
|
|
assert(obj_int2obj(42) == Cyc_exact_no_cps(NULL, &ptr, obj_int2obj(42)));
|
|
object result = Cyc_exact_no_cps(NULL, &ptr, &d);
|
|
assert( result == obj_int2obj(43));
|
|
|
|
// TODO: unit tests for below as examples:
|
|
//void Cyc_exact(void *data, object cont, object z)
|
|
}
|
|
|
|
int main(){
|
|
assert(boolean_t == boolean_t);
|
|
assert(boolean_t != boolean_f);
|
|
|
|
test_exact();
|
|
|
|
printf("All tests passed successfully!\n");
|
|
return 0;
|
|
}
|