.vim/bundle/vim-lsp/test/lsp/internal/show_message.vimspec

   1 let s:Error = 1
   2 let s:Warn = 2
   3 let s:Info = 3
   4 let s:Log = 4
   5
   6 function! s:response(type, message) abort
   7     return {
   8         \   'server': 'server1',
   9         \   'response': {
  10         \       'method': 'window/showMessage',
  11         \       'params': {
  12         \           'type': a:type,
  13         \           'message': a:message
  14         \       }
  15         \   }
  16         \ }
  17 endfunction
  18
  19 Describe lsp#internal#show_message
  20     Before
  21         %bwipeout!
  22         let g:lsp_show_message_log_level = 'warning'
  23         call lsp#internal#show_message#_disable()
  24         call lsp#internal#show_message#_enable()
  25     End
  26
  27     After all
  28         %bwipeout!
  29         let g:lsp_show_message_log_level = 'none'
  30         call lsp#internal#show_message#_disable()
  31     End
  32
  33     It should show all messages when 'log' is set to g:lsp_show_message_log_level
  34         let g:lsp_show_message_log_level = 'log'
  35
  36         redir => message_area
  37             call lsp#stream(1, s:response(s:Error, 'error message'))
  38             call lsp#stream(1, s:response(s:Warn, 'warn message'))
  39             call lsp#stream(1, s:response(s:Info, 'info message'))
  40             call lsp#stream(1, s:response(s:Log, 'log message'))
  41             call lsp#stream(1, s:response(s:Info, 'info message2'))
  42             call lsp#stream(1, s:response(s:Info, 'info message3'))
  43         redir END
  44
  45         Assert Match(message_area, 'server1: error: error message')
  46         Assert Match(message_area, 'server1: warning: warn message')
  47         Assert Match(message_area, 'server1: info: info message')
  48         Assert Match(message_area, 'server1: log: log message')
  49         Assert Match(message_area, 'server1: info: info message2')
  50         Assert Match(message_area, 'server1: info: info message3')
  51     End
  52
  53     It should filter shown messages by log level set to g:lsp_show_message_log_level
  54         let g:lsp_show_message_log_level = 'warning'
  55
  56         redir => message_area
  57             call lsp#stream(1, s:response(s:Error, 'error message'))
  58             call lsp#stream(1, s:response(s:Warn, 'warn message'))
  59             call lsp#stream(1, s:response(s:Info, 'info message'))
  60             call lsp#stream(1, s:response(s:Log, 'log message'))
  61             call lsp#stream(1, s:response(s:Info, 'info message2'))
  62             call lsp#stream(1, s:response(s:Info, 'info message3'))
  63         redir END
  64
  65         Assert Match(message_area, 'server1: error: error message')
  66         Assert Match(message_area, 'server1: warning: warn message')
  67         Assert NotMatch(message_area, 'server1: info: info message')
  68         Assert NotMatch(message_area, 'server1: log: log message')
  69         Assert NotMatch(message_area, 'server1: info: info message2')
  70         Assert NotMatch(message_area, 'server1: info: info message3')
  71     End
  72
  73     It should show no message when 'none' is set to g:lsp_show_message_log_level
  74         let g:lsp_show_message_log_level = 'none'
  75
  76         redir => message_area
  77             call lsp#stream(1, s:response(s:Error, 'error message'))
  78             call lsp#stream(1, s:response(s:Warn, 'warn message'))
  79             call lsp#stream(1, s:response(s:Info, 'info message'))
  80             call lsp#stream(1, s:response(s:Log, 'log message'))
  81             call lsp#stream(1, s:response(s:Info, 'info message2'))
  82             call lsp#stream(1, s:response(s:Info, 'info message3'))
  83         redir END
  84
  85         Assert NotMatch(message_area, 'server1: error: error message')
  86         Assert NotMatch(message_area, 'server1: warning: warn message')
  87         Assert NotMatch(message_area, 'server1: info: info message')
  88         Assert NotMatch(message_area, 'server1: log: log message')
  89         Assert NotMatch(message_area, 'server1: info: info message2')
  90         Assert NotMatch(message_area, 'server1: info: info message3')
  91     End
  92 End