causa-arcana-misc
/
lesson-lisp
1
0
Fork 0
Code

Remove unnecessary quotes

This commit is contained in:
Alex Kotov 2023-05-05 22:16:29 +04:00
parent 786258931d
commit 84cb115cdf
Signed by: kotovalexarian
GPG Key ID: 553C0EBBEB5D5F08
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/main-test.c
View File

@ -68,7 +68,7 @@ int main()
assert(eval(num_123) == num_123);
// (quote foo)
// 'foo
// foo
assert(
eval(
Object_build_list(2, Object_new_symbol("quote"), sym_foo)
@ -84,7 +84,7 @@ int main()
);
// (quote ())
// '()
// ()
assert(eval_str("(quote ())") == NULL);
// (quote 123)
@ -144,7 +144,7 @@ void test_arcane_SLASH_tokenize()
struct Object *result = NULL;
// (arcane/tokenize "(")
// '((TOKEN_ROUND_OPEN . ""))
// ((TOKEN_ROUND_OPEN . ""))
result = eval(Object_build_list(
2,
Object_new_symbol("arcane/tokenize"),
@ -159,7 +159,7 @@ void test_arcane_SLASH_tokenize()
assert(strcmp(result->pair.a->pair.b->s, "(") == 0);
// (arcane/tokenize "#false")
// '((TOKEN_TAG . "false"))
// ((TOKEN_TAG . "false"))
result = eval(Object_build_list(
2,
Object_new_symbol("arcane/tokenize"),
@ -174,7 +174,7 @@ void test_arcane_SLASH_tokenize()
assert(strcmp(result->pair.a->pair.b->s, "false") == 0);
// (arcane/tokenize "(displayln (list 1))")
// '((TOKEN_ROUND_OPEN . "(") (TOKEN_IDENT . "displayln") (TOKEN_ROUND_OPEN . "(") (TOKEN_IDENT . "list") (TOKEN_NUM . "1") (TOKEN_ROUND_CLOSE . ")") (TOKEN_ROUND_CLOSE . ")"))
// ((TOKEN_ROUND_OPEN . "(") (TOKEN_IDENT . "displayln") (TOKEN_ROUND_OPEN . "(") (TOKEN_IDENT . "list") (TOKEN_NUM . "1") (TOKEN_ROUND_CLOSE . ")") (TOKEN_ROUND_CLOSE . ")"))
result = eval(Object_build_list(
2,
Object_new_symbol("arcane/tokenize"),
@ -289,11 +289,11 @@ void test_list()
struct Object *const num_456 = Object_new_number(456);
// (list)
// '()
// ()
assert(eval_str("(list)") == NULL);
// (list 123)
// '(123)
// (123)
result = eval(Object_build_list(
2,
Object_new_symbol("list"),
@ -304,7 +304,7 @@ void test_list()
assert(OBJECT_IS_NULL(result->pair.b));
// (list 123 456)
// '(123 456)
// (123 456)
result = eval(Object_build_list(
3,
Object_new_symbol("list"),