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

   1 /* renamed from lisp unit tests...
   2  * lots more possible here.
   3  */
   4
   5 void test_racket_comment() {
   6   test_parser_verify_parse(
   7     test_parser_sourcefile("racket", " ;;; comment"),
   8     "racket", "", ";;; comment", 0
   9   );
  10 }
  11
  12 void test_racket_doc_string() {
  13   test_parser_verify_parse(
  14     test_parser_sourcefile("racket", " \"\"\" comment \"\"\""),
  15     "racket", "", "\"\"\" comment \"\"\"", 0
  16   );
  17 }
  18
  19 void test_racket_doc_string_blank() {
  20   test_parser_verify_parse(
  21     test_parser_sourcefile("racket", " \"\"\"\"\"\""),
  22     "racket", "", "\"\"\"\"\"\"", 0
  23   );
  24 }
  25
  26 void test_racket_empty_string() {
  27   test_parser_verify_parse(
  28     test_parser_sourcefile("racket", "\"\""),
  29     "racket", "\"\"", "", 0
  30   );
  31 }
  32
  33 void test_racket_char_string() {
  34   test_parser_verify_parse(
  35     test_parser_sourcefile("racket", " \"a\""),
  36     "racket", "\"a\"", "", 0
  37   );
  38 }
  39
  40 void test_racket_comment_entities() {
  41   test_parser_verify_entity(
  42     test_parser_sourcefile("racket", " ;comment"),
  43     "comment", ";comment"
  44   );
  45 }
  46
  47 void all_racket_tests() {
  48   test_racket_comment();
  49   test_racket_doc_string();
  50   test_racket_doc_string_blank();
  51   test_racket_empty_string();
  52   test_racket_char_string();
  53   test_racket_comment_entities();
  54 }