Added basic unit tests for Prolog parsing.

src/parsers/prolog.rl

@@ -45,7 +45,14 @@ enum {
   }
 
   prolog_line_comment = '%' @comment nonnewline*;
-  prolog_block_comment = '/*' any* :>> '*/';
+  prolog_block_comment =
+    '/*' @comment (
+      newline %{ entity = INTERNAL_NL; } %prolog_ccallback
+      |
+      ws
+      |
+      (nonnewline - ws) @comment
+    )* :>> '*/';
   prolog_comment = prolog_line_comment | prolog_block_comment;
 
   prolog_sq_str = '\'' @code ([^\r\n\f'\\] | '\\' nonnewline)* '\'';

test/detect_files/foo_perl1.pl

@@ -0,0 +1,2 @@
+#!/usr/bin/perl
+print "Hello, world!\n";

test/detect_files/foo_perl2.pl

@@ -0,0 +1,3 @@
+
+# Also a Perl file but without the shebang line
+print "Hello, world!\n";

test/detect_files/foo_prolog1.pl

@@ -0,0 +1,6 @@
+
+% select(Element, List, Remaining)
+
+select(H, [H| T], T).
+select(H, [X| R], [X| T]) :-
+	select(H, R, T).

test/expected_dir/prolog.pl

@@ -0,0 +1,9 @@
+prolog	comment	/* test file for Prolog parsing */
+prolog	blank	
+prolog	comment	% this is a Prolog source file
+prolog	blank	
+prolog	comment	% select(Element, List, Remaining)
+prolog	blank	
+prolog	code	select(H, [H| T], T).
+prolog	code	select(H, [X| R], [X| T]) :-
+prolog	code		select(H, R, T).

test/src_dir/prolog.pl

@@ -0,0 +1,9 @@
+/* test file for Prolog parsing */
+
+% this is a Prolog source file
+
+% select(Element, List, Remaining)
+
+select(H, [H| T], T).
+select(H, [X| R], [X| T]) :-
+	select(H, R, T).

test/unit/detector_test.h

@@ -71,6 +71,13 @@ void test_detector_disambiguate_m() {
 void test_detector_disambiguate_in() {
   ASSERT_NODETECT("empty.in");
 }
+
+void test_detector_disambiguate_pl() {
+  ASSERT_DETECT(LANG_PERL, "foo_perl1.pl");
+  ASSERT_DETECT(LANG_PERL, "foo_perl2.pl");
+  ASSERT_DETECT(LANG_PROLOG, "foo_prolog1.pl");
+}
+
 void test_detector_disambiguate_pro() {
   ASSERT_DETECT(LANG_IDL_PVWAVE, "foo.pro");
   ASSERT_DETECT(LANG_MAKE, "qmake.pro");
@@ -169,6 +176,7 @@ void all_detector_tests() {
   test_detector_smalltalk();
   test_detector_disambiguate_m();
   test_detector_disambiguate_in();
+  test_detector_disambiguate_pl();
   test_detector_disambiguate_pro();
   test_detector_fortran_fixedfree();
   test_detector_detect_polyglot();