aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/data-tests.el
diff options
context:
space:
mode:
authorGlenn Morris2017-05-31 21:17:28 -0400
committerGlenn Morris2017-05-31 21:17:28 -0400
commitafcbec61147fe84504de0d329ce40031fa79075b (patch)
tree6fde89be57d8c561ddee890aee0fa42bd68e134b /test/src/data-tests.el
parent6aacd4fb09517b0dedf62333f0e27b28e8732f63 (diff)
downloademacs-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.el8
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