Re: master 1601c5a518d: Gnus: Add back end for Atom feeds (nnatom)

[Michael Albinus]

Eric Abrahamsen <eric@ericabrahamsen.net> writes:

Hi,

> branch: master
> commit 1601c5a518dfa208af4827c56cf9570f3b90e15d
> Author: Daniel Semyonov <daniel@dsemy.com>
> Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
>
>     Gnus: Add back end for Atom feeds (nnatom)
>
>     * lisp/gnus/gnus.el (gnus-valid-select-methods): Add entry for nnatom.
>     * lisp/gnus/nnfeed.el: New file implementing an abstract web feed back
>     end.
>     * lisp/gnus/nnatom.el: New file implementing a back end for Atom feeds.
>     * doc/misc/gnus.texi (Browsing the Web, Back End Interface):
>     * etc/NEWS (Gnus): Document nnatom and nnfeed.
> ---
>  doc/misc/gnus.texi  |  77 ++++++
>  etc/NEWS            |  10 +
>  lisp/gnus/gnus.el   |   1 +
>  lisp/gnus/nnatom.el | 276 +++++++++++++++++++++
>  lisp/gnus/nnfeed.el | 683 
> ++++++++++++++++++++++++++++++++++++++++++++++++++++
>  5 files changed, 1047 insertions(+)

This fails the tests:

--8<---------------cut here---------------start------------->8---
# make -C test test-custom-opts

...

The following options might have problems:
variable: gnus-valid-select-methods
   value: (("nntp" post address prompt-address physical-address cloud) 
("nnspool" post address) ("nnvirtual" post-mail virtual prompt-address) 
("nnmbox" mail respool address) ("nnml" post-mail respool address) ("nnmh" mail 
respool address) ("nndir" post-mail prompt-address physical-address) 
("nneething" none address prompt-address physical-address) ("nndoc" none 
address prompt-address) ("nnbabyl" mail address respool) ("nndraft" post-mail) 
("nnfolder" mail respool address) ("nngateway" post-mail address prompt-address 
physical-address) ("nnweb" none) ("nnrss" none global) ("nnagent" post-mail) 
("nnimap" post-mail address prompt-address physical-address respool 
server-marks cloud) ("nnmaildir" mail respool address server-marks) ("nnatom" 
address) ("nnnil" none))
    type: (repeat (group (string :tag "Name") (radio-button-choice (const 
:format "%v " post) (const :format "%v " mail) (const :format "%v " none) 
(const post-mail)) (checklist :inline t :greedy t (const :format "%v " address) 
(const cloud) (const global) (const :format "%v " prompt-address) (const 
:format "%v " physical-address) (const virtual) (const :format "%v " respool) 
(const server-marks))))
variable: gnus-valid-select-methods
   value: (("nntp" post address prompt-address physical-address cloud) 
("nnspool" post address) ("nnvirtual" post-mail virtual prompt-address) 
("nnmbox" mail respool address) ("nnml" post-mail respool address) ("nnmh" mail 
respool address) ("nndir" post-mail prompt-address physical-address) 
("nneething" none address prompt-address physical-address) ("nndoc" none 
address prompt-address) ("nnbabyl" mail address respool) ("nndraft" post-mail) 
("nnfolder" mail respool address) ("nngateway" post-mail address prompt-address 
physical-address) ("nnweb" none) ("nnrss" none global) ("nnagent" post-mail) 
("nnimap" post-mail address prompt-address physical-address respool 
server-marks cloud) ("nnmaildir" mail respool address server-marks) ("nnatom" 
address) ("nnnil" none) ("nndiary" post-mail respool address) ("nnmairix" mail 
address virtual) ("nnselect" post-mail virtual) ("nnatom" address))
    type: (repeat (group (string :tag "Name") (radio-button-choice (const 
:format "%v " post) (const :format "%v " mail) (const :format "%v " none) 
(const post-mail)) (checklist :inline t :greedy t (const :format "%v " address) 
(const cloud) (const global) (const :format "%v " prompt-address) (const 
:format "%v " physical-address) (const virtual) (const :format "%v " respool) 
(const server-marks))))
Test check-for-wrong-custom-opts backtrace:
  signal(ert-test-failed (((should (null (cus-test-opts t))) :form (nu
  ert-fail(((should (null (cus-test-opts t))) :form (null ((gnus-valid
  #[0 "\301C\3021\f\0\10C0\202\27\0\1\303\240\210\211@\1AD\262\1\304C\
  #[0 "\303\300!\11>\204\17\0\304\305\306\300D\"\210\300\307H\303\1!\n
  handler-bind-1(#[0 "\303\300!\11>\204\17\0\304\305\306\300D\"\210\30
  ert--run-test-internal(#s(ert--test-execution-info :test ... :result
  ert-run-test(#s(ert-test :name check-for-wrong-custom-opts :document
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-m
  ert-run-tests((not (tag :unstable)) #[385 "\1\306\267\202X\4\11?\205
  ert-run-tests-batch((not (tag :unstable)))
  ert-run-tests-batch-and-exit((not (tag :unstable)))
  eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
  command-line-1(("-L" ":." "-l" "ert" "--eval" "(setq treesit-extra-l
  command-line()
  normal-top-level()
Test check-for-wrong-custom-opts condition:
    (ert-test-failed
     ((should (null (cus-test-opts t))) :form
      (null
       ((gnus-valid-select-methods :type-error ... ...)
        (gnus-valid-select-methods :type-error ... ...)))
      :value nil))
   FAILED  1/1  check-for-wrong-custom-opts (19.065213 sec) at 
misc/test-custom-opts.el:33
--8<---------------cut here---------------end--------------->8---

Best regards, Michael.