mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases 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
Show Stats 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)))
(ert-deftest use-package-test-recognize-function ()
(should (use-package--recognize-function nil t))
(should-not (use-package--recognize-function nil))
(should (use-package--recognize-function t))
(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 nil t))
(should-not (use-package-recognize-function nil))
(should (use-package-recognize-function t))
(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-not (use-package--recognize-function 1))
(should-not (use-package--recognize-function "Hello"))
(should-not (use-package--recognize-function '(nil . nil))))
(should-not (use-package-recognize-function 1))
(should-not (use-package-recognize-function "Hello"))
(should-not (use-package-recognize-function '(nil . nil))))
(ert-deftest use-package-test-normalize-function ()
(should (equal (use-package--normalize-function nil) nil))
(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 (lambda () ...)) (lambda () ...)))
(should (equal (use-package--normalize-function '(lambda () ...)) (lambda () ...)))
(should (equal (use-package--normalize-function #'(lambda () ...)) (lambda () ...)))
(should (equal (use-package-normalize-function nil) nil))
(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 (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 "Hello") "Hello"))
(should (equal (use-package--normalize-function '(nil . nil)) '(nil . nil))))
(should (equal (use-package-normalize-function 1) 1))
(should (equal (use-package-normalize-function "Hello") "Hello"))
(should (equal (use-package-normalize-function '(nil . nil)) '(nil . nil))))
(ert-deftest use-package-test/:disabled-1 ()
(match-expansion
@ -953,7 +953,7 @@
`(funcall ,_)))
(progn
(eval-after-load 'bow
`(funcall ,use-package--next142993))
`(funcall ,_))
(eval-after-load 'baz
`(funcall ,_))))))))