mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

More variable renaming needed in the tests

Browse source
This commit is contained in:
John Wiegley 2017-12-03 11:00:41 -08:00
parent 149c4878fc
commit 3625b3f712
1 changed files with 22 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

44
test/lisp/use-package/use-package-tests.el
View file

@ -96,31 +96,31 @@
(setplist 'flet (plist-delete (symbol-plist 'flet) 'byte-obsolete-info))) (setplist 'flet (plist-delete (symbol-plist 'flet) 'byte-obsolete-info)))
(ert-deftest use-package-test-recognize-function () (ert-deftest use-package-test-recognize-function ()
(should (use-package--recognize-function nil t)) (should (use-package-recognize-function nil t))
(should-not (use-package--recognize-function nil)) (should-not (use-package-recognize-function nil))
(should (use-package--recognize-function t)) (should (use-package-recognize-function t))
(should (use-package--recognize-function 'sym)) (should (use-package-recognize-function 'sym))
(should (use-package--recognize-function #'sym)) (should (use-package-recognize-function #'sym))
(should (use-package--recognize-function (lambda () ...))) (should (use-package-recognize-function (lambda () ...)))
(should (use-package--recognize-function '(lambda () ...))) (should (use-package-recognize-function '(lambda () ...)))
(should (use-package--recognize-function #'(lambda () ...))) (should (use-package-recognize-function #'(lambda () ...)))
(should-not (use-package--recognize-function 1)) (should-not (use-package-recognize-function 1))
(should-not (use-package--recognize-function "Hello")) (should-not (use-package-recognize-function "Hello"))
(should-not (use-package--recognize-function '(nil . nil)))) (should-not (use-package-recognize-function '(nil . nil))))
(ert-deftest use-package-test-normalize-function () (ert-deftest use-package-test-normalize-function ()
(should (equal (use-package--normalize-function nil) nil)) (should (equal (use-package-normalize-function nil) nil))
(should (equal (use-package--normalize-function t) t)) (should (equal (use-package-normalize-function t) t))
(should (equal (use-package--normalize-function 'sym) 'sym)) (should (equal (use-package-normalize-function 'sym) 'sym))
(should (equal (use-package--normalize-function #'sym) 'sym)) (should (equal (use-package-normalize-function #'sym) 'sym))
(should (equal (use-package--normalize-function (lambda () ...)) (lambda () ...))) (should (equal (use-package-normalize-function (lambda () ...)) (lambda () ...)))
(should (equal (use-package--normalize-function '(lambda () ...)) (lambda () ...))) (should (equal (use-package-normalize-function '(lambda () ...)) (lambda () ...)))
(should (equal (use-package--normalize-function #'(lambda () ...)) (lambda () ...))) (should (equal (use-package-normalize-function #'(lambda () ...)) (lambda () ...)))
(should (equal (use-package--normalize-function 1) 1)) (should (equal (use-package-normalize-function 1) 1))
(should (equal (use-package--normalize-function "Hello") "Hello")) (should (equal (use-package-normalize-function "Hello") "Hello"))
(should (equal (use-package--normalize-function '(nil . nil)) '(nil . nil)))) (should (equal (use-package-normalize-function '(nil . nil)) '(nil . nil))))
(ert-deftest use-package-test/:disabled-1 () (ert-deftest use-package-test/:disabled-1 ()
(match-expansion (match-expansion
@ -953,7 +953,7 @@
`(funcall ,_))) `(funcall ,_)))
(progn (progn
(eval-after-load 'bow (eval-after-load 'bow
`(funcall ,use-package--next142993)) `(funcall ,_))
(eval-after-load 'baz (eval-after-load 'baz
`(funcall ,_)))))))) `(funcall ,_))))))))