2626
2727(require 'lsp-mode )
2828(require 'lsp-sonarlint )
29+ (load-file (expand-file-name " lsp-sonarlint-test-utils.el"
30+ (file-name-directory (or load-file-name (buffer-file-name )))))
2931
3032(defun lsp-sonarlint--wait-for (predicate hook timeout )
3133 " Register PREDICATE to run on HOOK, and wait until it returns t.
@@ -100,18 +102,6 @@ only works for specific textDocument/didOpen:languageId."
100102 " Extract the code of each of ISSUES."
101103 (sort (mapcar (lambda (issue ) (gethash " code" issue)) issues) #'string-lessp ))
102104
103-
104- (defun lsp-sonarlint--fixtures-dir ()
105- " Directory of the test fixtures for these tests."
106- (concat
107- (file-name-directory
108- (directory-file-name (file-name-directory (symbol-file #'lsp-sonarlint--fixtures-dir ))))
109- " fixtures/" ))
110-
111- (defun lsp-sonarlint--sample-file (fname )
112- " Get the full path of the sample file FNAME."
113- (concat (lsp-sonarlint--fixtures-dir) fname))
114-
115105(defun lsp-sonarlint--get-all-issue-codes (sample-filename &optional major-mode )
116106 " Get all SonarLint issue-codes for given SAMPLE-FILENAME.
117107This functions takes some time to wait for the LSP mode to init
@@ -120,7 +110,7 @@ MAJOR-MODE specifies the major mode enabled to trigger the analysis.
120110Some analyzers like cfamily require specific major-modes.
121111If nil, use python-mode by default."
122112 (lsp-sonarlint--exec-with-diags
123- (lsp-sonarlint-- sample-file sample-filename)
113+ (lsp-sonarlint-sample-file sample-filename)
124114 (lambda (diags )
125115 (lsp-sonarlint--get-codes-of-issues diags))
126116 (if major-mode major-mode 'python-mode )))
@@ -208,7 +198,7 @@ If nil, use python-mode by default."
208198(ert-deftest lsp-sonarlint-display-rule-descr-test ()
209199 " Check whether you can display rule description for a SonarLint issue."
210200 (lsp-sonarlint--exec-with-diags
211- (lsp-sonarlint-- sample-file " sample.py" )
201+ (lsp-sonarlint-sample-file " sample.py" )
212202 (lambda (diags )
213203 (lsp-sonarlint--go-to-first-diag diags)
214204 (let ((descr-action (lsp-sonarlint--find-descr-action-at-point)))
0 commit comments