diff options
| author | Glenn Morris | 2017-05-31 21:17:28 -0400 |
|---|---|---|
| committer | Glenn Morris | 2017-05-31 21:17:28 -0400 |
| commit | afcbec61147fe84504de0d329ce40031fa79075b (patch) | |
| tree | 6fde89be57d8c561ddee890aee0fa42bd68e134b /test/src/data-tests.el | |
| parent | 6aacd4fb09517b0dedf62333f0e27b28e8732f63 (diff) | |
| download | emacs-afcbec61147fe84504de0d329ce40031fa79075b.tar.gz emacs-afcbec61147fe84504de0d329ce40031fa79075b.zip | |
Quieten compilation of some test files
* test/lisp/dired-tests.el (dired-test-bug25609): Mark unused args.
* test/src/data-tests.el (binding-test-set-constant-t)
(binding-test-set-constant-nil, binding-test-set-constant-keyword)
(binding-test-set-constant-nil): Silence compiler.
* test/src/regex-tests.el (regex-tests-BOOST): Escape char literal.
Diffstat (limited to 'test/src/data-tests.el')
| -rw-r--r-- | test/src/data-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index 8caafc11c2f..00a30559e32 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el | |||
| @@ -338,19 +338,19 @@ comparing the subr with a much slower lisp implementation." | |||
| 338 | 338 | ||
| 339 | (ert-deftest binding-test-set-constant-t () | 339 | (ert-deftest binding-test-set-constant-t () |
| 340 | "Test setting the constant t" | 340 | "Test setting the constant t" |
| 341 | (should-error (setq t 'bob) :type 'setting-constant)) | 341 | (with-no-warnings (should-error (setq t 'bob) :type 'setting-constant))) |
| 342 | 342 | ||
| 343 | (ert-deftest binding-test-set-constant-nil () | 343 | (ert-deftest binding-test-set-constant-nil () |
| 344 | "Test setting the constant nil" | 344 | "Test setting the constant nil" |
| 345 | (should-error (setq nil 'bob) :type 'setting-constant)) | 345 | (with-no-warnings (should-error (setq nil 'bob) :type 'setting-constant))) |
| 346 | 346 | ||
| 347 | (ert-deftest binding-test-set-constant-keyword () | 347 | (ert-deftest binding-test-set-constant-keyword () |
| 348 | "Test setting a keyword constant" | 348 | "Test setting a keyword constant" |
| 349 | (should-error (setq :keyword 'bob) :type 'setting-constant)) | 349 | (with-no-warnings (should-error (setq :keyword 'bob) :type 'setting-constant))) |
| 350 | 350 | ||
| 351 | (ert-deftest binding-test-set-constant-nil () | 351 | (ert-deftest binding-test-set-constant-nil () |
| 352 | "Test setting a keyword to itself" | 352 | "Test setting a keyword to itself" |
| 353 | (should (setq :keyword :keyword))) | 353 | (with-no-warnings (should (setq :keyword :keyword)))) |
| 354 | 354 | ||
| 355 | ;; More tests to write - | 355 | ;; More tests to write - |
| 356 | ;; kill-local-variable | 356 | ;; kill-local-variable |