[Emacs-diffs] /srv/bzr/emacs/trunk r107270: Move url-future.el ERT test to test/automated/url-future-tests.el.

[Ted Zlatanov]

------------------------------------------------------------
revno: 107270
committer: Ted Zlatanov <address@hidden>
branch nick: quickfixes
timestamp: Mon 2012-02-13 13:45:36 -0500
message:
  Move url-future.el ERT test to test/automated/url-future-tests.el.
  
  * lisp/url/url-future.el (url-future-test): Move to test/automated.
  
  * test/automated/url-future-tests.el (url-future-tests): Move from
  lisp/url/url-future.el and rename.
added:
  test/automated/url-future-tests.el
modified:
  lisp/url/ChangeLog
  lisp/url/url-future.el
  test/ChangeLog

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2012-02-10 17:25:31 +0000
+++ b/lisp/url/ChangeLog        2012-02-13 18:45:36 +0000
@@ -1,3 +1,7 @@
+2012-02-13  Teodor Zlatanov  <address@hidden>
+
+       * url-future.el (url-future-test): Move to test/automated.
+
 2012-02-10  Lars Ingebrigtsen  <address@hidden>
 
        * url-http.el (url-http-parse-headers): When redirecting, pass on

=== modified file 'lisp/url/url-future.el'
--- a/lisp/url/url-future.el    2012-01-05 09:46:05 +0000
+++ b/lisp/url/url-future.el    2012-02-13 18:45:36 +0000
@@ -95,32 +95,5 @@
       (signal 'error 'url-future-already-done)
     (url-future-finish url-future 'cancel)))
 
-(ert-deftest url-future-test ()
-  (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))
-                               :errorback (lambda (&rest d) (set 'saver d))))
-         (tocancel (make-url-future :value (lambda () (/ 1 0))
-                                    :callback (lambda (f) (set 'saver f))
-                                    :errorback (lambda (&rest d)
-                                                 (set 'saver d)))))
-    (should (equal good (url-future-call good)))
-    (should (equal good saver))
-    (should (equal text (url-future-value good)))
-    (should (url-future-completed-p good))
-    (should-error (url-future-call good))
-    (setq saver nil)
-    (should (equal bad (url-future-call bad)))
-    (should-error (url-future-call bad))
-    (should (equal saver (list bad '(arith-error))))
-    (should (url-future-errored-p bad))
-    (setq saver nil)
-    (should (equal (url-future-cancel tocancel) tocancel))
-    (should-error (url-future-call tocancel))
-    (should (null saver))
-    (should (url-future-cancelled-p tocancel))))
-
 (provide 'url-future)
 ;;; url-future.el ends here

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2012-02-09 07:48:22 +0000
+++ b/test/ChangeLog    2012-02-13 18:45:36 +0000
@@ -1,3 +1,8 @@
+2012-02-13  Teodor Zlatanov  <address@hidden>
+
+       * automated/url-future-tests.el (url-future-tests): Move from
+       lisp/url/url-future.el and rename.
+
 2012-01-29  Ulf Jasper  <address@hidden>
 
        * automated/icalendar-tests.el (icalendar-import-non-recurring):

=== added file 'test/automated/url-future-tests.el'
--- a/test/automated/url-future-tests.el        1970-01-01 00:00:00 +0000
+++ b/test/automated/url-future-tests.el        2012-02-13 18:45:36 +0000
@@ -0,0 +1,57 @@
+;;; url-future-tests.el --- Test suite for url-future.
+
+;; Copyright (C) 2011-2012  Free Software Foundation, Inc.
+
+;; Author: Teodor Zlatanov <address@hidden>
+;; Keywords: data
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+(require 'url-future)
+
+(ert-deftest url-future-tests ()
+  (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))
+                               :errorback (lambda (&rest d) (set 'saver d))))
+         (tocancel (make-url-future :value (lambda () (/ 1 0))
+                                    :callback (lambda (f) (set 'saver f))
+                                    :errorback (lambda (&rest d)
+                                                 (set 'saver d)))))
+    (should (equal good (url-future-call good)))
+    (should (equal good saver))
+    (should (equal text (url-future-value good)))
+    (should (url-future-completed-p good))
+    (should-error (url-future-call good))
+    (setq saver nil)
+    (should (equal bad (url-future-call bad)))
+    (should-error (url-future-call bad))
+    (should (equal saver (list bad '(arith-error))))
+    (should (url-future-errored-p bad))
+    (setq saver nil)
+    (should (equal (url-future-cancel tocancel) tocancel))
+    (should-error (url-future-call tocancel))
+    (should (null saver))
+    (should (url-future-cancelled-p tocancel))))
+
+(provide 'url-future-tests)
+
+;;; url-future-tests.el ends here