procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/url/url-future.el (url-future-test): Fix scope of `saver'.

Browse source
This commit is contained in:
Andreas Schwab 2011-06-04 09:53:22 +02:00
parent fec2107c58
commit 5993c059db
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/url/ChangeLog
View file

@ -1,3 +1,7 @@
2011-06-04 Andreas Schwab <schwab@linux-m68k.org>
* url-future.el (url-future-test): Fix scope of `saver'.
2011-06-01 Glenn Morris <rgm@gnu.org>
* url-queue.el (url-queue-parallel-processes, url-queue-timeout):

6
lisp/url/url-future.el
View file

@ -96,7 +96,8 @@
(url-future-finish url-future 'cancel)))
(ert-deftest url-future-test ()
(let* ((text "running future")
(let* (saver
(text "running future")
(good (make-url-future :value (lambda () (format text))
:callback (lambda (f) (set 'saver f))))
(bad (make-url-future :value (lambda () (/ 1 0))
@ -104,8 +105,7 @@
(tocancel (make-url-future :value (lambda () (/ 1 0))
:callback (lambda (f) (set 'saver f))
:errorback (lambda (&rest d)
(set 'saver d))))
saver)
(set 'saver d)))))
(should (equal good (url-future-call good)))
(should (equal good saver))
(should (equal text (url-future-value good)))