diff options
| author | Felix Perktold <Felix.Perktold@student.uibk.ac.at> | 2025-12-23 14:29:00 +0100 |
|---|---|---|
| committer | Felix Perktold <Felix.Perktold@student.uibk.ac.at> | 2025-12-23 14:29:00 +0100 |
| commit | c63cbd8db40fbdeccabd218229010cbfb8a93977 (patch) | |
| tree | 34a9725eb1207a624cb8486420d780bbfb983482 /test.c | |
| parent | b99be4933bcb850cbaf96f89750e925ecf2e8386 (diff) | |
fix tests, fix empty input behavior
Diffstat (limited to 'test.c')
| -rw-r--r-- | test.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -348,7 +348,7 @@ void test_recursive_factorial() { void test_eq_ints() { env *e = env_create(NULL); - env_define(e, "eq", make_builtin(builtin_eq)); + env_define(e, "eq", make_builtin(builtin_equal)); value *expr = cons(make_symbol("eq"), @@ -365,7 +365,7 @@ void test_eq_ints() { void test_eq_ints_false() { env *e = env_create(NULL); - env_define(e, "eq", make_builtin(builtin_eq)); + env_define(e, "eq", make_builtin(builtin_equal)); value *expr = cons(make_symbol("eq"), @@ -380,7 +380,7 @@ void test_eq_ints_false() { void test_eq_symbols() { env *e = env_create(NULL); - env_define(e, "eq", make_builtin(builtin_eq)); + env_define(e, "eq", make_builtin(builtin_equal)); value *expr = cons(make_symbol("eq"), @@ -395,7 +395,7 @@ void test_eq_symbols() { void test_eq_lists() { env *e = env_create(NULL); - env_define(e, "eq", make_builtin(builtin_eq)); + env_define(e, "eq", make_builtin(builtin_equal)); value *list1 = cons(make_int(1), |