From f4cfde45bd46110a247317d5fe9fca5543a1002a Mon Sep 17 00:00:00 2001
From: Andrei Formiga <archimedes_siracusa@hotmail.com>
Date: Tue, 5 Jul 2011 18:01:44 -0300
Subject: [PATCH] Included test files for .pl disambiguation

---
 test/fixtures/test-perl.pl   |  2 ++
 test/fixtures/test-perl2.pl  |  3 +++
 test/fixtures/test-prolog.pl | 12 ++++++++++++
 3 files changed, 17 insertions(+)
 create mode 100644 test/fixtures/test-perl.pl
 create mode 100644 test/fixtures/test-perl2.pl
 create mode 100644 test/fixtures/test-prolog.pl

diff --git a/test/fixtures/test-perl.pl b/test/fixtures/test-perl.pl
new file mode 100644
index 00000000..83710279
--- /dev/null
+++ b/test/fixtures/test-perl.pl
@@ -0,0 +1,2 @@
+#!/usr/bin/perl
+print "Hello, world!\n";
diff --git a/test/fixtures/test-perl2.pl b/test/fixtures/test-perl2.pl
new file mode 100644
index 00000000..55a2762c
--- /dev/null
+++ b/test/fixtures/test-perl2.pl
@@ -0,0 +1,3 @@
+
+# Perl file without shebang
+print "Hello, world!\n";
diff --git a/test/fixtures/test-prolog.pl b/test/fixtures/test-prolog.pl
new file mode 100644
index 00000000..aab83d54
--- /dev/null
+++ b/test/fixtures/test-prolog.pl
@@ -0,0 +1,12 @@
+/* Prolog test file */
+male(john).
+male(peter).
+
+female(vick).
+female(christie).
+
+parents(john, peter, christie).
+parents(vick, peter, christie).
+
+/* X is a brother of Y */
+brother(X, Y) :- male(X), parents(X, F, M), parents(Y, F, M).