From 3e561b40c1c4f4c53064409e75aa14c4e478e425 Mon Sep 17 00:00:00 2001 From: mparnisari Date: Mon, 28 May 2018 23:04:48 -0700 Subject: [PATCH] Add supported .t extension for Perl --- lib/rouge/lexers/perl.rb | 2 +- spec/lexers/perl_spec.rb | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/rouge/lexers/perl.rb b/lib/rouge/lexers/perl.rb index af0386fd2b..b5c42095e4 100644 --- a/lib/rouge/lexers/perl.rb +++ b/lib/rouge/lexers/perl.rb @@ -9,7 +9,7 @@ class Perl < RegexLexer tag 'perl' aliases 'pl' - filenames '*.pl', '*.pm' + filenames '*.pl', '*.pm', '*.t' mimetypes 'text/x-perl', 'application/x-perl' def self.detect?(text) diff --git a/spec/lexers/perl_spec.rb b/spec/lexers/perl_spec.rb index 71742da6a5..31ee119817 100644 --- a/spec/lexers/perl_spec.rb +++ b/spec/lexers/perl_spec.rb @@ -10,6 +10,7 @@ # *.pl needs source hints because it's also used by Prolog assert_guess :filename => 'foo.pl', :source => 'my $foo = 1' assert_guess :filename => 'foo.pm' + assert_guess :filename => 'test.t' end it 'guesses by mimetype' do