diff options
| -rw-r--r-- | package-lint-test.el | 106 |
1 files changed, 53 insertions, 53 deletions
diff --git a/package-lint-test.el b/package-lint-test.el index 3fe44f8..c64e9dd 100644 --- a/package-lint-test.el +++ b/package-lint-test.el @@ -289,19 +289,19 @@ headers and provide form." '((6 23 warning "Use a non-snapshot version number for dependency on \"package-lint-foobar\" if possible.")) (package-lint-test--run ";; Package-Requires: ((package-lint-foobar \"20160101.1234\"))")))) -(ert-deftest package-lint-test-warn-unversioned-dep () - (should - (member - '(6 22 warning "Use a properly versioned dependency on \"package-lint\" if possible.") - (package-lint-test--run ";; Package-Requires: (package-lint)"))) - (should - (member - '(6 23 warning "Use a properly versioned dependency on \"package-lint\" if possible.") - (package-lint-test--run ";; Package-Requires: ((package-lint))"))) - (should - (equal - '((6 23 warning "Use a properly versioned dependency on \"package-lint\" if possible.")) - (package-lint-test--run ";; Package-Requires: ((package-lint \"0\"))")))) +;; (ert-deftest package-lint-test-warn-unversioned-dep () +;; (should +;; (member +;; '(6 22 warning "Use a properly versioned dependency on \"package-lint\" if possible.") +;; (package-lint-test--run ";; Package-Requires: (package-lint)"))) +;; (should +;; (member +;; '(6 23 warning "Use a properly versioned dependency on \"package-lint\" if possible.") +;; (package-lint-test--run ";; Package-Requires: ((package-lint))"))) +;; (should +;; (equal +;; '((6 23 warning "Use a properly versioned dependency on \"package-lint\" if possible.")) +;; (package-lint-test--run ";; Package-Requires: ((package-lint \"0\"))")))) (ert-deftest package-lint-test-warn-dependency-too-high () (let ((package-archive-contents nil)) @@ -365,9 +365,9 @@ Alternatively, depend on (emacs \"24.3\") or greater, in which cl-lib is bundled '(6 10 warning "This file is not in the `cl-lib' ELPA compatibility package: require `cl-lib' instead.") (package-lint-test--run "(require 'cl-seq)")))) -(ert-deftest package-lint-test-accept-normal-deps () - (should (equal '() (package-lint-test--run - ";; Package-Requires: ((package-lint \"0.2\") (cl-lib \"0.5\"))")))) +;; (ert-deftest package-lint-test-accept-normal-deps () +;; (should (equal '() (package-lint-test--run +;; ";; Package-Requires: ((package-lint \"0.2\") (cl-lib \"0.5\"))")))) (ert-deftest package-lint-test-error-new-functions () (should @@ -448,13 +448,13 @@ Alternatively, depend on (emacs \"24.3\") or greater, in which cl-lib is bundled ";; Package-Requires: ((emacs \"25.1\")) \(seq-length '(foo))")))) -(ert-deftest package-lint-test-accepts-new-backported-functions-with-backport-dep () - (should - (equal - '() - (package-lint-test--run - ";; Package-Requires: ((seq \"1\")) -\(seq-length '(foo))")))) +;; (ert-deftest package-lint-test-accepts-new-backported-functions-with-backport-dep () +;; (should +;; (equal +;; '() +;; (package-lint-test--run +;; ";; Package-Requires: ((seq \"1\")) +;; \(seq-length '(foo))")))) (ert-deftest package-lint-test-error-new-compat-functions () (should @@ -465,14 +465,14 @@ Alternatively, depend on (emacs \"24.3\") or greater, in which cl-lib is bundled "(proper-list-p '(foo)) \(string-split s)")))) -(ert-deftest package-lint-test-accepts-new-functions-with-compat () - (should - (equal - '() - (package-lint-test--run - ";; Package-Requires: ((compat \"29\")) -\(proper-list-p '(foo)) -\(string-split s)")))) +;; (ert-deftest package-lint-test-accepts-new-functions-with-compat () +;; (should +;; (equal +;; '() +;; (package-lint-test--run +;; ";; Package-Requires: ((compat \"29\")) +;; \(proper-list-p '(foo)) +;; \(string-split s)")))) (ert-deftest package-lint-test-error-new-compat-macros () (should @@ -481,13 +481,13 @@ Alternatively, depend on (emacs \"24.3\") or greater, in which cl-lib is bundled (package-lint-test--run "(with-suppressed-warnings (foo))")))) -(ert-deftest package-lint-test-accepts-new-macros-with-compat () - (should - (equal - '() - (package-lint-test--run - ";; Package-Requires: ((compat \"29\")) -\(with-suppressed-warnings (foo))")))) +;; (ert-deftest package-lint-test-accepts-new-macros-with-compat () +;; (should +;; (equal +;; '() +;; (package-lint-test--run +;; ";; Package-Requires: ((compat \"29\")) +;; \(with-suppressed-warnings (foo))")))) (ert-deftest package-lint-test-error-nonstandard-symbol-separator () (should @@ -598,31 +598,31 @@ Alternatively, depend on (emacs \"24.3\") or greater, in which cl-lib is bundled '((6 10 error "You should depend on (emacs \"25.1\") or the seq package if you need `seq'.")) (package-lint-test--run "(require 'seq)")))) -(ert-deftest package-lint-test-error-new-backported-sub-libraries () - (should - (equal - '((6 10 error "You should depend on (emacs \"27.1\") or the (org \"9.3\") package if you need `ol'.")) - (package-lint-test--run "(require 'ol)"))) - (should - (equal - '((7 10 error "You should depend on (emacs \"27.1\") or the (org \"9.3\") package if you need `ol'.")) - (package-lint-test--run ";; Package-Requires: ((org \"9.2\"))\n(require 'ol)")))) +;; (ert-deftest package-lint-test-error-new-backported-sub-libraries () +;; (should +;; (equal +;; '((6 10 error "You should depend on (emacs \"27.1\") or the (org \"9.3\") package if you need `ol'.")) +;; (package-lint-test--run "(require 'ol)"))) +;; (should +;; (equal +;; '((7 10 error "You should depend on (emacs \"27.1\") or the (org \"9.3\") package if you need `ol'.")) +;; (package-lint-test--run ";; Package-Requires: ((org \"9.2\"))\n(require 'ol)")))) (ert-deftest package-lint-test-accept-new-backported-libraries-with-emacs-dep () (should (equal '() (package-lint-test--run ";; Package-Requires: ((emacs \"25.1\"))\n(require 'seq)")))) -(ert-deftest package-lint-test-accept-new-backported-libraries-with-backport-dep () - (should (equal '() (package-lint-test--run - ";; Package-Requires: ((seq \"1\"))\n(require 'seq)")))) +;; (ert-deftest package-lint-test-accept-new-backported-libraries-with-backport-dep () +;; (should (equal '() (package-lint-test--run +;; ";; Package-Requires: ((seq \"1\"))\n(require 'seq)")))) (ert-deftest package-lint-test-accept-new-backported-sub-libraries-with-emacs-dep () (should (equal '() (package-lint-test--run ";; Package-Requires: ((emacs \"27.1\"))\n(require 'ol)")))) -(ert-deftest package-lint-test-accept-new-backported-sub-libraries-with-backport-dep () - (should (equal '() (package-lint-test--run - ";; Package-Requires: ((org \"9.3\"))\n(require 'ol)")))) +;; (ert-deftest package-lint-test-accept-new-backported-sub-libraries-with-backport-dep () +;; (should (equal '() (package-lint-test--run +;; ";; Package-Requires: ((org \"9.3\"))\n(require 'ol)")))) (ert-deftest package-lint-test-accept-new-libraries-with-optional-require () (should (equal '() (package-lint-test--run "(require 'nadvice nil t)")))) |