From 73c3f81d49cd9fdedb667016834e09e546ff5a2a Mon Sep 17 00:00:00 2001 From: Ulf Jasper Date: Sat, 29 Oct 2011 17:29:16 +0200 Subject: newsticker: Fixed bug#9763, again 2011-10-29 Ulf Jasper * automated/newsticker-tests.el (newsticker--group-manage-orphan-feeds): Use fset instead of flet. --- test/automated/newsticker-tests.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'test/automated/newsticker-tests.el') diff --git a/test/automated/newsticker-tests.el b/test/automated/newsticker-tests.el index 8b94cf862d1..ba7fe20786b 100644 --- a/test/automated/newsticker-tests.el +++ b/test/automated/newsticker-tests.el @@ -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)))) -- cgit v1.2.1