KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-12-29 21:31:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

Adding Perl heuristic (and fixing up Prolog)

Browse Source
This commit is contained in:
Arfon Smith
2013-12-29 19:22:31 -08:00
parent 016f9852d6
commit 800d26cdad
2 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/linguist/heuristics.rb
View File

@@ -33,9 +33,10 @@ module Linguist
matches matches
end end
def self_disambiguate_pl(data, languages) def self.disambiguate_pl(data, languages)
matches = [] matches = []
matches << Language["Prolog"] if data.include?(":-") matches << Language["Prolog"] if data.include?(":-")
matches << Language["Perl"] if data.include?("use strict")
matches matches
end end

12
test/test_heuristics.rb
View File

@@ -38,4 +38,16 @@ class TestHeuristcs < Test::Unit::TestCase
match = Language.detect("Hello.m", fixture("Objective-C/hello.m")) match = Language.detect("Hello.m", fixture("Objective-C/hello.m"))
assert_equal Language["Objective-C"], match assert_equal Language["Objective-C"], match
end end
def test_pl_prolog_by_heuristics
languages = ["Perl", "Prolog"]
results = Heuristics.disambiguate_pl(fixture("Prolog/turing.pl"), languages)
assert_equal Language["Prolog"], results.first
end
def test_pl_perl_by_heuristics
languages = ["Perl", "Prolog"]
results = Heuristics.disambiguate_pl(fixture("Perl/perl-test.t"), languages)
assert_equal Language["Perl"], results.first
end
end end