Codebase list ohcount / debian/latest test / unit / parsers / test_perl.h
debian/latest

Tree @debian/latest (Download .tar.gz)

test_perl.h @debian/latest — 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
void test_perl_comments() {
  test_parser_verify_parse(
    test_parser_sourcefile("perl", " #comment"),
    "perl", "", "#comment", 0
  );
}

void test_perl_comment_entities() {
  test_parser_verify_entity(
    test_parser_sourcefile("perl", " #comment"),
    "comment", "#comment"
  );
  test_parser_verify_entity(
    test_parser_sourcefile("perl", "=head1\ncomment\n=cut"),
    "comment", "=head1\ncomment\n=cut"
  );
}

void all_perl_tests() {
  test_perl_comments();
  test_perl_comment_entities();
}