[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/webfeeder 272bad4 02/22: webfeeder-test.el: Privatize -
From: |
Pierre Neidhardt |
Subject: |
[elpa] externals/webfeeder 272bad4 02/22: webfeeder-test.el: Privatize -test-pages |
Date: |
Tue, 26 Mar 2019 07:10:00 -0400 (EDT) |
branch: externals/webfeeder
commit 272bad44e8cac63e244e99aad8d52309c384f61b
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>
webfeeder-test.el: Privatize -test-pages
---
webfeeder-test.el | 27 +++++++++++++--------------
1 file changed, 13 insertions(+), 14 deletions(-)
diff --git a/webfeeder-test.el b/webfeeder-test.el
index 1966b91..2fe1159 100644
--- a/webfeeder-test.el
+++ b/webfeeder-test.el
@@ -38,8 +38,7 @@
(put 'string= 'ert-explainer 'webfeeder--string=-explainer)
-;; TODO: Make private.
-(defun webfeeder-test-pages (feed html-files
+(defun webfeeder--test-pages (feed html-files
&optional builder max-entries)
(setq builder (or builder 'webfeeder-make-atom))
(let* ((feed-buffer (webfeeder--file-to-string feed))
@@ -87,7 +86,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-libxml)
(webfeeder-title-function 'webfeeder-title-libxml)
(webfeeder-body-function 'webfeeder-body-libxml))
- (webfeeder-test-pages "libxml-post0.rss" '("post0-html5-fancy.html")
+ (webfeeder--test-pages "libxml-post0.rss" '("post0-html5-fancy.html")
'webfeeder-make-rss))))
(ert-deftest webfeeder-single-page-default ()
@@ -97,7 +96,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-default)
(webfeeder-title-function 'webfeeder-title-default)
(webfeeder-body-function 'webfeeder-body-default))
- (webfeeder-test-pages "default-post0.rss" '("post0-html5-fancy.html")
+ (webfeeder--test-pages "default-post0.rss" '("post0-html5-fancy.html")
'webfeeder-make-rss))))
(ert-deftest webfeeder-multi-page-libxml ()
@@ -106,7 +105,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-libxml)
(webfeeder-title-function 'webfeeder-title-libxml)
(webfeeder-body-function 'webfeeder-body-libxml))
- (webfeeder-test-pages "libxml-post0+post1.rss" '("post0-html5-fancy.html"
+ (webfeeder--test-pages "libxml-post0+post1.rss"
'("post0-html5-fancy.html"
"post1-html5-fancy.html")
'webfeeder-make-rss))))
@@ -116,7 +115,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-libxml)
(webfeeder-title-function 'webfeeder-title-libxml)
(webfeeder-body-function 'webfeeder-body-libxml))
- (webfeeder-test-pages "libxml-post1.rss" '("post0-html5-fancy.html"
+ (webfeeder--test-pages "libxml-post1.rss" '("post0-html5-fancy.html"
"post1-html5-fancy.html")
'webfeeder-make-rss 1))))
@@ -126,7 +125,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-libxml)
(webfeeder-title-function 'webfeeder-title-libxml)
(webfeeder-body-function 'webfeeder-body-libxml))
- (webfeeder-test-pages "libxml-post0-no-html.rss" '("post0.html")
+ (webfeeder--test-pages "libxml-post0-no-html.rss" '("post0.html")
'webfeeder-make-rss))))
(ert-deftest webfeeder-single-page-no-fancy ()
@@ -135,7 +134,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-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--test-pages "libxml-post0-no-fancy.rss" '("post0-html5.html")
'webfeeder-make-rss))))
;; Atom tests.
@@ -145,7 +144,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-libxml)
(webfeeder-title-function 'webfeeder-title-libxml)
(webfeeder-body-function 'webfeeder-body-libxml))
- (webfeeder-test-pages "libxml-post0.atom" '("post0-html5-fancy.html")
+ (webfeeder--test-pages "libxml-post0.atom" '("post0-html5-fancy.html")
'webfeeder-make-atom))))
(ert-deftest webfeeder-single-atom-default ()
@@ -154,7 +153,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-default)
(webfeeder-title-function 'webfeeder-title-default)
(webfeeder-body-function 'webfeeder-body-default))
- (webfeeder-test-pages "default-post0.atom" '("post0-html5-fancy.html")
+ (webfeeder--test-pages "default-post0.atom" '("post0-html5-fancy.html")
'webfeeder-make-atom))))
(ert-deftest webfeeder-multi-atom-libxml ()
@@ -163,7 +162,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-libxml)
(webfeeder-title-function 'webfeeder-title-libxml)
(webfeeder-body-function 'webfeeder-body-libxml))
- (webfeeder-test-pages "libxml-post0+post1.atom"
'("post0-html5-fancy.html"
+ (webfeeder--test-pages "libxml-post0+post1.atom"
'("post0-html5-fancy.html"
"post1-html5-fancy.html")
'webfeeder-make-atom))))
@@ -173,7 +172,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-libxml)
(webfeeder-title-function 'webfeeder-title-libxml)
(webfeeder-body-function 'webfeeder-body-libxml))
- (webfeeder-test-pages "libxml-post1.atom" '("post0-html5-fancy.html"
+ (webfeeder--test-pages "libxml-post1.atom" '("post0-html5-fancy.html"
"post1-html5-fancy.html")
'webfeeder-make-atom 1))))
@@ -183,7 +182,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-libxml)
(webfeeder-title-function 'webfeeder-title-libxml)
(webfeeder-body-function 'webfeeder-body-libxml))
- (webfeeder-test-pages "libxml-post0-no-html.atom" '("post0.html")
+ (webfeeder--test-pages "libxml-post0-no-html.atom" '("post0.html")
'webfeeder-make-atom))))
(ert-deftest webfeeder-single-atom-no-fancy ()
@@ -192,7 +191,7 @@ This requires an Emacs compiled against libxml."
(let ((webfeeder-date-function 'webfeeder-date-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--test-pages "libxml-post0-no-fancy.atom" '("post0-html5.html")
'webfeeder-make-atom))))
(provide 'webfeeder-test)
- [elpa] externals/webfeeder 640b214 05/22: readme.org: Recommend libxml, (continued)
- [elpa] externals/webfeeder 640b214 05/22: readme.org: Recommend libxml, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 1355a7b 08/22: webfeeder.el: Copy the readme into the commentary, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder bfeb09c 16/22: RSS: Remove subtitle from items since they are not supported by the standard, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder f34e3d6 07/22: readme.org: Fix rename feed-builder -> webfeeder, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 989c576 10/22: Atom: Remove <summary> from parent node, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 73b905e 14/22: Atom: Specify type for content, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 4e980b2 17/22: RSS: Only include author if an email address is found in the string, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder be073b5 06/22: webfeeder.el: Edit most docstrings, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 2b10906 18/22: Atom: Add support for email address in author field, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder b5148b4 22/22: Version 1.0.0, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 272bad4 02/22: webfeeder-test.el: Privatize -test-pages,
Pierre Neidhardt <=
- [elpa] externals/webfeeder 9083513 21/22: Assign copyright to the Free Software Foundation, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 0f0ca1d 09/22: Atom: Fix missing closing tag in <link />, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 6e0a8d5 12/22: Fall back on default author set in webfeeder-default-author, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder a7cfbf1 11/22: Atom: Separate time with ":" in rfc3339, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 567fbe3 13/22: Atom: Always href attribute for links, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder e462414 19/22: testdata/post0.org: Add email address, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder b1986c3 15/22: Atom: Don't test top-level descriptions, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 26f5200 20/22: Update test feeds, Pierre Neidhardt, 2019/03/26
- [elpa] externals/webfeeder 7000480 01/22: Init, Pierre Neidhardt, 2019/03/26