From: Ulf Jasper Date: Sat, 29 Oct 2011 15:29:16 +0000 (+0200) Subject: newsticker: Fixed bug#9763, again X-Git-Tag: emacs-pretest-24.0.91~17 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73c3f81d49cd9fdedb667016834e09e546ff5a2a;p=emacs.git newsticker: Fixed bug#9763, again 2011-10-29 Ulf Jasper * automated/newsticker-tests.el (newsticker--group-manage-orphan-feeds): Use fset instead of flet. --- 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))))