diff options
| author | Axel Forsman <axel@axelf.se> | 2023-08-06 21:58:29 +0200 |
|---|---|---|
| committer | Axel Forsman <axel@axelf.se> | 2023-08-07 19:24:35 +0200 |
| commit | 27d81ad406d2d3e07591b927357d2354ef5b5c65 (patch) | |
| tree | ff798c83a34b32172cfafdd4af8bcfc21583e692 /evil-tests.el | |
| parent | 44c7f301468c264a781be4ee8ae879fe1b457e60 (diff) | |
Avoid eval in evil-test-buffer
Whatever is returned by the macro will be evaluated anyway. This fixes
errors due to lexical-binding now being enabled in evil-tests.
Diffstat (limited to 'evil-tests.el')
| -rw-r--r-- | evil-tests.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/evil-tests.el b/evil-tests.el index 58d530d..b043762 100644 --- a/evil-tests.el +++ b/evil-tests.el @@ -9474,26 +9474,26 @@ parameter set." (evil-with-temp-file file-name "" (evil-test-buffer (vconcat "i" file-name [escape]) - (should (not (equal file-name (buffer-file-name (current-buffer))))) + (should (not (equal file-name (buffer-file-name)))) ("gf") - (should (equal file-name (buffer-file-name (current-buffer))))))) + (should (equal file-name (buffer-file-name)))))) (ert-info ("Find file at point (visual state)") (evil-with-temp-file file-name "" (evil-test-buffer (vconcat "iuser@localhost:" file-name "$" [escape]) - (should (not (equal file-name (buffer-file-name (current-buffer))))) + (should (not (equal file-name (buffer-file-name)))) ("0f:lvt$gf") - (should (equal file-name (buffer-file-name (current-buffer))))))) + (should (equal file-name (buffer-file-name)))))) (ert-info ("Find file at point with line number") (let* ((line-number 3) (file-content (make-string (* 2 line-number) ?\n))) (evil-with-temp-file file-name (insert file-content) (evil-test-buffer (vconcat "i" file-name (format ":%d" line-number) [escape]) - (should (and (not (equal file-name (buffer-file-name (current-buffer)))) + (should (and (not (equal file-name (buffer-file-name))) (not (equal line-number (line-number-at-pos))))) ("gF") - (should (and (equal file-name (buffer-file-name (current-buffer))) + (should (and (equal file-name (buffer-file-name)) (equal line-number (line-number-at-pos)))))))) (ert-info ("Find file at point with line and column numbers") (let* ((line-number 3) @@ -9505,11 +9505,11 @@ parameter set." (evil-with-temp-file file-name (insert file-content) (evil-test-buffer (vconcat "i" file-name (format ":%d:%d" line-number column-number) [escape]) - (should (and (not (equal file-name (buffer-file-name (current-buffer)))) + (should (and (not (equal file-name (buffer-file-name))) (not (equal line-number (line-number-at-pos))) (not (equal column-number (current-column))))) ("gF") - (should (and (equal file-name (buffer-file-name (current-buffer))) + (should (and (equal file-name (buffer-file-name)) (equal line-number (line-number-at-pos)) (equal column-number (1+ (current-column)))))))))) |