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

   1
   2 void test_perl_comments() {
   3   test_parser_verify_parse(
   4     test_parser_sourcefile("perl", " #comment"),
   5     "perl", "", "#comment", 0
   6   );
   7 }
   8
   9 void test_perl_comment_entities() {
  10   test_parser_verify_entity(
  11     test_parser_sourcefile("perl", " #comment"),
  12     "comment", "#comment"
  13   );
  14   test_parser_verify_entity(
  15     test_parser_sourcefile("perl", "=head1\ncomment\n=cut"),
  16     "comment", "=head1\ncomment\n=cut"
  17   );
  18 }
  19
  20 void all_perl_tests() {
  21   test_perl_comments();
  22   test_perl_comment_entities();
  23 }