diff options
| author | Ulf Jasper <ulf.jasper@web.de> | 2011-10-29 17:29:16 +0200 |
|---|---|---|
| committer | Ulf Jasper <ulf.jasper@web.de> | 2011-10-29 17:29:16 +0200 |
| commit | 73c3f81d49cd9fdedb667016834e09e546ff5a2a (patch) | |
| tree | d138e9f7b5cc502d66cb6a6aa71758ac216d4449 /test | |
| parent | 6d6a626c20ba00b8d8704236d5c21ff2d185134d (diff) | |
| download | emacs-73c3f81d49cd9fdedb667016834e09e546ff5a2a.tar.gz | |
newsticker: Fixed bug#9763, again
2011-10-29 Ulf Jasper <ulf.jasper@web.de>
* automated/newsticker-tests.el
(newsticker--group-manage-orphan-feeds): Use fset instead of flet.
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 3 | ||||
| -rw-r--r-- | 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 <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. 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)))) |