[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)
- [elpa] externals/webfeeder updated (914a1d0 -> da705f9), Stefan Monnier, 2021/03/15
- [elpa] externals/webfeeder da705f9 5/5: Fix test data with escaped subtitle., Stefan Monnier, 2021/03/15
- [elpa] externals/webfeeder 1084a5d 2/5: Fix test with default author function., Stefan Monnier, 2021/03/15
- [elpa] externals/webfeeder e9ce707 3/5: Parse author, title and subtitle XML when using default functions., Stefan Monnier, 2021/03/15
- [elpa] externals/webfeeder 0e25358 1/5: webfeeder-test: Reindent.,
Stefan Monnier <=
- [elpa] externals/webfeeder 943ac61 4/5: Actually escape title and subtitle., Stefan Monnier, 2021/03/15