mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-12-31 22:46:18 +00:00
Included test files for .pl disambiguation
This commit is contained in:
2
test/fixtures/test-perl.pl
vendored
Normal file
2
test/fixtures/test-perl.pl
vendored
Normal file
@@ -0,0 +1,2 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
print "Hello, world!\n";
|
||||||
3
test/fixtures/test-perl2.pl
vendored
Normal file
3
test/fixtures/test-perl2.pl
vendored
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
|
||||||
|
# Perl file without shebang
|
||||||
|
print "Hello, world!\n";
|
||||||
12
test/fixtures/test-prolog.pl
vendored
Normal file
12
test/fixtures/test-prolog.pl
vendored
Normal file
@@ -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).
|
||||||
Reference in New Issue
Block a user