diff options
| author | Wilfred Hughes <me@wilfred.me.uk> | 2021-12-10 22:49:12 -0800 |
|---|---|---|
| committer | Wilfred Hughes <me@wilfred.me.uk> | 2021-12-10 22:49:12 -0800 |
| commit | dd806b8f04bcaca725a481b0b4a9bda384e570a6 (patch) | |
| tree | 72ad5e9b88270df13bb0bf33aaeec6922bae3ba4 /test | |
| parent | 4f4d14028f38b1dde3d5821b6f5ea39cabae1030 (diff) | |
Fix warnings on unused vars in test suite
Diffstat (limited to 'test')
| -rw-r--r-- | test/helpful-unit-test.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/helpful-unit-test.el b/test/helpful-unit-test.el index 2f9a43c..4e87efe 100644 --- a/test/helpful-unit-test.el +++ b/test/helpful-unit-test.el @@ -417,7 +417,7 @@ variables defined without `defvar'." ;; Emacs instance. (skip-unless (null (get-buffer "python.el.gz"))) - (-let [(buf pos opened) (helpful--definition 'python-indent-offset nil)] + (-let [(buf _pos opened) (helpful--definition 'python-indent-offset nil)] (should (bufferp buf)) (should opened))) @@ -435,7 +435,7 @@ variables defined without `defvar'." (lambda (_format-string &rest _args)))) (eval (eval-sexp-add-defvars (edebug-read-top-level-form)) t)) - (-let [(buf pos opened) (helpful--definition 'test-foo-edebug-defn t)] + (-let [(buf _pos _opened) (helpful--definition 'test-foo-edebug-defn t)] (should buf)))))) (ert-deftest helpful--definition-defstruct () @@ -764,14 +764,14 @@ in." (c . (11)))))) (ert-deftest helpful--source () - (-let* (((buf pos opened) (helpful--definition #'helpful--source t)) + (-let* (((buf pos _opened) (helpful--definition #'helpful--source t)) (source (helpful--source #'helpful--source t buf pos))) (should (s-starts-with-p "(defun " source)))) (ert-deftest helpful--source-autoloaded () "We should include the autoload cookie." - (-let* (((buf pos opened) (helpful--definition #'helpful-at-point t)) + (-let* (((buf pos _opened) (helpful--definition #'helpful-at-point t)) (source (helpful--source #'helpful-at-point t buf pos))) (should (s-starts-with-p ";;;###autoload" source)))) @@ -780,7 +780,7 @@ in." "We should return the raw sexp for functions where we can't find the source code." (eval '(defun test-foo-defined-interactively () 42)) - (-let* (((buf pos opened) (helpful--definition #'test-foo-defined-interactively t))) + (-let* (((buf pos _opened) (helpful--definition #'test-foo-defined-interactively t))) (should (not (null |