From: Phillip Lord Date: Tue, 24 Nov 2015 22:21:20 +0000 (+0000) Subject: Move package test files to new directory. X-Git-Tag: emacs-26.0.90~2927^2~2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6579e5b6bb006c23140ed09d1220022604f317fe;p=emacs.git 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 --- diff --git a/test/data/package/archive-contents b/test/data/package/archive-contents deleted file mode 100644 index e2f92304f86..00000000000 --- a/test/data/package/archive-contents +++ /dev/null @@ -1,17 +0,0 @@ -(1 - (simple-single . - [(1 3) - nil "A single-file package with no dependencies" single - ((:url . "http://doodles.au") - (:keywords quote ("frobnicate")))]) - (simple-depend . - [(1 0) - ((simple-single (1 3))) "A single-file package with a dependency." single]) - (simple-two-depend . - [(1 1) - ((simple-depend (1 0)) (simple-single (1 3))) - "A single-file package with two dependencies." single]) - (multi-file . - [(0 2 3) - nil "Example of a multi-file tar package" tar - ((:url . "http://puddles.li"))])) diff --git a/test/data/package/key.pub b/test/data/package/key.pub deleted file mode 100644 index a326d34e54f..00000000000 --- a/test/data/package/key.pub +++ /dev/null @@ -1,18 +0,0 @@ ------BEGIN PGP PUBLIC KEY BLOCK----- -Version: GnuPG v1.4.14 (GNU/Linux) - -mQENBFJNB8gBCACfbtpvYrM8V1HM0KFlIwatcEJugHqwOHpr/Z9mrCW0fxyQAW/d -2L+3QVNsN9Tz/K9lLcBUgeR7rhVEzHNqhmhNj/HnikwGqXbIofhp+QbZmBKnAlCz -d77kg8K9lozHtfTkm1gX/7DdPzQKmgi7WOzzi2395wGubeqJLvYaEcqVbI0Eob+E -3CzRjNy/e/Tf3TJRW5etTcdZN6LVuIY7tNCHqlQZTwyycON/hfLTX6cLCnzDsqm/ -NxCuwn9aqP9aGRGfIu7Y+If3zTymvrXEPUN98OEID814bOKdx0uVTZRiSMbvuTGI -8uMa/kpGX/78rqI61gbZV51RFoU7pT2tzwY/ABEBAAG0HkouIFIuIEhhY2tlciA8 -anJoQGV4YW1wbGUuY29tPokBOAQTAQIAIgUCUk0HyAIbAwYLCQgHAwIGFQgCCQoL -BBYCAwECHgECF4AACgkQtpVAhgkYletuhQf+JAyHYhTZNxjq0UYlikuLX8EtYbXX -PB+03J0B73SMzEai5XsiTU2ADxqxwr7pveVK1INf+IGLiiXBlQq+4DSOvQY4xLfp -58jTOYRV1ECvlXK/JtvVOwufXREADaydf9l/MUxA5G2PPBWIuQknh3ysPSsx68OJ -SzNHFwklLn0DKc4WloE/GLDpTzimnCg7QGzuUo3Iilpjdy8EvTdI5d3jx/mGJIwI -goB+YZgyxSPM+GjDwh5DEwD7OexNqqa7RynnmU0epmlYyi9UufCHLwgiiEIzjpWi -6+iF+CQ45ZAKncovByenIUv73J3ImOudrsskeAHBmahljv1he6uV9Egj2Q== -=b5Kg ------END PGP PUBLIC KEY BLOCK----- diff --git a/test/data/package/key.sec b/test/data/package/key.sec deleted file mode 100644 index d21e6ae9a45..00000000000 --- a/test/data/package/key.sec +++ /dev/null @@ -1,33 +0,0 @@ ------BEGIN PGP PRIVATE KEY BLOCK----- -Version: GnuPG v1.4.14 (GNU/Linux) - -lQO+BFJNB8gBCACfbtpvYrM8V1HM0KFlIwatcEJugHqwOHpr/Z9mrCW0fxyQAW/d -2L+3QVNsN9Tz/K9lLcBUgeR7rhVEzHNqhmhNj/HnikwGqXbIofhp+QbZmBKnAlCz -d77kg8K9lozHtfTkm1gX/7DdPzQKmgi7WOzzi2395wGubeqJLvYaEcqVbI0Eob+E -3CzRjNy/e/Tf3TJRW5etTcdZN6LVuIY7tNCHqlQZTwyycON/hfLTX6cLCnzDsqm/ -NxCuwn9aqP9aGRGfIu7Y+If3zTymvrXEPUN98OEID814bOKdx0uVTZRiSMbvuTGI -8uMa/kpGX/78rqI61gbZV51RFoU7pT2tzwY/ABEBAAH+AwMCKCCpPNXkXuVgF7cz -eByuvgIO7wImDYGOdJqsASSzV4q0u1acnGtlxg7WphKDF9RnC5+1ZZ1ZcrBcv2uJ -xZm2jHdjqM3FmgQTN70GVzO1nKEur2wxlKotG4Q+8BtaRDwHdKpQFk+QW9aInH3C -BkNWTK97iFwZaoUGxKuRJb35qjMe3SsDE7kdbtOqO+tOeppRVeOOZCn7F33ir/6i -j2gmIME6LFDzvBi6YAyMBSh90Ak70HJINt0QfXlZf5MtX1NaxaEcnsRmwwcNqxh9 -JvcC9q4WrR92NhHCHI+lOsAe7hbwo/VkwRjSSx0HdKkx6kvdcNj/9LeX/jykzLvg -kEqvAqT4Jmk57W2seqvpNcAO+eUVrJ5D1OR6khsUtikPp2pQH5MDXJDGcie+ZAFb -w6BwoWBDBjooKtfuP0LKqrdtJG2JLe6yhBhWvfqHPBlUU1SsA7a5aTCLo8FiqgEI -Kyy60zMx/2Mi48oN1a/mAoV1MTWLhOVUWJlIHM7nVLj1OaX0316LcLX/uTLTq40p -apHKwERanzY7f8ROiv/Fa/J+9cCsfOLKfjFAjpBVUVoOb39HsyS/vvkGMY4kgaD6 -K6r9JPdsaoYvsLkxk5HyHF7Mk2uS1z1EIArD2/3lRiX6ag+IU1Nl3XDkgfZj06K3 -juS84dGF8CmN49uOEjzAJAQZH9jTs5OKzUuZhGJF+gt0L78vLOoKRr8bu1N1GPqU -wnS908HWruXzjJl1CAhnuCa8FnDaU+tmEKjYpWuelx85kolpMW7LT5gOFZr84MIj -Kq3Rt2hU6qQ7Cdy1ep531YKkmyh9Y4l/Tgir1OtnQQqtNuwHI497l7qAUnKZBBHZ -guApjS9BoHsRXkw2mgDssZ+khOwj/xJm876nFSiQeCD0aIbU/4zJ9e2HUOJAZI1r -d7QeSi4gUi4gSGFja2VyIDxqcmhAZXhhbXBsZS5jb20+iQE4BBMBAgAiBQJSTQfI -AhsDBgsJCAcDAgYVCAIJCgsEFgIDAQIeAQIXgAAKCRC2lUCGCRiV626FB/4kDIdi -FNk3GOrRRiWKS4tfwS1htdc8H7TcnQHvdIzMRqLleyJNTYAPGrHCvum95UrUg1/4 -gYuKJcGVCr7gNI69BjjEt+nnyNM5hFXUQK+Vcr8m29U7C59dEQANrJ1/2X8xTEDk -bY88FYi5CSeHfKw9KzHrw4lLM0cXCSUufQMpzhaWgT8YsOlPOKacKDtAbO5SjciK -WmN3LwS9N0jl3ePH+YYkjAiCgH5hmDLFI8z4aMPCHkMTAPs57E2qprtHKeeZTR6m -aVjKL1S58IcvCCKIQjOOlaLr6IX4JDjlkAqdyi8HJ6chS/vcnciY652uyyR4AcGZ -qGWO/WF7q5X0SCPZ -=5FZK ------END PGP PRIVATE KEY BLOCK----- diff --git a/test/data/package/multi-file-0.2.3.tar b/test/data/package/multi-file-0.2.3.tar deleted file mode 100644 index 2f1c5e93df1..00000000000 Binary files a/test/data/package/multi-file-0.2.3.tar and /dev/null differ diff --git a/test/data/package/multi-file-readme.txt b/test/data/package/multi-file-readme.txt deleted file mode 100644 index affd2e96fb0..00000000000 --- a/test/data/package/multi-file-readme.txt +++ /dev/null @@ -1 +0,0 @@ -This is a bare-bones readme file for the multi-file package. diff --git a/test/data/package/newer-versions/archive-contents b/test/data/package/newer-versions/archive-contents deleted file mode 100644 index add5f2909d0..00000000000 --- a/test/data/package/newer-versions/archive-contents +++ /dev/null @@ -1,13 +0,0 @@ -(1 - (simple-single . - [(1 4) - nil "A single-file package with no dependencies" single]) - (simple-depend . - [(1 0) - ((simple-single (1 3))) "A single-file package with a dependency." single]) - (new-pkg . - [(1 0) - nil "A package only seen after "updating" archive-contents" single]) - (multi-file . - [(0 2 3) - nil "Example of a multi-file tar package" tar])) diff --git a/test/data/package/newer-versions/new-pkg-1.0.el b/test/data/package/newer-versions/new-pkg-1.0.el deleted file mode 100644 index 7251622fa59..00000000000 --- a/test/data/package/newer-versions/new-pkg-1.0.el +++ /dev/null @@ -1,18 +0,0 @@ -;;; new-pkg.el --- A package only seen after "updating" archive-contents - -;; Author: J. R. Hacker -;; Version: 1.0 - -;;; Commentary: - -;; This will only show up after updating "archive-contents". - -;;; Code: - -(defun new-pkg-frob () - "Ignore me." - (ignore)) - -(provide 'new-pkg) - -;;; new-pkg.el ends here diff --git a/test/data/package/newer-versions/simple-single-1.4.el b/test/data/package/newer-versions/simple-single-1.4.el deleted file mode 100644 index 7b1c00c06db..00000000000 --- a/test/data/package/newer-versions/simple-single-1.4.el +++ /dev/null @@ -1,36 +0,0 @@ -;;; simple-single.el --- A single-file package with no dependencies - -;; Author: J. R. Hacker -;; Version: 1.4 -;; Keywords: frobnicate - -;;; Commentary: - -;; This package provides a minor mode to frobnicate and/or bifurcate -;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" -;; and all your dreams will come true. -;; -;; This is a new, updated version. - -;;; Code: - -(defgroup simple-single nil "Simply a file" - :group 'lisp) - -(defcustom simple-single-super-sunday nil - "How great is this? -Default changed to nil." - :type 'boolean - :group 'simple-single - :package-version "1.4") - -(defvar simple-single-sudo-sandwich nil - "Make a sandwich?") - -;;;###autoload -(define-minor-mode simple-single-mode - "It does good things to stuff") - -(provide 'simple-single) - -;;; simple-single.el ends here diff --git a/test/data/package/package-test-server.py b/test/data/package/package-test-server.py deleted file mode 100644 index 35ca820f31f..00000000000 --- a/test/data/package/package-test-server.py +++ /dev/null @@ -1,21 +0,0 @@ -import sys -import BaseHTTPServer -from SimpleHTTPServer import SimpleHTTPRequestHandler - - -HandlerClass = SimpleHTTPRequestHandler -ServerClass = BaseHTTPServer.HTTPServer -Protocol = "HTTP/1.0" - -if sys.argv[1:]: - port = int(sys.argv[1]) -else: - port = 8000 - server_address = ('127.0.0.1', port) - -HandlerClass.protocol_version = Protocol -httpd = ServerClass(server_address, HandlerClass) - -sa = httpd.socket.getsockname() -print "Serving HTTP on", sa[0], "port", sa[1], "..." -httpd.serve_forever() diff --git a/test/data/package/signed/archive-contents b/test/data/package/signed/archive-contents deleted file mode 100644 index 2a773ecba6a..00000000000 --- a/test/data/package/signed/archive-contents +++ /dev/null @@ -1,7 +0,0 @@ -(1 - (signed-good . - [(1 0) - nil "A package with good signature" single]) - (signed-bad . - [(1 0) - nil "A package with bad signature" single])) diff --git a/test/data/package/signed/archive-contents.sig b/test/data/package/signed/archive-contents.sig deleted file mode 100644 index 658edd3f60e..00000000000 Binary files a/test/data/package/signed/archive-contents.sig and /dev/null differ diff --git a/test/data/package/signed/signed-bad-1.0.el b/test/data/package/signed/signed-bad-1.0.el deleted file mode 100644 index 3734823876e..00000000000 --- a/test/data/package/signed/signed-bad-1.0.el +++ /dev/null @@ -1,33 +0,0 @@ -;;; signed-bad.el --- A single-file package with bad signature - -;; Author: J. R. Hacker -;; Version: 1.0 -;; Keywords: frobnicate -;; URL: http://doodles.au - -;;; Commentary: - -;; This package provides a minor mode to frobnicate and/or bifurcate -;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" -;; and all your dreams will come true. - -;;; Code: - -(defgroup signed-bad nil "Simply a file" - :group 'lisp) - -(defcustom signed-bad-super-sunday t - "How great is this?" - :type 'boolean - :group 'signed-bad) - -(defvar signed-bad-sudo-sandwich nil - "Make a sandwich?") - -;;;###autoload -(define-minor-mode signed-bad-mode - "It does good things to stuff") - -(provide 'signed-bad) - -;;; signed-bad.el ends here diff --git a/test/data/package/signed/signed-bad-1.0.el.sig b/test/data/package/signed/signed-bad-1.0.el.sig deleted file mode 100644 index 747918794ca..00000000000 Binary files a/test/data/package/signed/signed-bad-1.0.el.sig and /dev/null differ diff --git a/test/data/package/signed/signed-good-1.0.el b/test/data/package/signed/signed-good-1.0.el deleted file mode 100644 index 22718df2763..00000000000 --- a/test/data/package/signed/signed-good-1.0.el +++ /dev/null @@ -1,33 +0,0 @@ -;;; signed-good.el --- A single-file package with good signature - -;; Author: J. R. Hacker -;; Version: 1.0 -;; Keywords: frobnicate -;; URL: http://doodles.au - -;;; Commentary: - -;; This package provides a minor mode to frobnicate and/or bifurcate -;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" -;; and all your dreams will come true. - -;;; Code: - -(defgroup signed-good nil "Simply a file" - :group 'lisp) - -(defcustom signed-good-super-sunday t - "How great is this?" - :type 'boolean - :group 'signed-good) - -(defvar signed-good-sudo-sandwich nil - "Make a sandwich?") - -;;;###autoload -(define-minor-mode signed-good-mode - "It does good things to stuff") - -(provide 'signed-good) - -;;; signed-good.el ends here diff --git a/test/data/package/signed/signed-good-1.0.el.sig b/test/data/package/signed/signed-good-1.0.el.sig deleted file mode 100644 index 747918794ca..00000000000 Binary files a/test/data/package/signed/signed-good-1.0.el.sig and /dev/null differ diff --git a/test/data/package/simple-depend-1.0.el b/test/data/package/simple-depend-1.0.el deleted file mode 100644 index b58b658d024..00000000000 --- a/test/data/package/simple-depend-1.0.el +++ /dev/null @@ -1,17 +0,0 @@ -;;; simple-depend.el --- A single-file package with a dependency. - -;; Author: J. R. Hacker -;; Version: 1.0 -;; Keywords: frobnicate -;; Package-Requires: ((simple-single "1.3")) - -;;; Commentary: - -;; Depends on another package. - -;;; Code: - -(defvar simple-depend "Value" - "Some trivial code") - -;;; simple-depend.el ends here diff --git a/test/data/package/simple-single-1.3.el b/test/data/package/simple-single-1.3.el deleted file mode 100644 index 6756a28080b..00000000000 --- a/test/data/package/simple-single-1.3.el +++ /dev/null @@ -1,33 +0,0 @@ -;;; simple-single.el --- A single-file package with no dependencies - -;; Author: J. R. Hacker -;; Version: 1.3 -;; Keywords: frobnicate -;; URL: http://doodles.au - -;;; Commentary: - -;; This package provides a minor mode to frobnicate and/or bifurcate -;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" -;; and all your dreams will come true. - -;;; Code: - -(defgroup simple-single nil "Simply a file" - :group 'lisp) - -(defcustom simple-single-super-sunday t - "How great is this?" - :type 'boolean - :group 'simple-single) - -(defvar simple-single-sudo-sandwich nil - "Make a sandwich?") - -;;;###autoload -(define-minor-mode simple-single-mode - "It does good things to stuff") - -(provide 'simple-single) - -;;; simple-single.el ends here diff --git a/test/data/package/simple-single-readme.txt b/test/data/package/simple-single-readme.txt deleted file mode 100644 index 25d3034032b..00000000000 --- a/test/data/package/simple-single-readme.txt +++ /dev/null @@ -1,3 +0,0 @@ -This package provides a minor mode to frobnicate and/or bifurcate -any flanges you desire. To activate it, type "C-M-r M-3 butterfly" -and all your dreams will come true. diff --git a/test/data/package/simple-two-depend-1.1.el b/test/data/package/simple-two-depend-1.1.el deleted file mode 100644 index 9cfe5c0d4e2..00000000000 --- a/test/data/package/simple-two-depend-1.1.el +++ /dev/null @@ -1,17 +0,0 @@ -;;; simple-two-depend.el --- A single-file package with two dependencies. - -;; Author: J. R. Hacker -;; Version: 1.1 -;; Keywords: frobnicate -;; Package-Requires: ((simple-depend "1.0") (simple-single "1.3")) - -;;; Commentary: - -;; Depends on two another packages. - -;;; Code: - -(defvar simple-two-depend "Value" - "Some trivial code") - -;;; simple-two-depend.el ends here 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 + (simple-single . + [(1 3) + nil "A single-file package with no dependencies" single + ((:url . "http://doodles.au") + (:keywords quote ("frobnicate")))]) + (simple-depend . + [(1 0) + ((simple-single (1 3))) "A single-file package with a dependency." single]) + (simple-two-depend . + [(1 1) + ((simple-depend (1 0)) (simple-single (1 3))) + "A single-file package with two dependencies." single]) + (multi-file . + [(0 2 3) + nil "Example of a multi-file tar package" tar + ((: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 @@ +-----BEGIN PGP PUBLIC KEY BLOCK----- +Version: GnuPG v1.4.14 (GNU/Linux) + +mQENBFJNB8gBCACfbtpvYrM8V1HM0KFlIwatcEJugHqwOHpr/Z9mrCW0fxyQAW/d +2L+3QVNsN9Tz/K9lLcBUgeR7rhVEzHNqhmhNj/HnikwGqXbIofhp+QbZmBKnAlCz +d77kg8K9lozHtfTkm1gX/7DdPzQKmgi7WOzzi2395wGubeqJLvYaEcqVbI0Eob+E +3CzRjNy/e/Tf3TJRW5etTcdZN6LVuIY7tNCHqlQZTwyycON/hfLTX6cLCnzDsqm/ +NxCuwn9aqP9aGRGfIu7Y+If3zTymvrXEPUN98OEID814bOKdx0uVTZRiSMbvuTGI +8uMa/kpGX/78rqI61gbZV51RFoU7pT2tzwY/ABEBAAG0HkouIFIuIEhhY2tlciA8 +anJoQGV4YW1wbGUuY29tPokBOAQTAQIAIgUCUk0HyAIbAwYLCQgHAwIGFQgCCQoL +BBYCAwECHgECF4AACgkQtpVAhgkYletuhQf+JAyHYhTZNxjq0UYlikuLX8EtYbXX +PB+03J0B73SMzEai5XsiTU2ADxqxwr7pveVK1INf+IGLiiXBlQq+4DSOvQY4xLfp +58jTOYRV1ECvlXK/JtvVOwufXREADaydf9l/MUxA5G2PPBWIuQknh3ysPSsx68OJ +SzNHFwklLn0DKc4WloE/GLDpTzimnCg7QGzuUo3Iilpjdy8EvTdI5d3jx/mGJIwI +goB+YZgyxSPM+GjDwh5DEwD7OexNqqa7RynnmU0epmlYyi9UufCHLwgiiEIzjpWi +6+iF+CQ45ZAKncovByenIUv73J3ImOudrsskeAHBmahljv1he6uV9Egj2Q== +=b5Kg +-----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 @@ +-----BEGIN PGP PRIVATE KEY BLOCK----- +Version: GnuPG v1.4.14 (GNU/Linux) + +lQO+BFJNB8gBCACfbtpvYrM8V1HM0KFlIwatcEJugHqwOHpr/Z9mrCW0fxyQAW/d +2L+3QVNsN9Tz/K9lLcBUgeR7rhVEzHNqhmhNj/HnikwGqXbIofhp+QbZmBKnAlCz +d77kg8K9lozHtfTkm1gX/7DdPzQKmgi7WOzzi2395wGubeqJLvYaEcqVbI0Eob+E +3CzRjNy/e/Tf3TJRW5etTcdZN6LVuIY7tNCHqlQZTwyycON/hfLTX6cLCnzDsqm/ +NxCuwn9aqP9aGRGfIu7Y+If3zTymvrXEPUN98OEID814bOKdx0uVTZRiSMbvuTGI +8uMa/kpGX/78rqI61gbZV51RFoU7pT2tzwY/ABEBAAH+AwMCKCCpPNXkXuVgF7cz +eByuvgIO7wImDYGOdJqsASSzV4q0u1acnGtlxg7WphKDF9RnC5+1ZZ1ZcrBcv2uJ +xZm2jHdjqM3FmgQTN70GVzO1nKEur2wxlKotG4Q+8BtaRDwHdKpQFk+QW9aInH3C +BkNWTK97iFwZaoUGxKuRJb35qjMe3SsDE7kdbtOqO+tOeppRVeOOZCn7F33ir/6i +j2gmIME6LFDzvBi6YAyMBSh90Ak70HJINt0QfXlZf5MtX1NaxaEcnsRmwwcNqxh9 +JvcC9q4WrR92NhHCHI+lOsAe7hbwo/VkwRjSSx0HdKkx6kvdcNj/9LeX/jykzLvg +kEqvAqT4Jmk57W2seqvpNcAO+eUVrJ5D1OR6khsUtikPp2pQH5MDXJDGcie+ZAFb +w6BwoWBDBjooKtfuP0LKqrdtJG2JLe6yhBhWvfqHPBlUU1SsA7a5aTCLo8FiqgEI +Kyy60zMx/2Mi48oN1a/mAoV1MTWLhOVUWJlIHM7nVLj1OaX0316LcLX/uTLTq40p +apHKwERanzY7f8ROiv/Fa/J+9cCsfOLKfjFAjpBVUVoOb39HsyS/vvkGMY4kgaD6 +K6r9JPdsaoYvsLkxk5HyHF7Mk2uS1z1EIArD2/3lRiX6ag+IU1Nl3XDkgfZj06K3 +juS84dGF8CmN49uOEjzAJAQZH9jTs5OKzUuZhGJF+gt0L78vLOoKRr8bu1N1GPqU +wnS908HWruXzjJl1CAhnuCa8FnDaU+tmEKjYpWuelx85kolpMW7LT5gOFZr84MIj +Kq3Rt2hU6qQ7Cdy1ep531YKkmyh9Y4l/Tgir1OtnQQqtNuwHI497l7qAUnKZBBHZ +guApjS9BoHsRXkw2mgDssZ+khOwj/xJm876nFSiQeCD0aIbU/4zJ9e2HUOJAZI1r +d7QeSi4gUi4gSGFja2VyIDxqcmhAZXhhbXBsZS5jb20+iQE4BBMBAgAiBQJSTQfI +AhsDBgsJCAcDAgYVCAIJCgsEFgIDAQIeAQIXgAAKCRC2lUCGCRiV626FB/4kDIdi +FNk3GOrRRiWKS4tfwS1htdc8H7TcnQHvdIzMRqLleyJNTYAPGrHCvum95UrUg1/4 +gYuKJcGVCr7gNI69BjjEt+nnyNM5hFXUQK+Vcr8m29U7C59dEQANrJ1/2X8xTEDk +bY88FYi5CSeHfKw9KzHrw4lLM0cXCSUufQMpzhaWgT8YsOlPOKacKDtAbO5SjciK +WmN3LwS9N0jl3ePH+YYkjAiCgH5hmDLFI8z4aMPCHkMTAPs57E2qprtHKeeZTR6m +aVjKL1S58IcvCCKIQjOOlaLr6IX4JDjlkAqdyi8HJ6chS/vcnciY652uyyR4AcGZ +qGWO/WF7q5X0SCPZ +=5FZK +-----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 Binary files /dev/null and b/test/lisp/emacs-lisp/package-resources/multi-file-0.2.3.tar 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 + (simple-single . + [(1 4) + nil "A single-file package with no dependencies" single]) + (simple-depend . + [(1 0) + ((simple-single (1 3))) "A single-file package with a dependency." single]) + (new-pkg . + [(1 0) + nil "A package only seen after "updating" archive-contents" single]) + (multi-file . + [(0 2 3) + 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 @@ +;;; new-pkg.el --- A package only seen after "updating" archive-contents + +;; Author: J. R. Hacker +;; Version: 1.0 + +;;; Commentary: + +;; This will only show up after updating "archive-contents". + +;;; Code: + +(defun new-pkg-frob () + "Ignore me." + (ignore)) + +(provide 'new-pkg) + +;;; 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 @@ +;;; simple-single.el --- A single-file package with no dependencies + +;; Author: J. R. Hacker +;; Version: 1.4 +;; Keywords: frobnicate + +;;; Commentary: + +;; This package provides a minor mode to frobnicate and/or bifurcate +;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" +;; and all your dreams will come true. +;; +;; This is a new, updated version. + +;;; Code: + +(defgroup simple-single nil "Simply a file" + :group 'lisp) + +(defcustom simple-single-super-sunday nil + "How great is this? +Default changed to nil." + :type 'boolean + :group 'simple-single + :package-version "1.4") + +(defvar simple-single-sudo-sandwich nil + "Make a sandwich?") + +;;;###autoload +(define-minor-mode simple-single-mode + "It does good things to stuff") + +(provide 'simple-single) + +;;; 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 @@ +import sys +import BaseHTTPServer +from SimpleHTTPServer import SimpleHTTPRequestHandler + + +HandlerClass = SimpleHTTPRequestHandler +ServerClass = BaseHTTPServer.HTTPServer +Protocol = "HTTP/1.0" + +if sys.argv[1:]: + port = int(sys.argv[1]) +else: + port = 8000 + server_address = ('127.0.0.1', port) + +HandlerClass.protocol_version = Protocol +httpd = ServerClass(server_address, HandlerClass) + +sa = httpd.socket.getsockname() +print "Serving HTTP on", sa[0], "port", sa[1], "..." +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 + (signed-good . + [(1 0) + nil "A package with good signature" single]) + (signed-bad . + [(1 0) + 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 Binary files /dev/null and b/test/lisp/emacs-lisp/package-resources/signed/archive-contents.sig 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 @@ +;;; signed-bad.el --- A single-file package with bad signature + +;; Author: J. R. Hacker +;; Version: 1.0 +;; Keywords: frobnicate +;; URL: http://doodles.au + +;;; Commentary: + +;; This package provides a minor mode to frobnicate and/or bifurcate +;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" +;; and all your dreams will come true. + +;;; Code: + +(defgroup signed-bad nil "Simply a file" + :group 'lisp) + +(defcustom signed-bad-super-sunday t + "How great is this?" + :type 'boolean + :group 'signed-bad) + +(defvar signed-bad-sudo-sandwich nil + "Make a sandwich?") + +;;;###autoload +(define-minor-mode signed-bad-mode + "It does good things to stuff") + +(provide 'signed-bad) + +;;; 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 Binary files /dev/null and b/test/lisp/emacs-lisp/package-resources/signed/signed-bad-1.0.el.sig 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 @@ +;;; signed-good.el --- A single-file package with good signature + +;; Author: J. R. Hacker +;; Version: 1.0 +;; Keywords: frobnicate +;; URL: http://doodles.au + +;;; Commentary: + +;; This package provides a minor mode to frobnicate and/or bifurcate +;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" +;; and all your dreams will come true. + +;;; Code: + +(defgroup signed-good nil "Simply a file" + :group 'lisp) + +(defcustom signed-good-super-sunday t + "How great is this?" + :type 'boolean + :group 'signed-good) + +(defvar signed-good-sudo-sandwich nil + "Make a sandwich?") + +;;;###autoload +(define-minor-mode signed-good-mode + "It does good things to stuff") + +(provide 'signed-good) + +;;; 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 Binary files /dev/null and b/test/lisp/emacs-lisp/package-resources/signed/signed-good-1.0.el.sig 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 @@ +;;; simple-depend.el --- A single-file package with a dependency. + +;; Author: J. R. Hacker +;; Version: 1.0 +;; Keywords: frobnicate +;; Package-Requires: ((simple-single "1.3")) + +;;; Commentary: + +;; Depends on another package. + +;;; Code: + +(defvar simple-depend "Value" + "Some trivial code") + +;;; 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 @@ +;;; simple-single.el --- A single-file package with no dependencies + +;; Author: J. R. Hacker +;; Version: 1.3 +;; Keywords: frobnicate +;; URL: http://doodles.au + +;;; Commentary: + +;; This package provides a minor mode to frobnicate and/or bifurcate +;; any flanges you desire. To activate it, type "C-M-r M-3 butterfly" +;; and all your dreams will come true. + +;;; Code: + +(defgroup simple-single nil "Simply a file" + :group 'lisp) + +(defcustom simple-single-super-sunday t + "How great is this?" + :type 'boolean + :group 'simple-single) + +(defvar simple-single-sudo-sandwich nil + "Make a sandwich?") + +;;;###autoload +(define-minor-mode simple-single-mode + "It does good things to stuff") + +(provide 'simple-single) + +;;; 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 @@ +This package provides a minor mode to frobnicate and/or bifurcate +any flanges you desire. To activate it, type "C-M-r M-3 butterfly" +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 @@ +;;; simple-two-depend.el --- A single-file package with two dependencies. + +;; Author: J. R. Hacker +;; Version: 1.1 +;; Keywords: frobnicate +;; Package-Requires: ((simple-depend "1.0") (simple-single "1.3")) + +;;; Commentary: + +;; Depends on two another packages. + +;;; Code: + +(defvar simple-two-depend "Value" + "Some trivial code") + +;;; 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 @@ (multi-file (0 1)))) "`package-desc' used for testing dependencies.") -(defvar package-test-data-dir (expand-file-name "data/package" package-test-file-dir) +(defvar package-test-data-dir (expand-file-name "package-resources" package-test-file-dir) "Base directory of package test files.") (defvar package-test-fake-contents-file @@ -190,18 +190,18 @@ Must called from within a `tar-mode' buffer." (ert-deftest package-test-desc-from-buffer () "Parse an elisp buffer to get a `package-desc' object." - (with-package-test (:basedir "data/package" :file "simple-single-1.3.el") + (with-package-test (:basedir "package-resources" :file "simple-single-1.3.el") (should (equal (package-buffer-info) simple-single-desc))) - (with-package-test (:basedir "data/package" :file "simple-depend-1.0.el") + (with-package-test (:basedir "package-resources" :file "simple-depend-1.0.el") (should (equal (package-buffer-info) simple-depend-desc))) - (with-package-test (:basedir "data/package" + (with-package-test (:basedir "package-resources" :file "multi-file-0.2.3.tar") (tar-mode) (should (equal (package-tar-file-info) multi-file-desc)))) (ert-deftest package-test-install-single () "Install a single file without using an archive." - (with-package-test (:basedir "data/package" :file "simple-single-1.3.el") + (with-package-test (:basedir "package-resources" :file "simple-single-1.3.el") (should (package-install-from-buffer)) (package-initialize) (should (package-installed-p 'simple-single)) @@ -269,7 +269,7 @@ Must called from within a `tar-mode' buffer." (ert-deftest package-test-install-prioritized () "Install a lower version from a higher-prioritized archive." (with-package-test () - (let* ((newer-version (expand-file-name "data/package/newer-versions" + (let* ((newer-version (expand-file-name "package-resources/newer-versions" package-test-file-dir)) (package-archives `(("older" . ,package-test-data-dir) ("newer" . ,newer-version))) @@ -285,7 +285,7 @@ Must called from within a `tar-mode' buffer." (ert-deftest package-test-install-multifile () "Check properties of the installed multi-file package." - (with-package-test (:basedir "data/package" :install '(multi-file)) + (with-package-test (:basedir "package-resources" :install '(multi-file)) (let ((autoload-file (expand-file-name "multi-file-autoloads.el" (expand-file-name @@ -336,7 +336,7 @@ Must called from within a `tar-mode' buffer." (package-menu-execute) (should (package-installed-p 'simple-single)) (let ((package-test-data-dir - (expand-file-name "data/package/newer-versions" package-test-file-dir))) + (expand-file-name "package-resources/newer-versions" package-test-file-dir))) (setq package-archives `(("gnu" . ,package-test-data-dir))) (package-menu-refresh) @@ -456,7 +456,7 @@ Must called from within a `tar-mode' buffer." (delete-directory homedir t))))) (let* ((keyring (expand-file-name "key.pub" package-test-data-dir)) (package-test-data-dir - (expand-file-name "data/package/signed" package-test-file-dir))) + (expand-file-name "package-resources/signed" package-test-file-dir))) (with-package-test () (package-initialize) (package-import-keyring keyring) @@ -508,7 +508,7 @@ Must called from within a `tar-mode' buffer." (ert-deftest package-x-test-upload-buffer () "Test creating an \"archive-contents\" file" - (with-package-test (:basedir "data/package" + (with-package-test (:basedir "package-resources" :file "simple-single-1.3.el" :upload-base t) (package-upload-buffer) @@ -532,7 +532,7 @@ Must called from within a `tar-mode' buffer." (ert-deftest package-x-test-upload-new-version () "Test uploading a new version of a package" - (with-package-test (:basedir "data/package" + (with-package-test (:basedir "package-resources" :file "simple-single-1.3.el" :upload-base t) (package-upload-buffer) @@ -599,6 +599,7 @@ Must called from within a `tar-mode' buffer." simple-depend-desc-2))) (should (equal (package--sort-by-dependence delete-list) + (list simple-depend-desc-2 simple-depend-desc-1 new-pkg-desc multi-file-desc simple-depend-desc simple-single-desc))) (should