diff options
| author | Phillip Lord | 2015-11-24 22:21:20 +0000 |
|---|---|---|
| committer | Phillip Lord | 2015-11-24 22:21:20 +0000 |
| commit | 6579e5b6bb006c23140ed09d1220022604f317fe (patch) | |
| tree | 53384709bb20177102c9d265f1473c2a8a31ed35 /test/lisp | |
| parent | a546a37fcd21c90e1f86ba6262e9388624ade83b (diff) | |
| download | emacs-6579e5b6bb006c23140ed09d1220022604f317fe.tar.gz emacs-6579e5b6bb006c23140ed09d1220022604f317fe.zip | |
Move package test files to new directory.
* test/lisp/emacs-lisp/package-tests.el: Update resoruce file location.
* test/data/package: Moved to test/lisp/emacs-lisp/package-resources
Diffstat (limited to 'test/lisp')
20 files changed, 312 insertions, 11 deletions
diff --git a/test/lisp/emacs-lisp/package-resources/archive-contents b/test/lisp/emacs-lisp/package-resources/archive-contents new file mode 100644 index 00000000000..e2f92304f86 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/archive-contents | |||
| @@ -0,0 +1,17 @@ | |||
| 1 | (1 | ||
| 2 | (simple-single . | ||
| 3 | [(1 3) | ||
| 4 | nil "A single-file package with no dependencies" single | ||
| 5 | ((:url . "http://doodles.au") | ||
| 6 | (:keywords quote ("frobnicate")))]) | ||
| 7 | (simple-depend . | ||
| 8 | [(1 0) | ||
| 9 | ((simple-single (1 3))) "A single-file package with a dependency." single]) | ||
| 10 | (simple-two-depend . | ||
| 11 | [(1 1) | ||
| 12 | ((simple-depend (1 0)) (simple-single (1 3))) | ||
| 13 | "A single-file package with two dependencies." single]) | ||
| 14 | (multi-file . | ||
| 15 | [(0 2 3) | ||
| 16 | nil "Example of a multi-file tar package" tar | ||
| 17 | ((:url . "http://puddles.li"))])) | ||
diff --git a/test/lisp/emacs-lisp/package-resources/key.pub b/test/lisp/emacs-lisp/package-resources/key.pub new file mode 100644 index 00000000000..a326d34e54f --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/key.pub | |||
| @@ -0,0 +1,18 @@ | |||
| 1 | -----BEGIN PGP PUBLIC KEY BLOCK----- | ||
| 2 | Version: GnuPG v1.4.14 (GNU/Linux) | ||
| 3 | |||
| 4 | mQENBFJNB8gBCACfbtpvYrM8V1HM0KFlIwatcEJugHqwOHpr/Z9mrCW0fxyQAW/d | ||
| 5 | 2L+3QVNsN9Tz/K9lLcBUgeR7rhVEzHNqhmhNj/HnikwGqXbIofhp+QbZmBKnAlCz | ||
| 6 | d77kg8K9lozHtfTkm1gX/7DdPzQKmgi7WOzzi2395wGubeqJLvYaEcqVbI0Eob+E | ||
| 7 | 3CzRjNy/e/Tf3TJRW5etTcdZN6LVuIY7tNCHqlQZTwyycON/hfLTX6cLCnzDsqm/ | ||
| 8 | NxCuwn9aqP9aGRGfIu7Y+If3zTymvrXEPUN98OEID814bOKdx0uVTZRiSMbvuTGI | ||
| 9 | 8uMa/kpGX/78rqI61gbZV51RFoU7pT2tzwY/ABEBAAG0HkouIFIuIEhhY2tlciA8 | ||
| 10 | anJoQGV4YW1wbGUuY29tPokBOAQTAQIAIgUCUk0HyAIbAwYLCQgHAwIGFQgCCQoL | ||
| 11 | BBYCAwECHgECF4AACgkQtpVAhgkYletuhQf+JAyHYhTZNxjq0UYlikuLX8EtYbXX | ||
| 12 | PB+03J0B73SMzEai5XsiTU2ADxqxwr7pveVK1INf+IGLiiXBlQq+4DSOvQY4xLfp | ||
| 13 | 58jTOYRV1ECvlXK/JtvVOwufXREADaydf9l/MUxA5G2PPBWIuQknh3ysPSsx68OJ | ||
| 14 | SzNHFwklLn0DKc4WloE/GLDpTzimnCg7QGzuUo3Iilpjdy8EvTdI5d3jx/mGJIwI | ||
| 15 | goB+YZgyxSPM+GjDwh5DEwD7OexNqqa7RynnmU0epmlYyi9UufCHLwgiiEIzjpWi | ||
| 16 | 6+iF+CQ45ZAKncovByenIUv73J3ImOudrsskeAHBmahljv1he6uV9Egj2Q== | ||
| 17 | =b5Kg | ||
| 18 | -----END PGP PUBLIC KEY BLOCK----- | ||
diff --git a/test/lisp/emacs-lisp/package-resources/key.sec b/test/lisp/emacs-lisp/package-resources/key.sec new file mode 100644 index 00000000000..d21e6ae9a45 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/key.sec | |||
| @@ -0,0 +1,33 @@ | |||
| 1 | -----BEGIN PGP PRIVATE KEY BLOCK----- | ||
| 2 | Version: GnuPG v1.4.14 (GNU/Linux) | ||
| 3 | |||
| 4 | lQO+BFJNB8gBCACfbtpvYrM8V1HM0KFlIwatcEJugHqwOHpr/Z9mrCW0fxyQAW/d | ||
| 5 | 2L+3QVNsN9Tz/K9lLcBUgeR7rhVEzHNqhmhNj/HnikwGqXbIofhp+QbZmBKnAlCz | ||
| 6 | d77kg8K9lozHtfTkm1gX/7DdPzQKmgi7WOzzi2395wGubeqJLvYaEcqVbI0Eob+E | ||
| 7 | 3CzRjNy/e/Tf3TJRW5etTcdZN6LVuIY7tNCHqlQZTwyycON/hfLTX6cLCnzDsqm/ | ||
| 8 | NxCuwn9aqP9aGRGfIu7Y+If3zTymvrXEPUN98OEID814bOKdx0uVTZRiSMbvuTGI | ||
| 9 | 8uMa/kpGX/78rqI61gbZV51RFoU7pT2tzwY/ABEBAAH+AwMCKCCpPNXkXuVgF7cz | ||
| 10 | eByuvgIO7wImDYGOdJqsASSzV4q0u1acnGtlxg7WphKDF9RnC5+1ZZ1ZcrBcv2uJ | ||
| 11 | xZm2jHdjqM3FmgQTN70GVzO1nKEur2wxlKotG4Q+8BtaRDwHdKpQFk+QW9aInH3C | ||
| 12 | BkNWTK97iFwZaoUGxKuRJb35qjMe3SsDE7kdbtOqO+tOeppRVeOOZCn7F33ir/6i | ||
| 13 | j2gmIME6LFDzvBi6YAyMBSh90Ak70HJINt0QfXlZf5MtX1NaxaEcnsRmwwcNqxh9 | ||
| 14 | JvcC9q4WrR92NhHCHI+lOsAe7hbwo/VkwRjSSx0HdKkx6kvdcNj/9LeX/jykzLvg | ||
| 15 | kEqvAqT4Jmk57W2seqvpNcAO+eUVrJ5D1OR6khsUtikPp2pQH5MDXJDGcie+ZAFb | ||
| 16 | w6BwoWBDBjooKtfuP0LKqrdtJG2JLe6yhBhWvfqHPBlUU1SsA7a5aTCLo8FiqgEI | ||
| 17 | Kyy60zMx/2Mi48oN1a/mAoV1MTWLhOVUWJlIHM7nVLj1OaX0316LcLX/uTLTq40p | ||
| 18 | apHKwERanzY7f8ROiv/Fa/J+9cCsfOLKfjFAjpBVUVoOb39HsyS/vvkGMY4kgaD6 | ||
| 19 | K6r9JPdsaoYvsLkxk5HyHF7Mk2uS1z1EIArD2/3lRiX6ag+IU1Nl3XDkgfZj06K3 | ||
| 20 | juS84dGF8CmN49uOEjzAJAQZH9jTs5OKzUuZhGJF+gt0L78vLOoKRr8bu1N1GPqU | ||
| 21 | wnS908HWruXzjJl1CAhnuCa8FnDaU+tmEKjYpWuelx85kolpMW7LT5gOFZr84MIj | ||
| 22 | Kq3Rt2hU6qQ7Cdy1ep531YKkmyh9Y4l/Tgir1OtnQQqtNuwHI497l7qAUnKZBBHZ | ||
| 23 | guApjS9BoHsRXkw2mgDssZ+khOwj/xJm876nFSiQeCD0aIbU/4zJ9e2HUOJAZI1r | ||
| 24 | d7QeSi4gUi4gSGFja2VyIDxqcmhAZXhhbXBsZS5jb20+iQE4BBMBAgAiBQJSTQfI | ||
| 25 | AhsDBgsJCAcDAgYVCAIJCgsEFgIDAQIeAQIXgAAKCRC2lUCGCRiV626FB/4kDIdi | ||
| 26 | FNk3GOrRRiWKS4tfwS1htdc8H7TcnQHvdIzMRqLleyJNTYAPGrHCvum95UrUg1/4 | ||
| 27 | gYuKJcGVCr7gNI69BjjEt+nnyNM5hFXUQK+Vcr8m29U7C59dEQANrJ1/2X8xTEDk | ||
| 28 | bY88FYi5CSeHfKw9KzHrw4lLM0cXCSUufQMpzhaWgT8YsOlPOKacKDtAbO5SjciK | ||
| 29 | WmN3LwS9N0jl3ePH+YYkjAiCgH5hmDLFI8z4aMPCHkMTAPs57E2qprtHKeeZTR6m | ||
| 30 | aVjKL1S58IcvCCKIQjOOlaLr6IX4JDjlkAqdyi8HJ6chS/vcnciY652uyyR4AcGZ | ||
| 31 | qGWO/WF7q5X0SCPZ | ||
| 32 | =5FZK | ||
| 33 | -----END PGP PRIVATE KEY BLOCK----- | ||
diff --git a/test/lisp/emacs-lisp/package-resources/multi-file-0.2.3.tar b/test/lisp/emacs-lisp/package-resources/multi-file-0.2.3.tar new file mode 100644 index 00000000000..2f1c5e93df1 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/multi-file-0.2.3.tar | |||
| Binary files differ | |||
diff --git a/test/lisp/emacs-lisp/package-resources/multi-file-readme.txt b/test/lisp/emacs-lisp/package-resources/multi-file-readme.txt new file mode 100644 index 00000000000..affd2e96fb0 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/multi-file-readme.txt | |||
| @@ -0,0 +1 @@ | |||
| This is a bare-bones readme file for the multi-file package. | |||
diff --git a/test/lisp/emacs-lisp/package-resources/newer-versions/archive-contents b/test/lisp/emacs-lisp/package-resources/newer-versions/archive-contents new file mode 100644 index 00000000000..add5f2909d0 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/newer-versions/archive-contents | |||
| @@ -0,0 +1,13 @@ | |||
| 1 | (1 | ||
| 2 | (simple-single . | ||
| 3 | [(1 4) | ||
| 4 | nil "A single-file package with no dependencies" single]) | ||
| 5 | (simple-depend . | ||
| 6 | [(1 0) | ||
| 7 | ((simple-single (1 3))) "A single-file package with a dependency." single]) | ||
| 8 | (new-pkg . | ||
| 9 | [(1 0) | ||
| 10 | nil "A package only seen after "updating" archive-contents" single]) | ||
| 11 | (multi-file . | ||
| 12 | [(0 2 3) | ||
| 13 | nil "Example of a multi-file tar package" tar])) | ||
diff --git a/test/lisp/emacs-lisp/package-resources/newer-versions/new-pkg-1.0.el b/test/lisp/emacs-lisp/package-resources/newer-versions/new-pkg-1.0.el new file mode 100644 index 00000000000..7251622fa59 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/newer-versions/new-pkg-1.0.el | |||
| @@ -0,0 +1,18 @@ | |||
| 1 | ;;; new-pkg.el --- A package only seen after "updating" archive-contents | ||
| 2 | |||
| 3 | ;; Author: J. R. Hacker <jrh@example.com> | ||
| 4 | ;; Version: 1.0 | ||
| 5 | |||
| 6 | ;;; Commentary: | ||
| 7 | |||
| 8 | ;; This will only show up after updating "archive-contents". | ||
| 9 | |||
| 10 | ;;; Code: | ||
| 11 | |||
| 12 | (defun new-pkg-frob () | ||
| 13 | "Ignore me." | ||
| 14 | (ignore)) | ||
| 15 | |||
| 16 | (provide 'new-pkg) | ||
| 17 | |||
| 18 | ;;; new-pkg.el ends here | ||
diff --git a/test/lisp/emacs-lisp/package-resources/newer-versions/simple-single-1.4.el b/test/lisp/emacs-lisp/package-resources/newer-versions/simple-single-1.4.el new file mode 100644 index 00000000000..7b1c00c06db --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/newer-versions/simple-single-1.4.el | |||
| @@ -0,0 +1,36 @@ | |||
| 1 | ;;; simple-single.el --- A single-file package with no dependencies | ||
| 2 | |||
| 3 | ;; Author: J. R. Hacker <jrh@example.com> | ||
| 4 | ;; Version: 1.4 | ||
| 5 | ;; Keywords: frobnicate | ||
| 6 | |||
| 7 | ;;; Commentary: | ||
| 8 | |||
| 9 | ;; This package provides a minor mode to frobnicate and/or bifurcate | ||
| 10 | ;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" | ||
| 11 | ;; and all your dreams will come true. | ||
| 12 | ;; | ||
| 13 | ;; This is a new, updated version. | ||
| 14 | |||
| 15 | ;;; Code: | ||
| 16 | |||
| 17 | (defgroup simple-single nil "Simply a file" | ||
| 18 | :group 'lisp) | ||
| 19 | |||
| 20 | (defcustom simple-single-super-sunday nil | ||
| 21 | "How great is this? | ||
| 22 | Default changed to nil." | ||
| 23 | :type 'boolean | ||
| 24 | :group 'simple-single | ||
| 25 | :package-version "1.4") | ||
| 26 | |||
| 27 | (defvar simple-single-sudo-sandwich nil | ||
| 28 | "Make a sandwich?") | ||
| 29 | |||
| 30 | ;;;###autoload | ||
| 31 | (define-minor-mode simple-single-mode | ||
| 32 | "It does good things to stuff") | ||
| 33 | |||
| 34 | (provide 'simple-single) | ||
| 35 | |||
| 36 | ;;; simple-single.el ends here | ||
diff --git a/test/lisp/emacs-lisp/package-resources/package-test-server.py b/test/lisp/emacs-lisp/package-resources/package-test-server.py new file mode 100644 index 00000000000..35ca820f31f --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/package-test-server.py | |||
| @@ -0,0 +1,21 @@ | |||
| 1 | import sys | ||
| 2 | import BaseHTTPServer | ||
| 3 | from SimpleHTTPServer import SimpleHTTPRequestHandler | ||
| 4 | |||
| 5 | |||
| 6 | HandlerClass = SimpleHTTPRequestHandler | ||
| 7 | ServerClass = BaseHTTPServer.HTTPServer | ||
| 8 | Protocol = "HTTP/1.0" | ||
| 9 | |||
| 10 | if sys.argv[1:]: | ||
| 11 | port = int(sys.argv[1]) | ||
| 12 | else: | ||
| 13 | port = 8000 | ||
| 14 | server_address = ('127.0.0.1', port) | ||
| 15 | |||
| 16 | HandlerClass.protocol_version = Protocol | ||
| 17 | httpd = ServerClass(server_address, HandlerClass) | ||
| 18 | |||
| 19 | sa = httpd.socket.getsockname() | ||
| 20 | print "Serving HTTP on", sa[0], "port", sa[1], "..." | ||
| 21 | httpd.serve_forever() | ||
diff --git a/test/lisp/emacs-lisp/package-resources/signed/archive-contents b/test/lisp/emacs-lisp/package-resources/signed/archive-contents new file mode 100644 index 00000000000..2a773ecba6a --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/signed/archive-contents | |||
| @@ -0,0 +1,7 @@ | |||
| 1 | (1 | ||
| 2 | (signed-good . | ||
| 3 | [(1 0) | ||
| 4 | nil "A package with good signature" single]) | ||
| 5 | (signed-bad . | ||
| 6 | [(1 0) | ||
| 7 | nil "A package with bad signature" single])) | ||
diff --git a/test/lisp/emacs-lisp/package-resources/signed/archive-contents.sig b/test/lisp/emacs-lisp/package-resources/signed/archive-contents.sig new file mode 100644 index 00000000000..658edd3f60e --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/signed/archive-contents.sig | |||
| Binary files differ | |||
diff --git a/test/lisp/emacs-lisp/package-resources/signed/signed-bad-1.0.el b/test/lisp/emacs-lisp/package-resources/signed/signed-bad-1.0.el new file mode 100644 index 00000000000..3734823876e --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/signed/signed-bad-1.0.el | |||
| @@ -0,0 +1,33 @@ | |||
| 1 | ;;; signed-bad.el --- A single-file package with bad signature | ||
| 2 | |||
| 3 | ;; Author: J. R. Hacker <jrh@example.com> | ||
| 4 | ;; Version: 1.0 | ||
| 5 | ;; Keywords: frobnicate | ||
| 6 | ;; URL: http://doodles.au | ||
| 7 | |||
| 8 | ;;; Commentary: | ||
| 9 | |||
| 10 | ;; This package provides a minor mode to frobnicate and/or bifurcate | ||
| 11 | ;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" | ||
| 12 | ;; and all your dreams will come true. | ||
| 13 | |||
| 14 | ;;; Code: | ||
| 15 | |||
| 16 | (defgroup signed-bad nil "Simply a file" | ||
| 17 | :group 'lisp) | ||
| 18 | |||
| 19 | (defcustom signed-bad-super-sunday t | ||
| 20 | "How great is this?" | ||
| 21 | :type 'boolean | ||
| 22 | :group 'signed-bad) | ||
| 23 | |||
| 24 | (defvar signed-bad-sudo-sandwich nil | ||
| 25 | "Make a sandwich?") | ||
| 26 | |||
| 27 | ;;;###autoload | ||
| 28 | (define-minor-mode signed-bad-mode | ||
| 29 | "It does good things to stuff") | ||
| 30 | |||
| 31 | (provide 'signed-bad) | ||
| 32 | |||
| 33 | ;;; signed-bad.el ends here | ||
diff --git a/test/lisp/emacs-lisp/package-resources/signed/signed-bad-1.0.el.sig b/test/lisp/emacs-lisp/package-resources/signed/signed-bad-1.0.el.sig new file mode 100644 index 00000000000..747918794ca --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/signed/signed-bad-1.0.el.sig | |||
| Binary files differ | |||
diff --git a/test/lisp/emacs-lisp/package-resources/signed/signed-good-1.0.el b/test/lisp/emacs-lisp/package-resources/signed/signed-good-1.0.el new file mode 100644 index 00000000000..22718df2763 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/signed/signed-good-1.0.el | |||
| @@ -0,0 +1,33 @@ | |||
| 1 | ;;; signed-good.el --- A single-file package with good signature | ||
| 2 | |||
| 3 | ;; Author: J. R. Hacker <jrh@example.com> | ||
| 4 | ;; Version: 1.0 | ||
| 5 | ;; Keywords: frobnicate | ||
| 6 | ;; URL: http://doodles.au | ||
| 7 | |||
| 8 | ;;; Commentary: | ||
| 9 | |||
| 10 | ;; This package provides a minor mode to frobnicate and/or bifurcate | ||
| 11 | ;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" | ||
| 12 | ;; and all your dreams will come true. | ||
| 13 | |||
| 14 | ;;; Code: | ||
| 15 | |||
| 16 | (defgroup signed-good nil "Simply a file" | ||
| 17 | :group 'lisp) | ||
| 18 | |||
| 19 | (defcustom signed-good-super-sunday t | ||
| 20 | "How great is this?" | ||
| 21 | :type 'boolean | ||
| 22 | :group 'signed-good) | ||
| 23 | |||
| 24 | (defvar signed-good-sudo-sandwich nil | ||
| 25 | "Make a sandwich?") | ||
| 26 | |||
| 27 | ;;;###autoload | ||
| 28 | (define-minor-mode signed-good-mode | ||
| 29 | "It does good things to stuff") | ||
| 30 | |||
| 31 | (provide 'signed-good) | ||
| 32 | |||
| 33 | ;;; signed-good.el ends here | ||
diff --git a/test/lisp/emacs-lisp/package-resources/signed/signed-good-1.0.el.sig b/test/lisp/emacs-lisp/package-resources/signed/signed-good-1.0.el.sig new file mode 100644 index 00000000000..747918794ca --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/signed/signed-good-1.0.el.sig | |||
| Binary files differ | |||
diff --git a/test/lisp/emacs-lisp/package-resources/simple-depend-1.0.el b/test/lisp/emacs-lisp/package-resources/simple-depend-1.0.el new file mode 100644 index 00000000000..b58b658d024 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/simple-depend-1.0.el | |||
| @@ -0,0 +1,17 @@ | |||
| 1 | ;;; simple-depend.el --- A single-file package with a dependency. | ||
| 2 | |||
| 3 | ;; Author: J. R. Hacker <jrh@example.com> | ||
| 4 | ;; Version: 1.0 | ||
| 5 | ;; Keywords: frobnicate | ||
| 6 | ;; Package-Requires: ((simple-single "1.3")) | ||
| 7 | |||
| 8 | ;;; Commentary: | ||
| 9 | |||
| 10 | ;; Depends on another package. | ||
| 11 | |||
| 12 | ;;; Code: | ||
| 13 | |||
| 14 | (defvar simple-depend "Value" | ||
| 15 | "Some trivial code") | ||
| 16 | |||
| 17 | ;;; simple-depend.el ends here | ||
diff --git a/test/lisp/emacs-lisp/package-resources/simple-single-1.3.el b/test/lisp/emacs-lisp/package-resources/simple-single-1.3.el new file mode 100644 index 00000000000..6756a28080b --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/simple-single-1.3.el | |||
| @@ -0,0 +1,33 @@ | |||
| 1 | ;;; simple-single.el --- A single-file package with no dependencies | ||
| 2 | |||
| 3 | ;; Author: J. R. Hacker <jrh@example.com> | ||
| 4 | ;; Version: 1.3 | ||
| 5 | ;; Keywords: frobnicate | ||
| 6 | ;; URL: http://doodles.au | ||
| 7 | |||
| 8 | ;;; Commentary: | ||
| 9 | |||
| 10 | ;; This package provides a minor mode to frobnicate and/or bifurcate | ||
| 11 | ;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" | ||
| 12 | ;; and all your dreams will come true. | ||
| 13 | |||
| 14 | ;;; Code: | ||
| 15 | |||
| 16 | (defgroup simple-single nil "Simply a file" | ||
| 17 | :group 'lisp) | ||
| 18 | |||
| 19 | (defcustom simple-single-super-sunday t | ||
| 20 | "How great is this?" | ||
| 21 | :type 'boolean | ||
| 22 | :group 'simple-single) | ||
| 23 | |||
| 24 | (defvar simple-single-sudo-sandwich nil | ||
| 25 | "Make a sandwich?") | ||
| 26 | |||
| 27 | ;;;###autoload | ||
| 28 | (define-minor-mode simple-single-mode | ||
| 29 | "It does good things to stuff") | ||
| 30 | |||
| 31 | (provide 'simple-single) | ||
| 32 | |||
| 33 | ;;; simple-single.el ends here | ||
diff --git a/test/lisp/emacs-lisp/package-resources/simple-single-readme.txt b/test/lisp/emacs-lisp/package-resources/simple-single-readme.txt new file mode 100644 index 00000000000..25d3034032b --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/simple-single-readme.txt | |||
| @@ -0,0 +1,3 @@ | |||
| 1 | This package provides a minor mode to frobnicate and/or bifurcate | ||
| 2 | any flanges you desire. To activate it, type "C-M-r M-3 butterfly" | ||
| 3 | and all your dreams will come true. | ||
diff --git a/test/lisp/emacs-lisp/package-resources/simple-two-depend-1.1.el b/test/lisp/emacs-lisp/package-resources/simple-two-depend-1.1.el new file mode 100644 index 00000000000..9cfe5c0d4e2 --- /dev/null +++ b/test/lisp/emacs-lisp/package-resources/simple-two-depend-1.1.el | |||
| @@ -0,0 +1,17 @@ | |||
| 1 | ;;; simple-two-depend.el --- A single-file package with two dependencies. | ||
| 2 | |||
| 3 | ;; Author: J. R. Hacker <jrh@example.com> | ||
| 4 | ;; Version: 1.1 | ||
| 5 | ;; Keywords: frobnicate | ||
| 6 | ;; Package-Requires: ((simple-depend "1.0") (simple-single "1.3")) | ||
| 7 | |||
| 8 | ;;; Commentary: | ||
| 9 | |||
| 10 | ;; Depends on two another packages. | ||
| 11 | |||
| 12 | ;;; Code: | ||
| 13 | |||
| 14 | (defvar simple-two-depend "Value" | ||
| 15 | "Some trivial code") | ||
| 16 | |||
| 17 | ;;; simple-two-depend.el ends here | ||
diff --git a/test/lisp/emacs-lisp/package-tests.el b/test/lisp/emacs-lisp/package-tests.el index de41c3bc8e4..6b3069c2a54 100644 --- a/test/lisp/emacs-lisp/package-tests.el +++ b/test/lisp/emacs-lisp/package-tests.el | |||
| @@ -97,7 +97,7 @@ | |||
| 97 | (multi-file (0 1)))) | 97 | (multi-file (0 1)))) |
| 98 | "`package-desc' used for testing dependencies.") | 98 | "`package-desc' used for testing dependencies.") |
| 99 | 99 | ||
| 100 | (defvar package-test-data-dir (expand-file-name "data/package" package-test-file-dir) | 100 | (defvar package-test-data-dir (expand-file-name "package-resources" package-test-file-dir) |
| 101 | "Base directory of package test files.") | 101 | "Base directory of package test files.") |
| 102 | 102 | ||
| 103 | (defvar package-test-fake-contents-file | 103 | (defvar package-test-fake-contents-file |
| @@ -190,18 +190,18 @@ Must called from within a `tar-mode' buffer." | |||
| 190 | 190 | ||
| 191 | (ert-deftest package-test-desc-from-buffer () | 191 | (ert-deftest package-test-desc-from-buffer () |
| 192 | "Parse an elisp buffer to get a `package-desc' object." | 192 | "Parse an elisp buffer to get a `package-desc' object." |
| 193 | (with-package-test (:basedir "data/package" :file "simple-single-1.3.el") | 193 | (with-package-test (:basedir "package-resources" :file "simple-single-1.3.el") |
| 194 | (should (equal (package-buffer-info) simple-single-desc))) | 194 | (should (equal (package-buffer-info) simple-single-desc))) |
| 195 | (with-package-test (:basedir "data/package" :file "simple-depend-1.0.el") | 195 | (with-package-test (:basedir "package-resources" :file "simple-depend-1.0.el") |
| 196 | (should (equal (package-buffer-info) simple-depend-desc))) | 196 | (should (equal (package-buffer-info) simple-depend-desc))) |
| 197 | (with-package-test (:basedir "data/package" | 197 | (with-package-test (:basedir "package-resources" |
| 198 | :file "multi-file-0.2.3.tar") | 198 | :file "multi-file-0.2.3.tar") |
| 199 | (tar-mode) | 199 | (tar-mode) |
| 200 | (should (equal (package-tar-file-info) multi-file-desc)))) | 200 | (should (equal (package-tar-file-info) multi-file-desc)))) |
| 201 | 201 | ||
| 202 | (ert-deftest package-test-install-single () | 202 | (ert-deftest package-test-install-single () |
| 203 | "Install a single file without using an archive." | 203 | "Install a single file without using an archive." |
| 204 | (with-package-test (:basedir "data/package" :file "simple-single-1.3.el") | 204 | (with-package-test (:basedir "package-resources" :file "simple-single-1.3.el") |
| 205 | (should (package-install-from-buffer)) | 205 | (should (package-install-from-buffer)) |
| 206 | (package-initialize) | 206 | (package-initialize) |
| 207 | (should (package-installed-p 'simple-single)) | 207 | (should (package-installed-p 'simple-single)) |
| @@ -269,7 +269,7 @@ Must called from within a `tar-mode' buffer." | |||
| 269 | (ert-deftest package-test-install-prioritized () | 269 | (ert-deftest package-test-install-prioritized () |
| 270 | "Install a lower version from a higher-prioritized archive." | 270 | "Install a lower version from a higher-prioritized archive." |
| 271 | (with-package-test () | 271 | (with-package-test () |
| 272 | (let* ((newer-version (expand-file-name "data/package/newer-versions" | 272 | (let* ((newer-version (expand-file-name "package-resources/newer-versions" |
| 273 | package-test-file-dir)) | 273 | package-test-file-dir)) |
| 274 | (package-archives `(("older" . ,package-test-data-dir) | 274 | (package-archives `(("older" . ,package-test-data-dir) |
| 275 | ("newer" . ,newer-version))) | 275 | ("newer" . ,newer-version))) |
| @@ -285,7 +285,7 @@ Must called from within a `tar-mode' buffer." | |||
| 285 | 285 | ||
| 286 | (ert-deftest package-test-install-multifile () | 286 | (ert-deftest package-test-install-multifile () |
| 287 | "Check properties of the installed multi-file package." | 287 | "Check properties of the installed multi-file package." |
| 288 | (with-package-test (:basedir "data/package" :install '(multi-file)) | 288 | (with-package-test (:basedir "package-resources" :install '(multi-file)) |
| 289 | (let ((autoload-file | 289 | (let ((autoload-file |
| 290 | (expand-file-name "multi-file-autoloads.el" | 290 | (expand-file-name "multi-file-autoloads.el" |
| 291 | (expand-file-name | 291 | (expand-file-name |
| @@ -336,7 +336,7 @@ Must called from within a `tar-mode' buffer." | |||
| 336 | (package-menu-execute) | 336 | (package-menu-execute) |
| 337 | (should (package-installed-p 'simple-single)) | 337 | (should (package-installed-p 'simple-single)) |
| 338 | (let ((package-test-data-dir | 338 | (let ((package-test-data-dir |
| 339 | (expand-file-name "data/package/newer-versions" package-test-file-dir))) | 339 | (expand-file-name "package-resources/newer-versions" package-test-file-dir))) |
| 340 | (setq package-archives `(("gnu" . ,package-test-data-dir))) | 340 | (setq package-archives `(("gnu" . ,package-test-data-dir))) |
| 341 | (package-menu-refresh) | 341 | (package-menu-refresh) |
| 342 | 342 | ||
| @@ -456,7 +456,7 @@ Must called from within a `tar-mode' buffer." | |||
| 456 | (delete-directory homedir t))))) | 456 | (delete-directory homedir t))))) |
| 457 | (let* ((keyring (expand-file-name "key.pub" package-test-data-dir)) | 457 | (let* ((keyring (expand-file-name "key.pub" package-test-data-dir)) |
| 458 | (package-test-data-dir | 458 | (package-test-data-dir |
| 459 | (expand-file-name "data/package/signed" package-test-file-dir))) | 459 | (expand-file-name "package-resources/signed" package-test-file-dir))) |
| 460 | (with-package-test () | 460 | (with-package-test () |
| 461 | (package-initialize) | 461 | (package-initialize) |
| 462 | (package-import-keyring keyring) | 462 | (package-import-keyring keyring) |
| @@ -508,7 +508,7 @@ Must called from within a `tar-mode' buffer." | |||
| 508 | 508 | ||
| 509 | (ert-deftest package-x-test-upload-buffer () | 509 | (ert-deftest package-x-test-upload-buffer () |
| 510 | "Test creating an \"archive-contents\" file" | 510 | "Test creating an \"archive-contents\" file" |
| 511 | (with-package-test (:basedir "data/package" | 511 | (with-package-test (:basedir "package-resources" |
| 512 | :file "simple-single-1.3.el" | 512 | :file "simple-single-1.3.el" |
| 513 | :upload-base t) | 513 | :upload-base t) |
| 514 | (package-upload-buffer) | 514 | (package-upload-buffer) |
| @@ -532,7 +532,7 @@ Must called from within a `tar-mode' buffer." | |||
| 532 | 532 | ||
| 533 | (ert-deftest package-x-test-upload-new-version () | 533 | (ert-deftest package-x-test-upload-new-version () |
| 534 | "Test uploading a new version of a package" | 534 | "Test uploading a new version of a package" |
| 535 | (with-package-test (:basedir "data/package" | 535 | (with-package-test (:basedir "package-resources" |
| 536 | :file "simple-single-1.3.el" | 536 | :file "simple-single-1.3.el" |
| 537 | :upload-base t) | 537 | :upload-base t) |
| 538 | (package-upload-buffer) | 538 | (package-upload-buffer) |
| @@ -599,6 +599,7 @@ Must called from within a `tar-mode' buffer." | |||
| 599 | simple-depend-desc-2))) | 599 | simple-depend-desc-2))) |
| 600 | (should | 600 | (should |
| 601 | (equal (package--sort-by-dependence delete-list) | 601 | (equal (package--sort-by-dependence delete-list) |
| 602 | |||
| 602 | (list simple-depend-desc-2 simple-depend-desc-1 new-pkg-desc | 603 | (list simple-depend-desc-2 simple-depend-desc-1 new-pkg-desc |
| 603 | multi-file-desc simple-depend-desc simple-single-desc))) | 604 | multi-file-desc simple-depend-desc simple-single-desc))) |
| 604 | (should | 605 | (should |