]> git.eshelyaron.com Git - emacs.git/commitdiff
More variable renaming needed in the tests
authorJohn Wiegley <johnw@newartisans.com>
Sun, 3 Dec 2017 19:00:41 +0000 (11:00 -0800)
committerJohn Wiegley <johnw@newartisans.com>
Sun, 3 Dec 2017 19:00:41 +0000 (11:00 -0800)
test/lisp/use-package/use-package-tests.el

index 14e8bcd3dd5fba9ca5b317ff01e34ae9f913c8aa..13ca070b4f7fecd03be5e1506ec888727b4dea9b 100644 (file)
   (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-not (use-package--recognize-function 1))
-  (should-not (use-package--recognize-function "Hello"))
-  (should-not (use-package--recognize-function '(nil . nil))))
+  (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))))
 
 (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 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 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))))
 
 (ert-deftest use-package-test/:disabled-1 ()
   (match-expansion
                `(funcall ,_)))
           (progn
             (eval-after-load 'bow
-              `(funcall ,use-package--next142993))
+              `(funcall ,_))
             (eval-after-load 'baz
               `(funcall ,_))))))))