;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require ert webfeeder diff cl-lib] 2) (defvar webfeeder-test-dir "testdata") #@47 Return the file content as string. (fn FILE) (defalias 'webfeeder--file-to-string #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\312 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-string] 8 (#$ . 552)]) #@73 Return the diff output of STRING-A and STRING-B (fn STRING-A STRING-B) (defalias 'webfeeder--string=-explainer #[514 "\230?\205\257\300C\300C\301\302\303\304\305\"\306\"\307$\216\300\310\311!\240\210\310\311!\240\210\242\312\313\314!!\301\302\315\304\305!\316\"\307$\216r\211q\210c\210)r\211q\210\317\300\211\300\302%\210*\266\242\312\313\314!!\301\302\315\304\305!\320\"\307$\216r\211q\210c\210)r\211q\210\317\300\211\300\302%\210*\266\321\322!r\211q\210\301\302\315\304\305!\323\"\307$\216\324\242\242\300\325$\210\326\242\242\300\325p%\210\327 *\262\262\211\262)\266\202\207" [nil make-byte-code 0 "\302\300\242!\210\302\301\242!\207" vconcat vector [delete-file] 2 make-temp-file "webfeeder" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] write-region [buffer-name kill-buffer] generate-new-buffer " *temp*" [buffer-name kill-buffer] diff no-async diff-no-select buffer-string] 13 (#$ . 899)]) (put 'string= 'ert-explainer 'webfeeder--string=-explainer) #@54 (fn FEED HTML-FILES &optional BUILDER MAX-ENTRIES) (defalias 'webfeeder--test-pages #[1026 "\206\301\262\302!\303\304\305#\306C\3071/\310\305\311\312\313\314\315\316\317& )D0\202:\320\240\210\211@AD\262\321C\322C\323\316\324\325\326$\327\"\330$\216\331\242\"\240)\204a\332\242!\210\266\306C\3331\202\310\305\311\334\313\314\315\316\317& )D0\202\215\320\240\210\211@AD\262\335C\322C\323\316\324\325\326$\336\"\330$\216\331\242\"\240)\203\264\332\242!\210\266\306C\3371\325\310\340\311\312\313\314\315\316\317& )D0\202\340\320\240\210\211@AD\262\341C\322C\323\316\324\325\326$\342\"\330$\216\331\242\"\240)\203\332\242!\210\266\343=\205g\306C\3441.\310\305\311\312\313\345\315\316\317& )D0\2029\320\240\210\211@AD\262\346C\322C\323\316\324\325\326$\347\"\330$\216\331\242\"\240)\203`\332\242!\210\210\211\242\262\266\202\207" [signal-hook-function webfeeder-make-atom webfeeder--file-to-string webfeeder-html-files-to-items "." "https://example.org/" string= (error) ert--should-signal-hook :title #2="Example feed" :description #3="Example description" :build-date 0 :max-entries signal #1=#:ert-form-evaluation-aborted-7091 nil make-byte-code "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (string= feed-buffer (funcall builder feed "https://example.org/" feed-items :title #2# :description #3# :build-date 0 :max-entries max-entries))) :form eql #1# :value string= ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #5="Example TYPO" #4=#:ert-form-evaluation-aborted-7096 [(should-not (string= feed-buffer (funcall builder feed "https://example.org/" feed-items :title #5# :description "Example description" :build-date 0 :max-entries max-entries))) :form eql #4# :value string= ert-explainer :explanation apply ert--signal-should-execution] (error) #7="https://example.XYZ/" #6=#:ert-form-evaluation-aborted-7101 [(should-not (string= feed-buffer (funcall builder feed #7# feed-items :title "Example feed" :description "Example description" :build-date 0 :max-entries max-entries))) :form eql #6# :value string= ert-explainer :explanation apply ert--signal-should-execution] webfeeder-make-rss (error) #9="Example description TYPO" #8=#:ert-form-evaluation-aborted-7106 [(should-not (string= feed-buffer (funcall builder feed "https://example.org/" feed-items :title "Example feed" :description #9# :build-date 0 :max-entries max-entries))) :form eql #8# :value string= ert-explainer :explanation apply ert--signal-should-execution]] 20 (#$ . 1960)]) (byte-code "\300\301\302\303\301\304\305\306\307\306&\"\210\300\310\302\303\310\311\312\306\307\306&\"\210\300\313\302\303\313\306\314\306\307\306&\"\210\300\315\302\303\315\306\316\306\307\306&\"\210\300\317\302\303\317\306\320\306\307\306&\"\210\300\321\302\303\321\306\322\306\307\306&\"\210\300\323\302\303\323\306\324\306\307\306&\"\210\300\325\302\303\325\306\326\306\307\306&\"\210\300\327\302\303\327\306\330\306\307\306&\"\210\300\331\302\303\331\306\332\306\307\306&\"\210\300\333\302\303\333\306\334\306\307\306&\"\210\300\335\302\303\335\306\336\306\307\306&\"\210\337\340!\207" [ert-set-test webfeeder-single-rss-libxml record ert-test "Simple test using libxml backend.\nThis requires an Emacs compiled against libxml." #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317#,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post0.rss" ("post0-html5-fancy.html") webfeeder-make-rss] 4] nil :passed webfeeder-single-rss-default "Simple test using regular expressions to parse XML." #[0 "\306!\204\n\307\310!\210\311 \"\312\313\314\315\316\317\320\321#-\207" [webfeeder-test-dir default-directory webfeeder-author-function webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-default webfeeder-title-default webfeeder-body-default webfeeder-author-default webfeeder--test-pages "default-post0.rss" ("post0-html5-fancy.html") webfeeder-make-rss] 4] webfeeder-multi-rss-libxml #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317#,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post0+post1.rss" ("post0-html5-fancy.html" "post1-html5-fancy.html") webfeeder-make-rss] 4] webfeeder-limited-multi-rss-libxml #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317\320$,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post1.rss" ("post0-html5-fancy.html" "post1-html5-fancy.html") webfeeder-make-rss 1] 5] webfeeder-single-rss-no-html5 #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317#,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post0-no-html.rss" ("post0.html") webfeeder-make-rss] 4] webfeeder-single-rss-no-fancy #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317#,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post0-no-fancy.rss" ("post0-html5.html") webfeeder-make-rss] 4] webfeeder-single-atom-libxml #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317#,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post0.atom" ("post0-html5-fancy.html") webfeeder-make-atom] 4] webfeeder-single-atom-default #[0 "\306!\204\n\307\310!\210\311 \"\312\313\314\315\316\317\320\321#-\207" [webfeeder-test-dir default-directory webfeeder-author-function webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-default webfeeder-title-default webfeeder-body-default webfeeder-author-default webfeeder--test-pages "default-post0.atom" ("post0-html5-fancy.html") webfeeder-make-atom] 4] webfeeder-multi-atom-libxml #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317#,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post0+post1.atom" ("post0-html5-fancy.html" "post1-html5-fancy.html") webfeeder-make-atom] 4] webfeeder-limited-multi-atom-libxml #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317\320$,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post1.atom" ("post0-html5-fancy.html" "post1-html5-fancy.html") webfeeder-make-atom 1] 5] webfeeder-single-atom-no-html5 #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317#,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post0-no-html.atom" ("post0.html") webfeeder-make-atom] 4] webfeeder-single-atom-no-fancy #[0 "\305!\204\n\306\307!\210\310 \"\311\312\313\314\315\316\317#,\207" [webfeeder-test-dir default-directory webfeeder-body-function webfeeder-title-function webfeeder-date-function file-directory-p cl--assertion-failed (file-directory-p webfeeder-test-dir) expand-file-name webfeeder-date-libxml webfeeder-title-libxml webfeeder-body-libxml webfeeder--test-pages "libxml-post0-no-fancy.atom" ("post0-html5.html") webfeeder-make-atom] 4] provide webfeeder-test] 10)