mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

newsticker: Fixed bug#9763, again

Browse Source 
2011-10-29  Ulf Jasper  <ulf.jasper@web.de>

	* automated/newsticker-tests.el
	(newsticker--group-manage-orphan-feeds): Use fset instead of flet.
This commit is contained in:
Ulf Jasper 2011-10-29 17:29:16 +02:00
parent 6d6a626c20
commit 73c3f81d49
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/ChangeLog
View File

@ -1,5 +1,8 @@
2011-10-29 Ulf Jasper <ulf.jasper@web.de>
* automated/newsticker-tests.el
(newsticker--group-manage-orphan-feeds): Use fset instead of flet.
* trunk/test/automated/newsticker-tests.el
(newsticker--group-manage-orphan-feeds): Prevent updating
newsticker treeview. Fixed bug#9763.

9
test/automated/newsticker-tests.el
View File

@ -138,11 +138,14 @@ Apply to INPUT and compare with EXPECTED."
Signals an error if something goes wrong."
(let ((newsticker-groups '("Feeds"))
(newsticker-url-list-defaults nil)
(newsticker-url-list '(("feed1") ("feed2") ("feed3"))))
(newsticker-url-list '(("feed1") ("feed2") ("feed3")))
t-nttvtu)
;; prevent updating the treeview as it does not exist during fully
;; automated tests
(flet ((newsticker--treeview-tree-update nil nil))
(newsticker--group-manage-orphan-feeds))
(fset 't-nttvtu (symbol-function 'newsticker--treeview-tree-update))
(fset 'newsticker--treeview-tree-update (lambda() nil))
(newsticker--group-manage-orphan-feeds)
(fset 'newsticker--treeview-tree-update (symbol-function 't-nttvtu))
(should (equal '("Feeds" "feed3" "feed2" "feed1")
newsticker-groups))))