From 0a20357d4585da91d92252972f3eb7b715ff64ab Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Mon, 1 Jul 2024 21:26:30 -0500
Subject: initial commit

---
 vim/pack/downloads/opt/lsp/test/runner.vim | 55 ++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 vim/pack/downloads/opt/lsp/test/runner.vim

(limited to 'vim/pack/downloads/opt/lsp/test/runner.vim')

diff --git a/vim/pack/downloads/opt/lsp/test/runner.vim b/vim/pack/downloads/opt/lsp/test/runner.vim
new file mode 100644
index 0000000..14c849a
--- /dev/null
+++ b/vim/pack/downloads/opt/lsp/test/runner.vim
@@ -0,0 +1,55 @@
+vim9script
+# Script to run a language server unit tests
+# The global variable TestName should be set to the name of the file
+# containing the tests.
+
+source common.vim
+
+def LspRunTests()
+  :set nomore
+  :set debug=beep
+  delete('results.txt')
+
+  # Get the list of test functions in this file and call them
+  var fns: list<string> = execute('function /^Test_')
+		    ->split("\n")
+		    ->map("v:val->substitute('^def ', '', '')")
+		    ->sort()
+  if fns->empty()
+    # No tests are found
+    writefile(['No tests are found'], 'results.txt')
+    return
+  endif
+  for f in fns
+    v:errors = []
+    v:errmsg = ''
+    try
+      :%bw!
+      exe $'g:{f}'
+    catch
+      call add(v:errors, $'Error: Test {f} failed with exception {v:exception} at {v:throwpoint}')
+    endtry
+    if v:errmsg != ''
+      call add(v:errors, $'Error: Test {f} generated error {v:errmsg}')
+    endif
+    if !v:errors->empty()
+      writefile(v:errors, 'results.txt', 'a')
+      writefile([$'{f}: FAIL'], 'results.txt', 'a')
+    else
+      writefile([$'{f}: pass'], 'results.txt', 'a')
+    endif
+  endfor
+enddef
+
+try
+  g:LoadLspPlugin()
+  exe $'source {g:TestName}'
+  g:StartLangServer()
+  LspRunTests()
+catch
+  writefile(['FAIL: Tests in ' .. g:TestName .. ' failed with exception ' .. v:exception .. ' at ' .. v:throwpoint], 'results.txt', 'a')
+endtry
+
+qall!
+
+# vim: shiftwidth=2 softtabstop=2 noexpandtab
-- 
cgit v1.2.3