git.oblomov.eu Git - ohcount/blob - test/unit/parsers/test_lisp.h

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