KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Adding Perl/Perl6 heuristic for '.t'

Browse Source
This commit is contained in:
Arfon Smith
2015-08-20 10:16:52 +01:00
parent 0624a9395c
commit a74f3b3e46
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/linguist/heuristics.rb
View File

@@ -33,7 +33,7 @@ module Linguist
# #
# Examples # Examples
# #
# disambiguate "Perl", "Prolog" do |data| # disambiguate ".pm" do |data|
# if data.include?("use strict") # if data.include?("use strict")
# Language["Perl"] # Language["Perl"]
# elsif /^[^#]+:-/.match(data) # elsif /^[^#]+:-/.match(data)
@@ -102,7 +102,7 @@ module Linguist
end end
end end
disambiguate ".pm" do |data| disambiguate ".pm", ".t" do |data|
if /^(use v6|(my )?class|module)/.match(data) if /^(use v6|(my )?class|module)/.match(data)
Language["Perl6"] Language["Perl6"]
elsif /use strict|use\s+v?5\./.match(data) elsif /use strict|use\s+v?5\./.match(data)

10
test/test_heuristics.rb
View File

@@ -66,6 +66,16 @@ class TestHeuristcs < Minitest::Test
}) })
end end
# Candidate languages = ["Perl", "Perl6"]
def test_t_perl_by_heuristics
assert_heuristics({
"Perl" => all_fixtures("Perl", "*.t"),
"Perl6" => ["Perl6/01-dash-uppercase-i.t", "Perl6/01-parse.t", "Perl6/advent2009-day16.t",
"Perl6/basic-open.t", "Perl6/calendar.t", "Perl6/for.t", "Perl6/hash.t",
"Perl6/listquote-whitespace.t"]
})
end
# Candidate languages = ["ECL", "ECLiPSe"] # Candidate languages = ["ECL", "ECLiPSe"]
def test_ecl_by_heuristics def test_ecl_by_heuristics
assert_heuristics({ assert_heuristics({