diff --git a/test/el-get-issue-559.el b/test/el-get-issue-559.el new file mode 100644 index 00000000..c3751c20 --- /dev/null +++ b/test/el-get-issue-559.el @@ -0,0 +1,39 @@ +;; https://github.com/dimitri/el-get/issues/559 +;; +;; Testing the github-tar and github-zip methods + +(let ((debug-on-error t) + ;; (el-get-byte-compile nil) + (el-get-verbose t) + (el-get-sources + '((:name indirect-region-http-tar + :type http-tar + :options ("xzf") + :description "Act like indirect buffer for region." + :url "https://github.com/renard/indirect-region/tarball/master") + (:name indirect-region-tar + :type github-tar + :description "Act like indirect buffer for region." + :pkgname "renard/indirect-region") + (:name indirect-region-zip + :type github-zip + :description "Act like indirect buffer for region." + :pkgname "renard/indirect-region")))) + (require 'el-get) + ;; Install a http-tar recipe + (el-get 'sync 'indirect-region-http-tar) + ;; Install a github-tar recipe + (el-get 'sync 'indirect-region-tar) + ;; Install a github-zip recipe + (el-get 'sync 'indirect-region-zip) + + (condition-case err + (progn + ;; Should fail + (let ((el-get-sources + '((:name broken-pkg + :type github-tar)))) + (el-get 'sync 'broken-pkg)) + (signal 'test-failure + '("The package\"broken-pkg\" should have caused an error, but it didn't."))) + (error (message "Installing \"broken-pkg\" failed as expected. The error message was: %S" err))))