KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2026-01-09 02:45:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add support for OpenEdge ABL language

Browse Source
This commit is contained in:
Abe Voelker
2012-02-09 09:57:50 -06:00
parent a33e7befe1
commit d32c9e88b4
7 changed files with 57 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/fixtures/latex.cls vendored Normal file
View File

@@ -0,0 +1,8 @@
% latex.cls
%
% A barebones LaTeX2e class file
\def\author{Abe Voelker}
\def\fileversion{0.1}
\NeedsTeXFormat{LaTeX2e}

10
test/fixtures/openedge.cls vendored Normal file
View File

@@ -0,0 +1,10 @@
USING Progress.Lang.*.
CLASS HelloWorld:
CONSTRUCTOR PUBLIC HelloWorld():
SUPER().
MESSAGE "Hello, world!".
END CONSTRUCTOR.
END CLASS.

1
test/fixtures/openedge.p vendored Normal file
View File

@@ -0,0 +1 @@
MESSAGE "Hello, world!".

7
test/test_blob.rb
View File

@@ -287,6 +287,10 @@ class TestBlob < Test::Unit::TestCase
assert_equal Language['Arduino'], blob("hello.ino").language
assert_nil blob("octocat.png").language
# .cls disambiguation
assert_equal Language['OpenEdge ABL'], blob("openedge.cls").language
assert_equal Language['TeX'], blob("latex.cls").language
# .pl disambiguation
assert_equal Language['Prolog'], blob("test-prolog.pl").language
assert_equal Language['Perl'], blob("test-perl.pl").language
@@ -405,6 +409,9 @@ class TestBlob < Test::Unit::TestCase
assert_equal Language['CSS'], blob("screen.sass").language.group
assert_equal Language['SCSS'], blob("screen.scss").language
assert_equal Language['CSS'], blob("screen.scss").language.group
# OpenEdge ABL / Progress
assert_equal Language['OpenEdge ABL'], blob("openedge.p").language
end
def test_lexer

7
test/test_language.rb
View File

@@ -9,6 +9,9 @@ class TestLanguage < Test::Unit::TestCase
Lexer = Pygments::Lexer
def test_ambiguous_extensions
assert Language.ambiguous?('.cls')
assert_equal Language['OpenEdge ABL'], Language.find_by_extension('cls')
assert Language.ambiguous?('.h')
assert_equal Language['C'], Language.find_by_extension('h')
@@ -53,6 +56,7 @@ class TestLanguage < Test::Unit::TestCase
assert_equal Lexer['NASM'], Language['Assembly'].lexer
assert_equal Lexer['OCaml'], Language['F#'].lexer
assert_equal Lexer['OCaml'], Language['OCaml'].lexer
assert_equal Lexer['OpenEdge ABL'], Language['OpenEdge ABL'].lexer
assert_equal Lexer['Standard ML'], Language['Standard ML'].lexer
assert_equal Lexer['Ooc'], Language['ooc'].lexer
assert_equal Lexer['REBOL'], Language['Rebol'].lexer
@@ -104,6 +108,9 @@ class TestLanguage < Test::Unit::TestCase
assert_equal Language['JavaScript'], Language.find_by_alias('js')
assert_equal Language['Literate Haskell'], Language.find_by_alias('lhs')
assert_equal Language['Literate Haskell'], Language.find_by_alias('literate-haskell')
assert_equal Language['OpenEdge ABL'], Language.find_by_alias('openedge')
assert_equal Language['OpenEdge ABL'], Language.find_by_alias('progress')
assert_equal Language['OpenEdge ABL'], Language.find_by_alias('abl')
assert_equal Language['Parrot Internal Representation'], Language.find_by_alias('pir')
assert_equal Language['Powershell'], Language.find_by_alias('posh')
assert_equal Language['Puppet'], Language.find_by_alias('puppet')