[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104483: * lisp/url/url-future.el (ur
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104483: * lisp/url/url-future.el (url-future-test): Fix scope of `saver'. |
Date: |
Sat, 04 Jun 2011 09:53:22 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104483
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sat 2011-06-04 09:53:22 +0200
message:
* lisp/url/url-future.el (url-future-test): Fix scope of `saver'.
modified:
lisp/url/ChangeLog
lisp/url/url-future.el
=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog 2011-06-01 17:34:24 +0000
+++ b/lisp/url/ChangeLog 2011-06-04 07:53:22 +0000
@@ -1,3 +1,7 @@
+2011-06-04 Andreas Schwab <address@hidden>
+
+ * url-future.el (url-future-test): Fix scope of `saver'.
+
2011-06-01 Glenn Morris <address@hidden>
* url-queue.el (url-queue-parallel-processes, url-queue-timeout):
=== modified file 'lisp/url/url-future.el'
--- a/lisp/url/url-future.el 2011-05-31 10:47:22 +0000
+++ b/lisp/url/url-future.el 2011-06-04 07:53:22 +0000
@@ -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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104483: * lisp/url/url-future.el (url-future-test): Fix scope of `saver'.,
Andreas Schwab <=