;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!\207" [require cl-lib psgml psgml-parse] 2) (defconst psgml-test-cases '(("tc01.sgml" (warning "Undefined entity.*")) ("tc02.xml") ("tc03.xml") ("tc04.sgml") ("tc05.sgml") ("tc07.sgml") ("tc08.xml") ("tc13.el" (warning "Invalid character")) ("tc15.el") ("tc16.el") ("tc17.html") ("tc18.el") ("tc19.sgml" (warning "B end-tag implied by B start-tag")) ("tc20.sgml" (warning "Start-tag of undefined element FOO")) ("tc21.sgml") ("tc22.el") ("tc23.sgml"))) (defalias 'testsuit-pi-handler #[(string) "\302\303\"\205 \304\305\225\306O!@\307 !\204\310\311\312\306 C$\210)\306\207" [string form string-match "ASSERT\\>" read-from-string 0 nil eval cl--assertion-failed (eval form) "Assertion fail: %S"] 5]) (defalias 'testsuit-run-test-case #[(case-description) "@A\306\307\310\307\211\311\312 \"\210\313 !\210\307 \3141>\315\316!\"\203/\317 \202:\311\320p\"\210\321 \210\322\307!0\202[\"\n\203U\n@@\211#\323=\205Q\324 )\202Z\323\325\"\")\210\n\307$\211%\203\271%@\211$@\211&\326=\203\227\306$A@'r\327q\210eb\210\330'\307\306#\204\223\323\331'\"\210*\202\257&\332=\203\257\333$A@!\204\257\323\334$A@\"\210)%A\211%\204f* \205\307\f?\205\307\323\335!-\207" [case-description file expected sgml-show-warnings warning-expected sgml-pi-function t nil testsuit-pi-handler message "--Testing %s" find-file (error) string-match "\\.el\\'" eval-buffer "current buffer: %s" sgml-load-doctype sgml-parse-until-end-of error debug "Unexpected %s" warning "*Messages*" re-search-forward "No %s warning" assert eval "Fail: %s" "Unexpected warnings" sgml-catalog-assoc sgml-ecat-assoc sgml-warning-message-flag buffer-file-name errcode #1=#:val test --dolist-tail-- #2=#:val warning-pattern] 5]) (defalias 'testsuit-run #[nil "\303 :\203 @\304\n!\210 A\211\202*\305\306!\207" [psgml-test-cases #1=#:--cl-var-- tc nil testsuit-run-test-case message "Done"] 3 nil nil])