[Emacs-diffs] /srv/bzr/emacs/trunk r104483: * lisp/url/url-future.el (url-future-test): Fix scope of `saver'.

[Andreas Schwab]

------------------------------------------------------------
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)))