Commit 5993c059 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

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

parent fec2107c
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):
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment