1 files changed, 130 insertions, 0 deletions
diff --git a/tests/lexers/openedge/example.txt b/tests/lexers/openedge/example.txt
new file mode 100644
index 00000000..4c2a3b7b
--- /dev/null
+++ b/tests/lexers/openedge/example.txt
@@ -0,0 +1,130 @@
+---input---
+USING Progress.Lang.*.
+
+CLASS Test INHERITS Progress.Sucks:
+
+  DEFINE PRIVATE VARIABLE cTest AS CHAR NO-UNDO.
+
+  CONSTRUCTOR PUBLIC Test():
+    SUPER().
+    MESSAGE "Why are you punishing yourself by coding in this language?".
+  END CONSTRUCTOR.
+
+  METHOD PUBLIC LOGICAL Blowup(INPUT iTime AS INT):
+  END.
+
+END CLASS.
+
+---tokens---
+'USING'       Name.Builtin
+' '           Text
+'Progress'    Name.Builtin
+'.'           Punctuation
+'L'           Name.Variable
+'a'           Name.Variable
+'n'           Name.Variable
+'g'           Name.Variable
+'.'           Punctuation
+'*'           Operator
+'.'           Punctuation
+'\n\n'        Text
+
+'CLASS'       Name.Builtin
+' '           Text
+'T'           Name.Variable
+'e'           Name.Variable
+'s'           Name.Variable
+'t'           Name.Variable
+' '           Text
+'INHERITS'    Name.Builtin
+' '           Text
+'Progress'    Name.Builtin
+'.'           Punctuation
+'S'           Name.Variable
+'u'           Name.Variable
+'c'           Name.Variable
+'k'           Name.Variable
+'s'           Name.Variable
+':'           Punctuation
+'\n\n  '      Text
+'DEFINE'      Keyword.Declaration
+' '           Text
+'PRIVATE'     Name.Builtin
+' '           Text
+'VARIABLE'    Name.Builtin
+' '           Text
+'c'           Name.Variable
+'T'           Name.Variable
+'e'           Name.Variable
+'s'           Name.Variable
+'t'           Name.Variable
+' '           Text
+'AS'          Name.Builtin
+' '           Text
+'CHAR'        Keyword.Type
+' '           Text
+'NO-UNDO'     Name.Builtin
+'.'           Punctuation
+'\n\n  '      Text
+'CONSTRUCTOR' Name.Builtin
+' '           Text
+'PUBLIC'      Name.Builtin
+' '           Text
+'T'           Name.Variable
+'e'           Name.Variable
+'s'           Name.Variable
+'t'           Name.Variable
+'('           Punctuation
+')'           Punctuation
+':'           Punctuation
+'\n    '      Text
+'SUPER'       Name.Builtin
+'('           Punctuation
+')'           Punctuation
+'.'           Punctuation
+'\n    '      Text
+'MESSAGE '    Name.Builtin
+'"Why are you punishing yourself by coding in this language?"' Literal.String.Double
+'.'           Punctuation
+'\n  '        Text
+'END'         Name.Builtin
+' '           Text
+'CONSTRUCTOR' Name.Builtin
+'.'           Punctuation
+'\n\n  '      Text
+'METHOD'      Name.Builtin
+' '           Text
+'PUBLIC'      Name.Builtin
+' '           Text
+'LOGICAL'     Keyword.Type
+' '           Text
+'B'           Name.Variable
+'l'           Name.Variable
+'o'           Name.Variable
+'w'           Name.Variable
+'u'           Name.Variable
+'p'           Name.Variable
+'('           Punctuation
+'INPUT'       Name.Builtin
+' '           Text
+'i'           Name.Variable
+'T'           Name.Variable
+'i'           Name.Variable
+'m'           Name.Variable
+'e'           Name.Variable
+' '           Text
+'AS'          Name.Builtin
+' '           Text
+'INT'         Keyword.Type
+')'           Punctuation
+':'           Punctuation
+'\n  '        Text
+'END'         Name.Builtin
+'.'           Punctuation
+'\n\n'        Text
+
+'END'         Name.Builtin
+' '           Text
+'CLASS'       Name.Builtin
+'.'           Punctuation
+'\n'          Text