emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/webfeeder 0e25358 1/5: webfeeder-test: Reindent.


From: Stefan Monnier
Subject: [elpa] externals/webfeeder 0e25358 1/5: webfeeder-test: Reindent.
Date: Mon, 15 Mar 2021 22:29:35 -0400 (EDT)

branch: externals/webfeeder
commit 0e2535802ff216aed7cde254521fa0164ad8fb47
Author: Pierre Neidhardt <mail@ambrevar.xyz>
Commit: Pierre Neidhardt <mail@ambrevar.xyz>

    webfeeder-test: Reindent.
---
 webfeeder-test.el | 52 ++++++++++++++++++++++++++--------------------------
 1 file changed, 26 insertions(+), 26 deletions(-)

diff --git a/webfeeder-test.el b/webfeeder-test.el
index 3a8b9f8..f7441f0 100644
--- a/webfeeder-test.el
+++ b/webfeeder-test.el
@@ -58,11 +58,11 @@
 (put 'string= 'ert-explainer #'webfeeder--string=-explainer)
 
 (defun webfeeder--test-pages (feed html-files
-                                     &optional builder max-entries)
+                                   &optional builder max-entries)
   (setq builder (or builder 'webfeeder-make-atom))
   (let* ((feed-buffer (webfeeder--file-to-string feed))
          (feed-items (webfeeder-html-files-to-items "." "https://example.org/";
-                                                       html-files)))
+                                                    html-files)))
     (should
      (string=
       feed-buffer
@@ -75,18 +75,18 @@
      (string=
       feed-buffer
       (funcall builder feed "https://example.org/"; feed-items
-                                 :title "Example TYPO"
-                                 :description "Example description"
-                                 :build-date 0
-                                 :max-entries max-entries)))
+               :title "Example TYPO"
+               :description "Example description"
+               :build-date 0
+               :max-entries max-entries)))
     (should-not
      (string=
       feed-buffer
       (funcall builder feed "https://example.XYZ/"; feed-items
-                                 :title "Example feed"
-                                 :description "Example description"
-                                 :build-date 0
-                                 :max-entries max-entries)))
+               :title "Example feed"
+               :description "Example description"
+               :build-date 0
+               :max-entries max-entries)))
     (when (eq builder 'webfeeder-make-rss)
       ;; This test is irrelevant to Atom since it does not have a top-level
       ;; "description".
@@ -108,7 +108,7 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post0.rss" '("post0-html5-fancy.html")
-                               'webfeeder-make-rss))))
+                             'webfeeder-make-rss))))
 
 (ert-deftest webfeeder-single-rss-default ()
   "Simple test using regular expressions to parse XML."
@@ -118,7 +118,7 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-default)
           (webfeeder-body-function 'webfeeder-body-default))
       (webfeeder--test-pages "default-post0.rss" '("post0-html5-fancy.html")
-                               'webfeeder-make-rss))))
+                             'webfeeder-make-rss))))
 
 (ert-deftest webfeeder-multi-rss-libxml ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -127,8 +127,8 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post0+post1.rss" 
'("post0-html5-fancy.html"
-                                                          
"post1-html5-fancy.html")
-                               'webfeeder-make-rss))))
+                                                        
"post1-html5-fancy.html")
+                             'webfeeder-make-rss))))
 
 (ert-deftest webfeeder-limited-multi-rss-libxml ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -137,8 +137,8 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post1.rss" '("post0-html5-fancy.html"
-                                                    "post1-html5-fancy.html")
-                               'webfeeder-make-rss 1))))
+                                                  "post1-html5-fancy.html")
+                             'webfeeder-make-rss 1))))
 
 (ert-deftest webfeeder-single-rss-no-html5 ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -147,7 +147,7 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post0-no-html.rss" '("post0.html")
-                               'webfeeder-make-rss))))
+                             'webfeeder-make-rss))))
 
 (ert-deftest webfeeder-single-rss-no-fancy ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -156,7 +156,7 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post0-no-fancy.rss" '("post0-html5.html")
-                               'webfeeder-make-rss))))
+                             'webfeeder-make-rss))))
 
 ;; Atom tests.
 (ert-deftest webfeeder-single-atom-libxml ()
@@ -166,7 +166,7 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post0.atom" '("post0-html5-fancy.html")
-                                     'webfeeder-make-atom))))
+                             'webfeeder-make-atom))))
 
 (ert-deftest webfeeder-single-atom-default ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -175,7 +175,7 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-default)
           (webfeeder-body-function 'webfeeder-body-default))
       (webfeeder--test-pages "default-post0.atom" '("post0-html5-fancy.html")
-                                     'webfeeder-make-atom))))
+                             'webfeeder-make-atom))))
 
 (ert-deftest webfeeder-multi-atom-libxml ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -184,8 +184,8 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post0+post1.atom" 
'("post0-html5-fancy.html"
-                                                                
"post1-html5-fancy.html")
-                                     'webfeeder-make-atom))))
+                                                         
"post1-html5-fancy.html")
+                             'webfeeder-make-atom))))
 
 (ert-deftest webfeeder-limited-multi-atom-libxml ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -194,8 +194,8 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post1.atom" '("post0-html5-fancy.html"
-                                                    "post1-html5-fancy.html")
-                               'webfeeder-make-atom 1))))
+                                                   "post1-html5-fancy.html")
+                             'webfeeder-make-atom 1))))
 
 (ert-deftest webfeeder-single-atom-no-html5 ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -204,7 +204,7 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post0-no-html.atom" '("post0.html")
-                                     'webfeeder-make-atom))))
+                             'webfeeder-make-atom))))
 
 (ert-deftest webfeeder-single-atom-no-fancy ()
   (cl-assert (file-directory-p webfeeder-test-dir))
@@ -213,6 +213,6 @@ This requires an Emacs compiled against libxml."
           (webfeeder-title-function 'webfeeder-title-libxml)
           (webfeeder-body-function 'webfeeder-body-libxml))
       (webfeeder--test-pages "libxml-post0-no-fancy.atom" '("post0-html5.html")
-                                     'webfeeder-make-atom))))
+                             'webfeeder-make-atom))))
 
 (provide 'webfeeder-test)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]