Adding Perl/Perl6 heuristic for '.t'

lib/linguist/heuristics.rb

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

test/test_heuristics.rb

@@ -66,6 +66,16 @@ class TestHeuristcs < Minitest::Test
     })
   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"]
   def test_ecl_by_heuristics
     assert_heuristics({