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.
26 lines
812 B
26 lines
812 B
3 years ago
|
#include "ptlisp-test.h"
|
||
|
|
#include "../src/lisp.h"
|
||
|
|
|
||
|
|
int main(void) {
|
||
|
|
SRunner *sr = srunner_create(make_memory_test_suite());
|
||
|
|
int nf;
|
||
|
|
|
||
|
|
srunner_add_suite(sr, make_array_test_suite());
|
||
|
|
srunner_add_suite(sr, make_table_test_suite());
|
||
|
|
srunner_add_suite(sr, make_symbol_test_suite());
|
||
|
|
srunner_add_suite(sr, make_string_test_suite());
|
||
|
|
srunner_add_suite(sr, make_cons_test_suite());
|
||
|
|
srunner_add_suite(sr, make_environment_test_suite());
|
||
|
|
srunner_add_suite(sr, make_evaluator_test_suite());
|
||
|
|
srunner_add_suite(sr, make_lisp_test_suite());
|
||
|
|
srunner_add_suite(sr, make_reader_test_suite());
|
||
|
|
srunner_add_suite(sr, make_printer_test_suite());
|
||
|
|
|
||
|
|
srunner_set_fork_status(sr, CK_NOFORK);
|
||
|
|
srunner_run_all(sr, CK_NORMAL);
|
||
|
|
nf = srunner_ntests_failed(sr);
|
||
|
|
srunner_free(sr);
|
||
|
|
|
||
|
|
return nf == 0 ? 0 : 1;
|
||
|
|
}
|