[elpa] externals/org db6c229786: testing/lisp: Update to handle new download policy

[ELPA Syncer]

branch: externals/org
commit db6c229786cc4f0855483145471d3543a9f0f199
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>

    testing/lisp: Update to handle new download policy
    
    * testing/lisp/test-ox.el: Bind `org-resource-download-policy' to t when
    testing downloading.
    
    * testing/lisp/test-org.el: Bind `org-resource-download-policy' to t
    when testing downloading.
---
 testing/lisp/test-org.el | 23 ++++++++++++-----------
 testing/lisp/test-ox.el  |  3 ++-
 2 files changed, 14 insertions(+), 12 deletions(-)

diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 2a2edc69e0..cc9aba3a1a 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -3439,17 +3439,18 @@ SCHEDULED: <2017-05-06 Sat>
    (progn (org-file-contents "this-file-must-not-exist" :noerror) t))
   ;; Open URL.
   (should
-   (string= "foo"
-           (let ((buffer (generate-new-buffer "url-retrieve-output")))
-             (unwind-protect
-                 ;; Simulate successful retrieval of a URL.
-                 (cl-letf (((symbol-function 'url-retrieve-synchronously)
-                            (lambda (&rest_)
-                              (with-current-buffer buffer
-                                (insert "HTTP/1.1 200 OK\n\nfoo"))
-                              buffer)))
-                   (org-file-contents "http://some-valid-url";))
-               (kill-buffer buffer)))))
+   (let ((org-resource-download-policy t))
+     (string= "foo"
+              (let ((buffer (generate-new-buffer "url-retrieve-output")))
+                (unwind-protect
+                    ;; Simulate successful retrieval of a URL.
+                    (cl-letf (((symbol-function 'url-retrieve-synchronously)
+                               (lambda (&rest_)
+                                 (with-current-buffer buffer
+                                   (insert "HTTP/1.1 200 OK\n\nfoo"))
+                                 buffer)))
+                      (org-file-contents "http://some-valid-url";))
+                  (kill-buffer buffer))))))
   ;; Throw error when trying to access an invalid URL.
   (should-error
    (let ((buffer (generate-new-buffer "url-retrieve-output")))
diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el
index 28f9508132..7c71b6e244 100644
--- a/testing/lisp/test-ox.el
+++ b/testing/lisp/test-ox.el
@@ -238,7 +238,8 @@ num:2 <:active")))
       (org-export--get-inbuffer-options))
     '(:language "fr" :select-tags ("a" "b" "c") :title ("a b c"))))
   ;; Options set through SETUPFILE specified using a URL.
-  (let ((buffer (generate-new-buffer "url-retrieve-output")))
+  (let ((buffer (generate-new-buffer "url-retrieve-output"))
+        (org-resource-download-policy t))
     (unwind-protect
        ;; Simulate successful retrieval of a setupfile from URL.
        (cl-letf (((symbol-function 'url-retrieve-synchronously)