mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 13:08:51 +08:00
cb787b2a7a
This prevents Emacs from inserting "..." in place of very deep or long data structures, which could corrupt the status file in some cases. This is done by defining a wrapper function "el-get-print-to-string", which el-get should use for all "critical" stringification tasks. As noted in #689.
32 lines
1.1 KiB
EmacsLisp
32 lines
1.1 KiB
EmacsLisp
;; https://github.com/dimitri/el-get/issues/672
|
|
;;
|
|
;; Status file migration fails with removed and unavailable recipe
|
|
|
|
;; Just install some package to make sure el-get creates the
|
|
;; appropriate directories
|
|
(setq el-get-sources
|
|
(list '(:name a
|
|
:type builtin))
|
|
debug-on-error t)
|
|
(el-get-install 'a)
|
|
|
|
;; Set up the status file with a removed package that has no current
|
|
;; recipe available.
|
|
(with-temp-buffer
|
|
(insert (el-get-print-to-string
|
|
'(:nonexistent-package "removed")))
|
|
(write-file el-get-status-file))
|
|
|
|
;; Now try to read the status file. Without a fix, it will try to read
|
|
;; the recipe for "nonexistent-package" and fail, throwing an error.
|
|
(el-get-read-status-file)
|
|
|
|
;; Try to write package's status as "removed", which will also convert
|
|
;; the status file to the new format. Without a fix, it will again try
|
|
;; and fail to find the nonexistent recipe.
|
|
(el-get-save-package-status 'nonexistent-package "removed")
|
|
|
|
;; Now the list of package status recipes should be nil because no
|
|
;; packages are installed.
|
|
(assert (equal (el-get-package-status-recipes) nil) nil)
|