mirror of
https://github.com/correl/melpa.git
synced 2024-11-25 03:00:10 +00:00
23 lines
601 B
EmacsLisp
23 lines
601 B
EmacsLisp
|
(Given "^initialization$"
|
||
|
|
(lambda ()
|
||
|
|
(package-build-initialize)))
|
||
|
|
|
||
|
|
(Given "^read recipes$"
|
||
|
|
(lambda ()
|
||
|
|
(pb/read-recipes)))
|
||
|
|
|
||
|
|
(Given "^capture messages to \\(.+\\)$"
|
||
|
|
(lambda (varby)
|
||
|
|
(message "****** %s" varby)
|
||
|
|
(collect-messages-to varby)))
|
||
|
|
|
||
|
|
(Given "^package initialization$"
|
||
|
|
(lambda ()
|
||
|
|
(package-initialize)))
|
||
|
|
|
||
|
|
(Then "^\\(.+\\) should be empty"
|
||
|
|
(lambda (var)
|
||
|
|
(message "//////// %s" (eval (intern var)))
|
||
|
|
(let ((varsym (intern var)))
|
||
|
|
(assert (not (eval varsym)) nil "Variable %s is not empty." var))))
|