From c63cbd8db40fbdeccabd218229010cbfb8a93977 Mon Sep 17 00:00:00 2001 From: Felix Perktold Date: Tue, 23 Dec 2025 14:29:00 +0100 Subject: fix tests, fix empty input behavior --- test.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'test.c') diff --git a/test.c b/test.c index 48b844c..95cce3f 100644 --- a/test.c +++ b/test.c @@ -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), -- cgit v1.2.3