Fix #2555 - Remove highlights in lowercase, etc

1 files changed, 9 insertions, 1 deletions

diff --git a/test/test_highlight_placement.vader b/test/test_highlight_placement.vader
index 619a964e..87ac6073 100644
--- a/test/test_highlight_placement.vader
+++ b/test/test_highlight_placement.vader
@@ -279,6 +279,10 @@ Execute(Highlights should be cleared when ALE is disabled):
   AssertEqual [], GetMatchesWithoutIDs()
 
 Execute(Line highlights should be set when signs are disabled):
+  " This will mess with your settings, but it needs to be tested.
+  " We need to match highlights case-insenstive when removing them.
+  hi link aleerrorline spellbad
+
   let g:ale_set_signs = 0
 
   call ale#highlight#SetHighlights(bufnr(''), [
@@ -292,8 +296,12 @@ Execute(Line highlights should be set when signs are disabled):
   \   {'group': 'ALEError', 'priority': 10, 'pos1': [1, 1, 1]},
   \   {'group': 'ALEWarning', 'priority': 10, 'pos1': [2, 1, 1]},
   \   {'group': 'ALEInfo', 'priority': 10, 'pos1': [3, 1, 1]},
-  \   {'group': 'ALEErrorLine', 'priority': 10, 'pos1': [1]},
+  \   {'group': 'aleerrorline', 'priority': 10, 'pos1': [1]},
   \   {'group': 'ALEWarningLine', 'priority': 10, 'pos1': [2]},
   \   {'group': 'ALEInfoLine', 'priority': 10, 'pos1': [3]},
   \ ],
   \ GetMatchesWithoutIDs()
+
+  " All of the highlights should be removed.
+  call ale#highlight#RemoveHighlights()
+  AssertEqual [], GetMatchesWithoutIDs()