2012-06-13 23:15:59 +08:00
|
|
|
;; https://github.com/dimitri/el-get/issues/619
|
|
|
|
|
;;
|
|
|
|
|
;; :checkout property for hg
|
|
|
|
|
|
|
|
|
|
(require 'cl)
|
|
|
|
|
(let* ((debug-on-error t)
|
|
|
|
|
(el-get-verbose t)
|
2012-10-07 09:23:58 +08:00
|
|
|
;; Just need to install something hg-method
|
|
|
|
|
(pkg 'ahg)
|
|
|
|
|
;; https://bitbucket.org/agriggio/ahg/changeset/c732a739a7a1/raw/
|
|
|
|
|
(checksum "c732a739a7a1505d5922e94e4368b656dccddf11")
|
2012-06-13 23:15:59 +08:00
|
|
|
(el-get-sources
|
|
|
|
|
(list
|
|
|
|
|
`(:name ,pkg
|
|
|
|
|
:checksum ,checksum))))
|
2012-10-07 09:24:42 +08:00
|
|
|
(assert (eq (el-get-package-type pkg) 'hg) nil
|
2012-10-31 18:29:07 +08:00
|
|
|
"Package %s is supposed to be an hg type package but is actually %s. You should edit this test to use another package."
|
2012-10-07 09:24:42 +08:00
|
|
|
pkg (el-get-package-type pkg))
|
2012-06-13 23:15:59 +08:00
|
|
|
(el-get 'sync pkg)
|
|
|
|
|
(assert (el-get-package-is-installed pkg))
|
|
|
|
|
(let (installed-checksum)
|
|
|
|
|
(setq installed-checksum (el-get-checksum pkg))
|
|
|
|
|
(message "Installed checksum is %s" installed-checksum)
|
|
|
|
|
(assert (string= checksum installed-checksum) nil
|
|
|
|
|
"Package %s should have checksum %s but it is actually %s"
|
|
|
|
|
pkg checksum installed-checksum)))
|
