Codebase list ohcount / upstream/4.0.0 test / unit / parsers / test_lisp.h
upstream/4.0.0

Tree @upstream/4.0.0 (Download .tar.gz)

test_lisp.h @upstream/4.0.0 — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
void test_lisp_comment() {
  test_parser_verify_parse(
    test_parser_sourcefile("lisp", " ;;; comment"),
    "lisp", "", ";;; comment", 0
  );
}

void test_lisp_doc_string() {
  test_parser_verify_parse(
    test_parser_sourcefile("lisp", " \"\"\" comment \"\"\""),
    "lisp", "", "\"\"\" comment \"\"\"", 0
  );
}

void test_lisp_doc_string_blank() {
  test_parser_verify_parse(
    test_parser_sourcefile("lisp", " \"\"\"\"\"\""),
    "lisp", "", "\"\"\"\"\"\"", 0
  );
}

void test_lisp_empty_string() {
  test_parser_verify_parse(
    test_parser_sourcefile("lisp", "\"\""),
    "lisp", "\"\"", "", 0
  );
}

void test_lisp_char_string() {
  test_parser_verify_parse(
    test_parser_sourcefile("lisp", " \"a\""),
    "lisp", "\"a\"", "", 0
  );
}

void test_lisp_comment_entities() {
  test_parser_verify_entity(
    test_parser_sourcefile("lisp", " ;comment"),
    "comment", ";comment"
  );
}

void all_lisp_tests() {
  test_lisp_comment();
  test_lisp_doc_string();
  test_lisp_doc_string_blank();
  test_lisp_empty_string();
  test_lisp_char_string();
  test_lisp_comment_entities();
}