From 73c3f81d49cd9fdedb667016834e09e546ff5a2a Mon Sep 17 00:00:00 2001 From: Ulf Jasper Date: Sat, 29 Oct 2011 17:29:16 +0200 Subject: [PATCH] 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/ChangeLog | 3 +++ test/automated/newsticker-tests.el | 9 ++++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/test/ChangeLog b/test/ChangeLog index 354acf7eeac..dcdef6399e4 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,5 +1,8 @@ 2011-10-29 Ulf Jasper + * 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. 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)))) -- 2.39.5