[Success] XEmacs 21.5-b31 "ginger" 384423af8fb5 configured for `i686-pc-linux'.
Mats Lidell <[email protected]>
| Newsgroups | gmane.emacs.xemacs.build-reports |
|---|---|
| Organization | CAG Contactor AB |
| Message-ID | <[email protected]> |
Hi,
This is the build of the 21.5 mule binary used in the package smoketest.
----------------------------------------------------------------------
uname -a: Linux plong 2.6.26-2-686 #1 SMP Tue Mar 9 17:35:51 UTC 2010 i686 GNU/Linux
./configure '--with-mule' '--prefix=/home/matsl/work/smoketest'
XEmacs 21.5-b31 "ginger" 384423af8fb5 configured for `i686-pc-linux'.
Compilation Environment and Installation Defaults:
Source code location: /home/matsl/work/smoketest/xemacs-21.5
Installation prefix: /home/matsl/work/smoketest
Not using any operating system description file
Machine description file: `m/intel386.h'
Compiler version: gcc (Debian 4.3.2-1.1) 4.3.2
- GCC specs file: specs.
- Compiler command: gcc -Wall -Wno-switch -Wundef -Wsign-compare -Wno-char-subscripts -Wpacked -Wshadow -Wmissing-declarations -Wmissing-prototypes -Wstrict-prototypes -Wdeclaration-after-statement -Wunused-parameter -g
libc version: GNU libc 2.7-18lenny2 (Debian)
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Window System:
TTY:
Compiling in support for ncurses.
Images:
Sound:
Compiling in support for sound (native).
Databases:
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Mail:
Compiling in support for "file" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Using the new GC mark algorithms (KKCC).
WARNING: ---------------------------------------------------------
WARNING: The new algorithms are experimental. They are enabled by
WARNING: default for this release. Use `--disable-kkcc' to
WARNING: turn it off.
WARNING: ---------------------------------------------------------
Using the new portable dumper.
Dumping into executable.
Compiling in support for extra debugging code.
Compiling in support for runtime error checking.
WARNING: ---------------------------------------------------------
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
Contents of file xemacs-make-all.err
Keeping lines matching (in python regexp syntax): "^--\[\[|\]\]$|^(cd|n?make)\s|errors?|warnings?|pure.*(space|size)|hides|strange|shadowings|^Compil(ing\s+in|ation)|^Using|not\s+found|^Note:|Installing|[Ff]ile\(s\) copied|\s+tests\s+|^[A-Z] [^ ]+$|^Wrong number of arguments:|^ \*\* |^(FAIL|SKIP):"
... and then deleting lines matching (in python regexp syntax): "confl.*with.*auto-inlining|^Formatting:|^PASS:|\(100%\) tests successful"
------------------------------------------------------------------------------
cd ./lib-src && make all
/home/matsl/work/smoketest/xemacs-21.5/lib-src/digest-doc.c:35: warning: function declaration isn't a prototype
cd ./src && make all
alloc.c:3618: warning: declaration of 'log2' shadows a global declaration
/usr/include/bits/mathcalls.h:145: warning: shadowed declaration is here
fns.c:9163: warning: unused variable 'gcpro1'
mule-coding.c:217: warning: declaration of 'j1' shadows a global declaration
/usr/include/bits/mathcalls.h:239: warning: shadowed declaration is here
search.c:692: warning: declaration of 'ceil' shadows a global declaration
/usr/include/bits/mathcalls.h:179: warning: shadowed declaration is here
search.c:743: warning: declaration of 'floor' shadows a global declaration
/usr/include/bits/mathcalls.h:185: warning: shadowed declaration is here
Using load-path (/home/matsl/work/smoketest/xemacs-21.5/lisp/)
Using module-load-path (/home/matsl/work/smoketest/xemacs-21.5/modules)
Generating autoloads for lisp/next-error.el...
** reference to free variable describe-char-unicodedata-file
** the function yes-or-no-p-dialog-box is not known to be defined.
** the function normalize-menu-text is not known to be defined.
** reference to free variable mode-motion-hook
** assignment to free variable mode-motion-hook
** reference to free variable scrollbar-width
** The following functions are not known to be defined:
** The following functions are not known to be defined:
** The following functions are not known to be defined:
** The following functions are not known to be defined:
** reference to free variable last-popup-menu-event
** The following functions are not known to be defined:
** reference to free variable current-menubar
** reference to free variable current-menubar
** reference to free variable current-menubar
** The following functions are not known to be defined:
** reference to free variable current-menubar
** reference to free variable current-menubar
** The following functions are not known to be defined:
** the function make-dialog-box is not known to be defined.
** The following functions are not known to be defined:
** The following functions are not known to be defined:
Using load-path (/home/matsl/work/smoketest/xemacs-21.5/lisp/)
Using module-load-path (/home/matsl/work/smoketest/xemacs-21.5/modules)
Using load-path (/home/matsl/work/smoketest/xemacs-21.5/lisp/)
Using module-load-path (/home/matsl/work/smoketest/xemacs-21.5/modules)
** assignment to free variable help-echo-owns-message
** variable gui-button-shadow-thickness bound but not referenced
** The following functions are not known to be defined:
Compiling /home/matsl/work/smoketest/xemacs-21.5/lisp/next-error.el...
While compiling next-error-follow-minor-mode in file /home/matsl/work/smoketest/xemacs-21.5/lisp/next-error.el:
** reference to free variable next-error-follow-minor-mode-hook
** reference to free variable next-error-follow-minor-mode-on-hook
** reference to free variable next-error-follow-minor-mode-off-hook
Wrote /home/matsl/work/smoketest/xemacs-21.5/lisp/next-error.elc
** reference to free variable top-toolbar-height
** reference to free variable bottom-toolbar-height
** reference to free variable left-toolbar-width
** reference to free variable right-toolbar-width
** reference to free variable top-toolbar-border-width
** reference to free variable bottom-toolbar-border-width
** reference to free variable left-toolbar-border-width
** reference to free variable right-toolbar-border-width
** reference to free variable toolbar-info-frame
** reference to free variable default-toolbar
** variable popup-menu-titles bound but not referenced
** reference to free variable toolbar-icon-directory
** The following functions are not known to be defined:
** variable mouse-yank-at-point bound but not referenced
** The following functions are not known to be defined:
** reference to free variable default-toolbar-visible-p
** reference to free variable toolbar-buttons-captioned-p
** The following functions are not known to be defined:
** assignment to free variable x-us-keymap-first-keycode
** assignment to free variable x-us-keymap-description
** the function default-x-device is not known to be defined.
** The following functions are not known to be defined:
** assignment to free variable x-us-keymap-first-keycode
** assignment to free variable x-us-keymap-description
Requiring next-error...
** attempt to inline fc-pattern-get-size before it was defined
** attempt to inline fc-pattern-del-weight before it was defined
** attempt to inline fc-pattern-del-style before it was defined
** attempt to inline fc-pattern-add-weight before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** attempt to inline fc-pattern-add-weight before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** attempt to inline fc-pattern-add-weight before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** attempt to inline fc-pattern-del-weight before it was defined
** attempt to inline fc-pattern-add-weight before it was defined
** attempt to inline fc-pattern-get-size before it was defined
** attempt to inline fc-pattern-del-slant before it was defined
** attempt to inline fc-pattern-del-style before it was defined
** attempt to inline fc-pattern-add-slant before it was defined
** attempt to inline fc-pattern-add-slant before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** attempt to inline fc-pattern-del-slant before it was defined
** attempt to inline fc-pattern-add-slant before it was defined
** attempt to inline fc-pattern-get-pixelsize before it was defined
** attempt to inline fc-pattern-get-size before it was defined
** attempt to inline fc-pattern-del-size before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** the function default-x-device is not known to be defined.
** the function popup-menu is not known to be defined.
** the function make-dialog-box is not known to be defined.
** reference to free variable vertical-scrollbar-visible-p
** reference to free variable horizontal-scrollbar-visible-p
** the function scrollbar-set-hscroll is not known to be defined.
** reference to free variable current-menubar
** reference to free variable current-menubar
** The following functions are not known to be defined:
** reference to free variable scrollbar-width
** reference to free variable scrollbar-height
** reference to free variable scrollbar-on-top-p
** reference to free variable scrollbar-on-left-p
** assignment to free variable current-menubar
** The following functions are not known to be defined:
** The following functions are not known to be defined:
** reference to free variable default-toolbar
** reference to free variable initial-toolbar-spec
** reference to free variable toolbar-icon-directory
** The following functions are not known to be defined:
** reference to free variable toolbar-active
** reference to free variable last-pressed-toolbar-button
** reference to free variable toolbar-help-enabled
** The following functions are not known to be defined:
** assignment to free variable current-menubar
** assignment to free variable current-menubar
** assignment to free variable current-menubar
** reference to free variable current-menubar
** assignment to free variable current-menubar
** reference to free variable current-menubar
** assignment to free variable current-menubar
** reference to free variable current-menubar
** reference to free variable current-menubar
** reference to free variable popup-menu-titles
** reference to free variable current-menubar
** reference to free variable current-menubar
** reference to free variable menu-accelerator-map
** The following functions are not known to be defined:
** attempt to inline fc-pattern-get-family before it was defined
** attempt to inline fc-pattern-get-weight before it was defined
** attempt to inline fc-pattern-get-size before it was defined
** attempt to inline fc-pattern-get-slant before it was defined
** attempt to inline fc-pattern-get-family before it was defined
** attempt to inline fc-pattern-get-weight before it was defined
** attempt to inline fc-pattern-get-size before it was defined
** attempt to inline fc-pattern-get-slant before it was defined
** attempt to inline fc-pattern-add-family before it was defined
** attempt to inline fc-pattern-add-weight before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** attempt to inline fc-pattern-add-slant before it was defined
** The following functions are not known to be defined:
** attempt to inline fc-pattern-get-family before it was defined
** attempt to inline fc-pattern-get-weight before it was defined
** attempt to inline fc-pattern-add-family before it was defined
** attempt to inline fc-pattern-add-size before it was defined
** The following functions are not known to be defined:
** reference to free variable current-menubar
** The following functions are not known to be defined:
** reference to free variable dialog-frame-plist
** the function make-dialog-box-internal is not known to be defined.
Computing custom-loads for next-error...
cd /home/matsl/work/smoketest/xemacs-21.5/man && make info
------------------------------------------------------------------------------
Contents of file xemacs-make-check.err
Keeping lines matching (in python regexp syntax): "^--\[\[|\]\]$|^(cd|n?make)\s|errors?|warnings?|pure.*(space|size)|hides|strange|shadowings|^Compil(ing\s+in|ation)|^Using|not\s+found|^Note:|Installing|[Ff]ile\(s\) copied|\s+tests\s+|^[A-Z] [^ ]+$|^Wrong number of arguments:|^ \*\* |^(FAIL|SKIP):"
... and then deleting lines matching (in python regexp syntax): "confl.*with.*auto-inlining|^Formatting:|^PASS:|\(100%\) tests successful"
------------------------------------------------------------------------------
cd ./src && make check
base64-tests.el: 1234 of 1234 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
byte-compiler-tests.el: 66 of 66 tests successful (100%).
38 tests skipped because can't defadvice.
SKIP: "Attempt to set non-symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to set constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to set constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to set constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to let-bind non-symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to let-bind constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to let-bind constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to let-bind constant symbol" BECAUSE "can't defadvice"
SKIP: "bound but not referenced" BECAUSE "can't defadvice"
SKIP: "assignment to free variable" BECAUSE "can't defadvice"
SKIP: "reference to free variable" BECAUSE "can't defadvice"
SKIP: "called with 2 args, but requires 1" BECAUSE "can't defadvice"
SKIP: "Attempt to set constant symbol" BECAUSE "can't defadvice"
SKIP: "set called with 1 arg, but requires 2" BECAUSE "can't defadvice"
SKIP: "set called with 1 arg, but requires 2" BECAUSE "can't defadvice"
SKIP: "set-default called with 1 arg, but requires 2" BECAUSE "can't defadvice"
SKIP: "set-default called with 1 arg, but requires 2" BECAUSE "can't defadvice"
SKIP: "malformed let binding" BECAUSE "can't defadvice"
SKIP: "malformed let binding" BECAUSE "can't defadvice"
SKIP: "Attempt to set non-symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to set constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to set constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to set constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to let-bind non-symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to let-bind constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to let-bind constant symbol" BECAUSE "can't defadvice"
SKIP: "Attempt to let-bind constant symbol" BECAUSE "can't defadvice"
SKIP: "bound but not referenced" BECAUSE "can't defadvice"
SKIP: "assignment to free variable" BECAUSE "can't defadvice"
SKIP: "reference to free variable" BECAUSE "can't defadvice"
SKIP: "called with 2 args, but requires 1" BECAUSE "can't defadvice"
SKIP: "Attempt to set constant symbol" BECAUSE "can't defadvice"
SKIP: "set called with 1 arg, but requires 2" BECAUSE "can't defadvice"
SKIP: "set called with 1 arg, but requires 2" BECAUSE "can't defadvice"
SKIP: "set-default called with 1 arg, but requires 2" BECAUSE "can't defadvice"
SKIP: "set-default called with 1 arg, but requires 2" BECAUSE "can't defadvice"
SKIP: "malformed let binding" BECAUSE "can't defadvice"
SKIP: "malformed let binding" BECAUSE "can't defadvice"
0 errors that should have been generated, but weren't
0 wrong-error failures
c-tests.el: 104 of 104 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
case-tests.el: 9436 of 9436 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
ccl-tests.el: 4570 of 4570 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
database-tests.el: No tests run.
0 errors that should have been generated, but weren't
0 wrong-error failures
extent-tests.el: 194 of 194 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
file-tests.el: 10 of 10 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
hash-table-tests.el: 12076 of 12076 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
iso-ir-196-test.el: 2 of 2 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
lisp-reader-tests.el: 52 of 52 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
lisp-tests.el: 7287 of 7288 tests successful ( 99%).
0 errors that should have been generated, but weren't
0 wrong-error failures
md5-tests.el: 56 of 56 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
FAIL: Assertion failed: (equal (sort (charsets-in-region (point-min) (point-max)) (function string<)) sorted-charsets-in-HELLO); failing case = "(___temporary___168__ ___temporary___207__ ___temporary___208__ ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 ipa japanese-jisx0208 japanese-jisx0213-1 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 tibetan vietnamese-viscii-lower) should be `equal' to (arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 vietnamese-viscii-lower) but isn't"
FAIL: Assertion failed: (equal (sort (charsets-in-string (buffer-substring (point-min) (point-max))) (function string<)) sorted-charsets-in-HELLO); failing case = "(___temporary___168__ ___temporary___207__ ___temporary___208__ ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 ipa japanese-jisx0208 japanese-jisx0213-1 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 tibetan vietnamese-viscii-lower) should be `equal' to (arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 vietnamese-viscii-lower) but isn't"
FAIL: Assertion failed: (equal (sort (charsets-in-region (point-min) (point-max)) (function string<)) sorted-charsets-in-HELLO); failing case = "(___temporary___168__ ___temporary___207__ ___temporary___208__ ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 ipa japanese-jisx0208 japanese-jisx0213-1 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 tibetan vietnamese-viscii-lower) should be `equal' to (arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 vietnamese-viscii-lower) but isn't"
FAIL: Assertion failed: (equal (sort (charsets-in-string (buffer-substring (point-min) (point-max))) (function string<)) sorted-charsets-in-HELLO); failing case = "(___temporary___168__ ___temporary___207__ ___temporary___208__ ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 ipa japanese-jisx0208 japanese-jisx0213-1 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 tibetan vietnamese-viscii-lower) should be `equal' to (arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 vietnamese-viscii-lower) but isn't"
mule-tests.el: 697 tests completed (aborted).
FAIL: Assertion failed: (equal (sort (charsets-in-region (point-min) (point-max)) (function string<)) sorted-charsets-in-HELLO); failing case = "(___temporary___168__ ___temporary___207__ ___temporary___208__ ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 ipa japanese-jisx0208 japanese-jisx0213-1 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 tibetan vietnamese-viscii-lower) should be `equal' to (arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 vietnamese-viscii-lower) but isn't"
FAIL: Assertion failed: (equal (sort (charsets-in-string (buffer-substring (point-min) (point-max))) (function string<)) sorted-charsets-in-HELLO); failing case = "(___temporary___168__ ___temporary___207__ ___temporary___208__ ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 ipa japanese-jisx0208 japanese-jisx0213-1 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 tibetan vietnamese-viscii-lower) should be `equal' to (arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 vietnamese-viscii-lower) but isn't"
Unexpected error (structure-formation-error "Invalid prefix keys in sequence" ?S [?S -]) while executing interpreted code
# bind (print-escape-newlines print-length error-info error-info context-msg error-info)
#<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") (error-info) "...(57)" [test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected unexpected-test-file-failures context-msg error-info "executing interpreted code" princ format "Unexpected error %S while %s\n" message "Unexpected error %S while %s." error t 50 backtrace nil debugger test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 5 0xc7c>((structure-formation-error "Invalid prefix keys in sequence" ?S [?S -]))
(while (consp G29178) (setq language (car G29178)) (let* ((--letf-bound--29182 (fboundp (quote append-message))) (--letf-save--29181 (and --letf-bound--29182 (symbol-function (quote append-message))))) (unwind-protect (progn (fset (quote append-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote append-message) nil)))) (let* ((--letf-bound--29186 (fboundp (quote clear-message))) (--letf-save--29185 (and --letf-bound--29186 (symbol-function (quote clear-message))))) (unwind-protect (progn (fset (quote clear-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote clear-message) nil)))) (set-language-environment language)) (if --letf-bound--29186 (fset (quote clear-message) --letf-save--29185) (fmakunbound (quote clear-message)))))) (if --letf-bound--29182 (fset (quote append-message) --letf-save--29181) (fmakunbound (quote append-message))))) (condition-case nil (call-with-condition-handler (function (lambda (er!
ror-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment) "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (equal language current-language-environment)) (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment)) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment) "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (equal language current-language-environment)) error-info (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment)) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (equal lang!
uage current-language-environment) (signal (quote cl-assertion!
-failed)
(list (quote (equal language current-language-environment))))) nil) (Print-Pass "%S" (quote (equal language current-language-environment))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (setq language-input-method (get-language-info language (quote input-method))) (if (and language-input-method (> (length input-method-alist) 1)) (progn (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (assoc language-input-method input-method-alist)) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (assoc language-input-method input-method-alist)) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-i!
nfo)))) (function (lambda nil (progn (or (assoc language-input-method input-method-alist) (signal (quote cl-assertion-failed) (list (quote (assoc language-input-method input-method-alist))))) nil) (Print-Pass "%S" (quote (assoc language-input-method input-method-alist))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (if (not (assoc language-input-method input-method-alist)) (let ((count (gethash "input method unavailable" skipped-test-reasons))) (puthash "input method unavailable" (if (null count) 1 (1+ count)) skipped-test-reasons) (Print-Skip (format "check that IM %s can be activated" language-input-method) "input method unavailable")) (let* ((--letf-bound--29190 (fboundp (quote append-message))) (--letf-save--29189 (and --letf-bound--29190 (symbol-function (quote append-message))))) (unwind-protect (progn (fset (quote append-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote append-message) nil)))) (let* ((--letf-bound--29194!
(fboundp (quote clear-message))) (--letf-save--29193 (and --l!
etf-boun
d--29194 (symbol-function (quote clear-message))))) (unwind-protect (progn (fset (quote clear-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote clear-message) nil)))) (set-input-method language-input-method)) (if --letf-bound--29194 (fset (quote clear-message) --letf-save--29193) (fmakunbound (quote clear-message)))))) (if --letf-bound--29190 (fset (quote append-message) --letf-save--29189) (fmakunbound (quote append-message))))) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method) "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (equal language-input-method current-input-method)) (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method)) (setq assertion-failures (1+ !
assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method) "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (equal language-input-method current-input-method)) error-info (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method)) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (equal language-input-method current-input-method) (signal (quote cl-assertion-failed) (list (quote (equal language-input-method current-input-method))))) nil) (Print-Pass "%S" (quote (equal language-input-method current-input-method))) (setq passes (1+ passes))))) (cl-assertion-failed nil))))) (catch (quote nil) (let ((G29195 (get-language-info language (quote charset))) charset) (while G29195 (setq charset (car G29195)) (con!
dition-case nil (call-with-condition-handler (function (lambda!
(error-
info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (charsetp (find-charset charset))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (charsetp (find-charset charset))) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (charsetp (find-charset charset)) (signal (quote cl-assertion-failed) (list (quote (charsetp (find-charset charset)))))) nil) (Print-Pass "%S" (quote (charsetp (find-charset charset)))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (setq G29195 (cdr G29195))))) (catch (quote nil) (let ((G29196 (get-language-info language (quote coding-system))) coding-system) (while G29196 (setq coding-system (car G!
29196)) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (coding-system-p (find-coding-system coding-system))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (coding-system-p (find-coding-system coding-system))) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (coding-system-p (find-coding-system coding-system)) (signal (quote cl-assertion-failed) (list (quote (coding-system-p (find-coding-system coding-system)))))) nil) (Print-Pass "%S" (quote (coding-system-p (find-coding-system coding-system)))) (setq passes (1+ passes))))) (cl-assertion-faile!
d nil)) (setq G29196 (cdr G29196))))) (catch (quote nil) (let !
((G29197
(if (listp (setq native-coding-system (get-language-info language (quote native-coding-system)))) native-coding-system (list native-coding-system))) coding-system) (while G29197 (setq coding-system (car G29197)) (if (functionp coding-system) nil (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (coding-system-p (find-coding-system coding-system))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (coding-system-p (find-coding-system coding-system))) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (coding-system-p (find-coding-system coding-system)) !
(signal (quote cl-assertion-failed) (list (quote (coding-system-p (find-coding-system coding-system)))))) nil) (Print-Pass "%S" (quote (coding-system-p (find-coding-system coding-system)))) (setq passes (1+ passes))))) (cl-assertion-failed nil))) (setq G29197 (cdr G29197))))) (setq G29178 (cdr G29178)))
(let* ((G29178 (mapcar (function car) language-info-alist)) (language nil) (language-input-method nil) (native-coding-system nil) (original-language-environment current-language-environment)) (while (consp G29178) (setq language (car G29178)) (let* ((--letf-bound--29182 (fboundp (quote append-message))) (--letf-save--29181 (and --letf-bound--29182 (symbol-function (quote append-message))))) (unwind-protect (progn (fset (quote append-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote append-message) nil)))) (let* ((--letf-bound--29186 (fboundp (quote clear-message))) (--letf-save--29185 (and --letf-bound--29186 (symbol-function (quote clear-message))))) (unwind-protect (progn (fset (quote clear-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote clear-message) nil)))) (set-language-environment language)) (if --letf-bound--29186 (fset (quote clear-message) --letf-save--29185) (fmakunbound (quote clear-messa!
ge)))))) (if --letf-bound--29182 (fset (quote append-message) --letf-save--29181) (fmakunbound (quote append-message))))) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment) "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (equal language current-language-environment)) (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment)) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment) "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (equal language current-language-environment)) error-info (format "%S should be `%s' to %S but isn't" lan!
guage (quote equal) current-language-environment)) (setq other!
-failure
s (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (equal language current-language-environment) (signal (quote cl-assertion-failed) (list (quote (equal language current-language-environment))))) nil) (Print-Pass "%S" (quote (equal language current-language-environment))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (setq language-input-method (get-language-info language (quote input-method))) (if (and language-input-method (> (length input-method-alist) 1)) (progn (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (assoc language-input-method input-method-alist)) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing ca!
se = %S" "%S ==> error: %S") (quote (assoc language-input-method input-method-alist)) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (assoc language-input-method input-method-alist) (signal (quote cl-assertion-failed) (list (quote (assoc language-input-method input-method-alist))))) nil) (Print-Pass "%S" (quote (assoc language-input-method input-method-alist))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (if (not (assoc language-input-method input-method-alist)) (let ((count (gethash "input method unavailable" skipped-test-reasons))) (puthash "input method unavailable" (if (null count) 1 (1+ count)) skipped-test-reasons) (Print-Skip (format "check that IM %s can be activated" language-input-method) "input method unavailable")) (let* ((--letf-bound--29190 (fboundp (quote append-message))) (--letf-save--29189 (and --letf-bound--29190 (symbol-function (quote append-m!
essage))))) (unwind-protect (progn (fset (quote append-message!
) (funct
ion (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote append-message) nil)))) (let* ((--letf-bound--29194 (fboundp (quote clear-message))) (--letf-save--29193 (and --letf-bound--29194 (symbol-function (quote clear-message))))) (unwind-protect (progn (fset (quote clear-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote clear-message) nil)))) (set-input-method language-input-method)) (if --letf-bound--29194 (fset (quote clear-message) --letf-save--29193) (fmakunbound (quote clear-message)))))) (if --letf-bound--29190 (fset (quote append-message) --letf-save--29189) (fmakunbound (quote append-message))))) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method) "Assertion failed: %S; failing case = %S" "Assertion failed: %S")!
(quote (equal language-input-method current-input-method)) (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method)) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method) "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (equal language-input-method current-input-method)) error-info (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method)) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (equal language-input-method current-input-method) (signal (quote cl-assertion-failed) (list (quote (equal language-input-method current-input-method))))) nil) (Print-Pass "%S" (quote (equal language-input-method current-input-method))) (!
setq passes (1+ passes))))) (cl-assertion-failed nil))))) (cat!
ch (quot
e nil) (let ((G29195 (get-language-info language (quote charset))) charset) (while G29195 (setq charset (car G29195)) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (charsetp (find-charset charset))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (charsetp (find-charset charset))) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (charsetp (find-charset charset)) (signal (quote cl-assertion-failed) (list (quote (charsetp (find-charset charset)))))) nil) (Print-Pass "%S" (quote (charsetp (find-charset charset)))) (setq passes (1+ passes))))) (cl-a!
ssertion-failed nil)) (setq G29195 (cdr G29195))))) (catch (quote nil) (let ((G29196 (get-language-info language (quote coding-system))) coding-system) (while G29196 (setq coding-system (car G29196)) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (coding-system-p (find-coding-system coding-system))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (coding-system-p (find-coding-system coding-system))) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (coding-system-p (find-coding-system coding-system)) (signal (quote cl-assertion-failed) (list (quo!
te (coding-system-p (find-coding-system coding-system)))))) ni!
l) (Prin
t-Pass "%S" (quote (coding-system-p (find-coding-system coding-system)))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (setq G29196 (cdr G29196))))) (catch (quote nil) (let ((G29197 (if (listp (setq native-coding-system (get-language-info language (quote native-coding-system)))) native-coding-system (list native-coding-system))) coding-system) (while G29197 (setq coding-system (car G29197)) (if (functionp coding-system) nil (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (coding-system-p (find-coding-system coding-system))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (coding-system-p (find-coding-system coding-system))) error-i!
nfo nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (coding-system-p (find-coding-system coding-system)) (signal (quote cl-assertion-failed) (list (quote (coding-system-p (find-coding-system coding-system)))))) nil) (Print-Pass "%S" (quote (coding-system-p (find-coding-system coding-system)))) (setq passes (1+ passes))))) (cl-assertion-failed nil))) (setq G29197 (cdr G29197))))) (setq G29178 (cdr G29178))) (set-language-environment original-language-environment) nil)
(catch (quote nil) (let* ((G29178 (mapcar (function car) language-info-alist)) (language nil) (language-input-method nil) (native-coding-system nil) (original-language-environment current-language-environment)) (while (consp G29178) (setq language (car G29178)) (let* ((--letf-bound--29182 (fboundp (quote append-message))) (--letf-save--29181 (and --letf-bound--29182 (symbol-function (quote append-message))))) (unwind-protect (progn (fset (quote append-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote append-message) nil)))) (let* ((--letf-bound--29186 (fboundp (quote clear-message))) (--letf-save--29185 (and --letf-bound--29186 (symbol-function (quote clear-message))))) (unwind-protect (progn (fset (quote clear-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote clear-message) nil)))) (set-language-environment language)) (if --letf-bound--29186 (fset (quote clear-message) --letf-save--29185) (fmakunbound!
(quote clear-message)))))) (if --letf-bound--29182 (fset (quote append-message) --letf-save--29181) (fmakunbound (quote append-message))))) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment) "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (equal language current-language-environment)) (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment)) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if (format "%S should be `%s' to %S but isn't" language (quote equal) current-language-environment) "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (equal language current-language-environment)) error-info (format "%S should be `%s' t!
o %S but isn't" language (quote equal) current-language-enviro!
nment))
(setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (equal language current-language-environment) (signal (quote cl-assertion-failed) (list (quote (equal language current-language-environment))))) nil) (Print-Pass "%S" (quote (equal language current-language-environment))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (setq language-input-method (get-language-info language (quote input-method))) (if (and language-input-method (> (length input-method-alist) 1)) (progn (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (assoc language-input-method input-method-alist)) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> er!
ror: %S; failing case = %S" "%S ==> error: %S") (quote (assoc language-input-method input-method-alist)) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (assoc language-input-method input-method-alist) (signal (quote cl-assertion-failed) (list (quote (assoc language-input-method input-method-alist))))) nil) (Print-Pass "%S" (quote (assoc language-input-method input-method-alist))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (if (not (assoc language-input-method input-method-alist)) (let ((count (gethash "input method unavailable" skipped-test-reasons))) (puthash "input method unavailable" (if (null count) 1 (1+ count)) skipped-test-reasons) (Print-Skip (format "check that IM %s can be activated" language-input-method) "input method unavailable")) (let* ((--letf-bound--29190 (fboundp (quote append-message))) (--letf-save--29189 (and --letf-bound--29190 (symbol-funct!
ion (quote append-message))))) (unwind-protect (progn (fset (q!
uote app
end-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote append-message) nil)))) (let* ((--letf-bound--29194 (fboundp (quote clear-message))) (--letf-save--29193 (and --letf-bound--29194 (symbol-function (quote clear-message))))) (unwind-protect (progn (fset (quote clear-message) (function (lambda (&rest args) "\n\narguments: (&rest ARGS)\n" (catch (quote clear-message) nil)))) (set-input-method language-input-method)) (if --letf-bound--29194 (fset (quote clear-message) --letf-save--29193) (fmakunbound (quote clear-message)))))) (if --letf-bound--29190 (fset (quote append-message) --letf-save--29189) (fmakunbound (quote append-message))))) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method) "Assertion failed: %S; failing case = %S" "Ass!
ertion failed: %S") (quote (equal language-input-method current-input-method)) (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method)) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method) "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (equal language-input-method current-input-method)) error-info (format "%S should be `%s' to %S but isn't" language-input-method (quote equal) current-input-method)) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (equal language-input-method current-input-method) (signal (quote cl-assertion-failed) (list (quote (equal language-input-method current-input-method))))) nil) (Print-Pass "%S" (quote (equal language-input-method curren!
t-input-method))) (setq passes (1+ passes))))) (cl-assertion-f!
ailed ni
l))))) (catch (quote nil) (let ((G29195 (get-language-info language (quote charset))) charset) (while G29195 (setq charset (car G29195)) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (charsetp (find-charset charset))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (charsetp (find-charset charset))) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (charsetp (find-charset charset)) (signal (quote cl-assertion-failed) (list (quote (charsetp (find-charset charset)))))) nil) (Print-Pass "%S" (quote (charsetp (find-charset charset)))) (setq passes (1!
+ passes))))) (cl-assertion-failed nil)) (setq G29195 (cdr G29195))))) (catch (quote nil) (let ((G29196 (get-language-info language (quote coding-system))) coding-system) (while G29196 (setq coding-system (car G29196)) (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (coding-system-p (find-coding-system coding-system))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (coding-system-p (find-coding-system coding-system))) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (coding-system-p (find-coding-system coding-system)) (signal (quote cl-assertion!
-failed) (list (quote (coding-system-p (find-coding-system cod!
ing-syst
em)))))) nil) (Print-Pass "%S" (quote (coding-system-p (find-coding-system coding-system)))) (setq passes (1+ passes))))) (cl-assertion-failed nil)) (setq G29196 (cdr G29196))))) (catch (quote nil) (let ((G29197 (if (listp (setq native-coding-system (get-language-info language (quote native-coding-system)))) native-coding-system (list native-coding-system))) coding-system) (while G29197 (setq coding-system (car G29197)) (if (functionp coding-system) nil (condition-case nil (call-with-condition-handler (function (lambda (error-info) (if (eq (quote cl-assertion-failed) (car error-info)) (progn (Print-Failure (if nil "Assertion failed: %S; failing case = %S" "Assertion failed: %S") (quote (coding-system-p (find-coding-system coding-system))) nil) (setq assertion-failures (1+ assertion-failures)) (test-harness-assertion-failure-do-debug error-info)) (Print-Failure (if nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S") (quote (coding-system-p (find-coding-system codin!
g-system))) error-info nil) (setq other-failures (1+ other-failures)) (test-harness-unexpected-error-do-debug error-info)))) (function (lambda nil (progn (or (coding-system-p (find-coding-system coding-system)) (signal (quote cl-assertion-failed) (list (quote (coding-system-p (find-coding-system coding-system)))))) nil) (Print-Pass "%S" (quote (coding-system-p (find-coding-system coding-system)))) (setq passes (1+ passes))))) (cl-assertion-failed nil))) (setq G29197 (cdr G29197))))) (setq G29178 (cdr G29178))) (set-language-environment original-language-environment) nil))
(progn (macrolet ((fillarray-test (charset1 charset2) (let ((char1 (make-char charset1 69)) (char2 (make-char charset2 69))) (backquote (let ((string (make-string 1000 (\, char1)))) (fillarray string (\, char2)) (Assert (eq (aref string 0) (\, char2))) (Assert (eq (aref string (1- (length string))) (\, char2))) (Assert (eq (length string) 1000))))))) (fillarray-test ascii latin-iso8859-1) (fillarray-test ascii latin-iso8859-2) (fillarray-test latin-iso8859-1 ascii) (fillarray-test latin-iso8859-2 ascii)) (let ((string (string (make-char (quote ascii) 69) (make-char (quote latin-iso8859-2) 69)))) (aset string 0 (make-char (quote latin-iso8859-2) 42)) (Assert (eq (aref string 1) (make-char (quote latin-iso8859-2) 69)))) (Assert (coding-system-p (find-coding-system (quote binary)))) (Assert (coding-system-canonical-name-p (quote binary))) (Assert (not (coding-system-alias-p (quote binary)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias)))) (Assert (not (coding-!
system-canonical-name-p (quote mule-tests-alias)))) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias (quote binary) (quote iso8859-2))) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee (quote binary))) (define-coding-system-alias (quote mule-tests-alias) (quote binary)) (Assert (coding-system-alias-p (quote mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias)))) (Assert (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-mac)))) (define-coding-system-alias (quote mule-tests-alias) (get-coding-system (quote binary))) (!
Assert (coding-system-alias-p (quote mule-tests-alias))) (Asse!
rt (not
(coding-system-canonical-name-p (quote mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias)))) (Assert (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-mac)))) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p (quote nested-mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote nested-mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote nested-mule-tests-alias)))) (Assert (eq (coding-system-aliasee (quote nested-mule-tests-alias)) (quote mule-tests-alias))) (Assert (eq (quote mule-tests-alias) (coding-system-aliasee (quote nested-mule-tests-alias)))) (Assert (not (coding-system-al!
ias-p (quote nested-mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-mac)))) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias (quote mule-tests-alias) (quote nested-mule-tests-alias))) (Check-Error-Message error "No such coding system" (define-coding-system-alias (quote no-such-coding-system) (quote no-such-coding-system))) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias (quote mule-tests-alias) (quote mule-tests-alias))) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (coding-system-p (find-coding-system (quote binary)))) (Assert (coding-system-canonical-name-p (quote binary))) (Assert (not (coding-system-alias-p (quote binary)))) (Assert (not (coding-system-alias-p (qu!
ote mule-tests-alias)))) (Assert (not (coding-system-canonical!
-name-p
(quote mule-tests-alias)))) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias (quote binary) (quote iso8859-2))) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee (quote binary))) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) (quote iso-8859-7)) (Assert (coding-system-alias-p (quote mule-tests-alias))) ...)
(if (featurep (quote mule)) (progn (macrolet ((fillarray-test (charset1 charset2) (let ((char1 (make-char charset1 69)) (char2 (make-char charset2 69))) (backquote (let ((string (make-string 1000 (\, char1)))) (fillarray string (\, char2)) (Assert (eq (aref string 0) (\, char2))) (Assert (eq (aref string (1- (length string))) (\, char2))) (Assert (eq (length string) 1000))))))) (fillarray-test ascii latin-iso8859-1) (fillarray-test ascii latin-iso8859-2) (fillarray-test latin-iso8859-1 ascii) (fillarray-test latin-iso8859-2 ascii)) (let ((string (string (make-char (quote ascii) 69) (make-char (quote latin-iso8859-2) 69)))) (aset string 0 (make-char (quote latin-iso8859-2) 42)) (Assert (eq (aref string 1) (make-char (quote latin-iso8859-2) 69)))) (Assert (coding-system-p (find-coding-system (quote binary)))) (Assert (coding-system-canonical-name-p (quote binary))) (Assert (not (coding-system-alias-p (quote binary)))) (Assert (not (coding-system-alias-p (quote mule-tests-ali!
as)))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias (quote binary) (quote iso8859-2))) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee (quote binary))) (define-coding-system-alias (quote mule-tests-alias) (quote binary)) (Assert (coding-system-alias-p (quote mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias)))) (Assert (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-mac)))) (define-coding-system-alias (quote mule-tests-alias) (get-codi!
ng-system (quote binary))) (Assert (coding-system-alias-p (quo!
te mule-
tests-alias))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias)))) (Assert (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-mac)))) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p (quote nested-mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote nested-mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote nested-mule-tests-alias)))) (Assert (eq (coding-system-aliasee (quote nested-mule-tests-alias)) (quote mule-tests-alias))) (Assert (eq (quote mule-tests-alias) (coding-system-aliasee (quote nested-mule-tests-alias)))) (A!
ssert (not (coding-system-alias-p (quote nested-mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-mac)))) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias (quote mule-tests-alias) (quote nested-mule-tests-alias))) (Check-Error-Message error "No such coding system" (define-coding-system-alias (quote no-such-coding-system) (quote no-such-coding-system))) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias (quote mule-tests-alias) (quote mule-tests-alias))) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (coding-system-p (find-coding-system (quote binary)))) (Assert (coding-system-canonical-name-p (quote binary))) (Assert (not (coding-system-alias-p (quote binary)))) (Assert (no!
t (coding-system-alias-p (quote mule-tests-alias)))) (Assert (!
not (cod
ing-system-canonical-name-p (quote mule-tests-alias)))) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias (quote binary) (quote iso8859-2))) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee (quote binary))) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) (quote iso-8859-7)) (Assert (coding-system-alias-p (quote mule-tests-alias))) ...))
(when (featurep (quote mule)) (macrolet ((fillarray-test (charset1 charset2) (let ((char1 (make-char charset1 69)) (char2 (make-char charset2 69))) (backquote (let ((string (make-string 1000 (\, char1)))) (fillarray string (\, char2)) (Assert (eq (aref string 0) (\, char2))) (Assert (eq (aref string (1- (length string))) (\, char2))) (Assert (eq (length string) 1000))))))) (fillarray-test ascii latin-iso8859-1) (fillarray-test ascii latin-iso8859-2) (fillarray-test latin-iso8859-1 ascii) (fillarray-test latin-iso8859-2 ascii)) (let ((string (string (make-char (quote ascii) 69) (make-char (quote latin-iso8859-2) 69)))) (aset string 0 (make-char (quote latin-iso8859-2) 42)) (Assert (eq (aref string 1) (make-char (quote latin-iso8859-2) 69)))) (Assert (coding-system-p (find-coding-system (quote binary)))) (Assert (coding-system-canonical-name-p (quote binary))) (Assert (not (coding-system-alias-p (quote binary)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias)))!
) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias (quote binary) (quote iso8859-2))) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee (quote binary))) (define-coding-system-alias (quote mule-tests-alias) (quote binary)) (Assert (coding-system-alias-p (quote mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias)))) (Assert (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-mac)))) (define-coding-system-alias (quote mule-tests-alias) (get-coding-sy!
stem (quote binary))) (Assert (coding-system-alias-p (quote mu!
le-tests
-alias))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias)))) (Assert (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-mac)))) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p (quote nested-mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote nested-mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote nested-mule-tests-alias)))) (Assert (eq (coding-system-aliasee (quote nested-mule-tests-alias)) (quote mule-tests-alias))) (Assert (eq (quote mule-tests-alias) (coding-system-aliasee (quote nested-mule-tests-alias)))) (Assert!
(not (coding-system-alias-p (quote nested-mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-mac)))) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias (quote mule-tests-alias) (quote nested-mule-tests-alias))) (Check-Error-Message error "No such coding system" (define-coding-system-alias (quote no-such-coding-system) (quote no-such-coding-system))) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias (quote mule-tests-alias) (quote mule-tests-alias))) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (coding-system-p (find-coding-system (quote binary)))) (Assert (coding-system-canonical-name-p (quote binary))) (Assert (not (coding-system-alias-p (quote binary)))) (Assert (not (co!
ding-system-alias-p (quote mule-tests-alias)))) (Assert (not (!
coding-s
ystem-canonical-name-p (quote mule-tests-alias)))) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias (quote binary) (quote iso8859-2))) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee (quote binary))) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) (quote iso-8859-7)) ...)
(lambda nil (defvar passes) (defvar assertion-failures) (defvar no-error-failures) (defvar wrong-error-failures) (defvar missing-message-failures) (defvar other-failures) (defvar trick-optimizer) (require (quote bytecomp)) (defun test-chars (&optional for-test-harness) "Insert all characters in a buffer, to see if XEmacs will crash.\nThis is done by creating a string with all the legal characters\nin [0, 2^21) range, inserting it into the buffer, and checking\nthat the buffer's contents are equivalent to the string.\n\nIf FOR-TEST-HARNESS is specified, a temporary buffer is used, and\nthe Assert macro checks for correctness." (let ((max (expt 2 (if (featurep (quote mule)) 21 8))) (list nil) (i 0)) (while (< i max) (and (not for-test-harness) (zerop (% i 1000)) (message "%d" i)) (and (int-char i) (setq list (cons (int-char i) list))) (setq i (1+ i))) (let ((string (apply (function string) (nreverse list)))) (if for-test-harness (with-temp-buffer (insert string) (Assert (equ!
al (buffer-string) string))) (switch-to-buffer (get-buffer-create "test")) (erase-buffer) (buffer-disable-undo) (insert string) (assert (equal (buffer-string) string)))))) (test-chars t) (defun unicode-code-point-to-utf-8-string (code-point) "Convert a Unicode code point to the equivalent UTF-8 string. \nThis is a naive implementation in Lisp. " (check-argument-type (quote natnump) code-point) (check-argument-range code-point 0 2097151) (if (< code-point 128) (format "%c" code-point) (if (< code-point 2048) (format "%c%c" (logior 192 (lsh (logand code-point 1984) -6)) (logior 128 (logand code-point 63))) (if (< code-point 65536) (format "%c%c%c" (logior 224 (logand (lsh code-point -12) 15)) (logior 128 (logand (lsh code-point -6) 63)) (logior 128 (logand code-point 63))) (if (< code-point 2097152) (format "%c%c%c%c" (logior 240 (logand (lsh code-point -18) 7)) (logior 128 (logand (lsh code-point -12) 63)) (logior 128 (logand (lsh code-point -6) 63)) (logior 128 (logand cod!
e-point 63)))))))) (let ((test-file-name (make-temp-file (expa!
nd-file-
name "tXfXsKc" (temp-directory)))) revert-buffer-function kill-buffer-hook) (find-file test-file-name) (erase-buffer) (insert "a string\n") (Silence-Message (save-buffer 0)) (insert "more text\n") (revert-buffer t t) (Assert (not (buffer-modified-p))) (kill-buffer nil) (when (find-coding-system (quote utf-8)) (find-file test-file-name (quote utf-8)) (insert "more text\n") (revert-buffer t t) (Assert (not (buffer-modified-p))) (kill-buffer nil)) (delete-file test-file-name)) (let ((existing-file-name (make-temp-file (expand-file-name "k7lCS2Mg" (temp-directory)))) (nonexistent-file-name (make-temp-name (temp-directory)))) (find-file existing-file-name) (Assert (not (eq (quote undecided) (coding-system-type buffer-file-coding-system)))) (kill-buffer nil) (dolist (coding-system (quote (utf-8 windows-1251 macintosh big5))) (when (find-coding-system coding-system) (find-file existing-file-name coding-system) (Assert (eq (find-coding-system coding-system) buffer-file-coding-system!
)) (kill-buffer nil) (find-file nonexistent-file-name coding-system) (Assert (eq (find-coding-system coding-system) buffer-file-coding-system)) (set-buffer-modified-p nil) (kill-buffer nil))) (delete-file existing-file-name)) (when (featurep (quote mule)) (macrolet ((fillarray-test (charset1 charset2) (let ((char1 (make-char charset1 69)) (char2 (make-char charset2 69))) (backquote (let ((string (make-string 1000 (\, char1)))) (fillarray string (\, char2)) (Assert (eq (aref string 0) (\, char2))) (Assert (eq (aref string (1- (length string))) (\, char2))) (Assert (eq (length string) 1000))))))) (fillarray-test ascii latin-iso8859-1) (fillarray-test ascii latin-iso8859-2) (fillarray-test latin-iso8859-1 ascii) (fillarray-test latin-iso8859-2 ascii)) (let ((string (string (make-char (quote ascii) 69) (make-char (quote latin-iso8859-2) 69)))) (aset string 0 (make-char (quote latin-iso8859-2) 42)) (Assert (eq (aref string 1) (make-char (quote latin-iso8859-2) 69)))) (Assert (co!
ding-system-p (find-coding-system (quote binary)))) (Assert (c!
oding-sy
stem-canonical-name-p (quote binary))) (Assert (not (coding-system-alias-p (quote binary)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias)))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias (quote binary) (quote iso8859-2))) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee (quote binary))) (define-coding-system-alias (quote mule-tests-alias) (quote binary)) (Assert (coding-system-alias-p (quote mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias)))) (Assert (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote mule-t!
ests-alias-dos)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-mac)))) (define-coding-system-alias (quote mule-tests-alias) (get-coding-system (quote binary))) (Assert (coding-system-alias-p (quote mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias)))) (Assert (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias-mac)))) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p (quote nested-mule-tests-alias))) (Assert (not (coding-system-canonical-name-p (quote nested-mule-tests-alias)))) (Assert (eq (get-coding-system (quote binary)) (get-coding-system (quote !
nested-mule-tests-alias)))) (Assert (eq (coding-system-aliasee!
(quote
nested-mule-tests-alias)) (quote mule-tests-alias))) (Assert (eq (quote mule-tests-alias) (coding-system-aliasee (quote nested-mule-tests-alias)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-unix)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-dos)))) (Assert (not (coding-system-alias-p (quote nested-mule-tests-alias-mac)))) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias (quote mule-tests-alias) (quote nested-mule-tests-alias))) (Check-Error-Message error "No such coding system" (define-coding-system-alias (quote no-such-coding-system) (quote no-such-coding-system))) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias (quote mule-tests-alias) (quote mule-tests-alias))) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (coding-system-p (find-codin!
g-system (quote binary)))) (Assert (coding-system-canonical-name-p (quote binary))) (Assert (not (coding-system-alias-p (quote binary)))) (Assert (not (coding-system-alias-p (quote mule-tests-alias)))) (Assert (not (coding-system-canonical-name-p (quote mule-tests-alias)))) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias (quote binary) (quote iso8859-2))) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee (quote binary))) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) (quote iso-8859-7)) ...))()
call-with-condition-handler(#<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") (error-info) "...(57)" [test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected unexpected-test-file-failures context-msg error-info "executing interpreted code" princ format "Unexpected error %S while %s\n" message "Unexpected error %S while %s." error t 50 backtrace nil debugger test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 5 0xc7c> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(5)" [inbuffer test-harness-read-from-buffer] 2 0xc7d>)
# (condition-case ... . ((error (message "Test suite execution aborted."))))
# bind (standard-output passes assertion-failures no-error-failures wrong-error-failures missing-message-failures other-failures unexpected-test-file-failures skipped-test-reasons trick-optimizer debug-on-error filename inbuffer)
# (condition-case ... . ((error (byte-code "-AÂÃ! !ÂÄ!ÅÆ\"Ç Æ" [error-info file princ ">>Error occurred processing " ": " display-error nil terpri] 3))))$)C
# bind (G28436 file-in-dir G28435 file error)
# bind (error-data)
# (condition-case ... . error)
FAIL: Assertion failed: (equal (sort (charsets-in-region (point-min) (point-max)) (function string<)) sorted-charsets-in-HELLO); failing case = "(___temporary___168__ ___temporary___207__ ___temporary___208__ ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 ipa japanese-jisx0208 japanese-jisx0213-1 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 tibetan vietnamese-viscii-lower) should be `equal' to (arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 vietnamese-viscii-lower) but isn't"
FAIL: Assertion failed: (equal (sort (charsets-in-string (buffer-substring (point-min) (point-max))) (function string<)) sorted-charsets-in-HELLO); failing case = "(___temporary___168__ ___temporary___207__ ___temporary___208__ ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 ipa japanese-jisx0208 japanese-jisx0213-1 katakana-jisx0201 korean-ksc5601 lao latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 thai-tis620 tibetan vietnamese-viscii-lower) should be `equal' to (arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201 korean-ksc5601 latin-iso8859-1 latin-iso8859-2 vietnamese-viscii-lower) but isn't"
Unexpected error (invalid-argument "Invalid (GNU Emacs) key format (see doc of define-key)" C-f9) while executing byte-compiled code
# bind (print-escape-newlines print-length error-info error-info context-msg error-info)
#<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") (error-info) "...(57)" [test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected unexpected-test-file-failures context-msg error-info "executing byte-compiled code" princ format "Unexpected error %S while %s\n" message "Unexpected error %S while %s." error t 50 backtrace nil debugger test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 5 0xc80>((invalid-argument "Invalid (GNU Emacs) key format (see doc of define-key)" C-f9))
#<compiled-function nil "...(3365)" [G29232 k i coding-system string j require bytecomp test-chars #<compiled-function (&optional for-test-harness) "...(115)" [temp-buffer for-test-harness max string list i expt 2 featurep mule 21 8 nil 0 1000 message "%d" int-char apply get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "-AÁ!«Â!Á" [temp-buffer buffer-name kill-buffer] 2)) (call-with-condition-handler #<compiled-function (error-info) "...(135)" [debugger noninteractive test-harness-bug-expected assertion-failures string error-info cl-assertion-failed Print-Failure format "%S should be `%s' to %S but isn't" buffer-string equal "Assertion failed: %S; failing case = %S" "Assertion failed: %S" (equal (buffer-string) string) error t 50 backtrace nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S" print-length print-escape-newlines other-failures test-harness-assertion-failure-enter-debugger test-harness-assertion-failure-show-backtrace test-harness!
-unexpected-error-enter-debugger test-harness-unexpected-error-show-backtrace] 9 0x1bfd> #<compiled-function nil "...(22)" [string passes buffer-string signal cl-assertion-failed (equal (buffer-string) string) Print-Pass "%S"] 3 0x1bfe>) ((cl-assertion-failed)) switch-to-buffer "test" erase-buffer buffer-disable-undo buffer-string signal cl-assertion-failed (equal (buffer-string) string)] 5 "Insert all characters in a buffer, to see if XEmacs will crash.\nThis is done by creating a string with all the legal characters\nin [0, 2^21) range, inserting it into the buffer, and checking\nthat the buffer's contents are equivalent to the string.\n\nIf FOR-TEST-HARNESS is specified, a temporary buffer is used, and\nthe Assert macro checks for correctness." 0x1bff> t unicode-code-point-to-utf-8-string #<compiled-function (code-point) "...(141)" [code-point natnump wrong-type-argument argument-in-range-p 0 2097151 args-out-of-range 128 format "%c" 2048 "%c%c" logior lsh logand 1984 -6!
192 63 65536 "%c%c%c" -12 15 224 2097152 "%c%c%c%c" -18 7 240!
] 9 "Con
vert a Unicode code point to the equivalent UTF-8 string. \nThis is a naive implementation in Lisp. " 0x1c00> make-temp-file expand-file-name "tXfXsKc" temp-directory nil find-file erase-buffer "a string\n" fboundp append-message ((byte-code " «ÂMªÃÂ!Â" [--letf-save--29200 --letf-bound--29201 append-message fmakunbound] 2)) #<compiled-function (&rest args) "...(2)" [nil] 1 "\n\narguments: (&rest ARGS)\n" 0x1c01> clear-message ((byte-code " «ÂMªÃÂ!Â" [--letf-save--29204 --letf-bound--29205 clear-message fmakunbound] 2)) #<compiled-function (&rest args) "...(2)" [nil] 1 "\n\narguments: (&rest ARGS)\n" 0x1c02> save-buffer 0 "more text\n" revert-buffer (call-with-condition-handler #<compiled-function (error-info) "...(97)" [print-length debugger noninteractive test-harness-bug-expected assertion-failures error-info cl-assertion-failed Print-Failure "Assertion failed: %S" (not (buffer-modified-p)) nil error t 50 backtrace "%S ==> error: %S" print-escape-newlines othe!
r-failures test-harness-assertion-failure-enter-debugger test-harness-assertion-failure-show-backtrace test-harness-unexpected-error-enter-debugger test-harness-unexpected-error-show-backtrace] 5 0x1c03> #<compiled-function nil "...(20)" [passes buffer-modified-p signal cl-assertion-failed (not (buffer-modified-p)) Print-Pass "%S"] 3 0x1c04>) ((cl-assertion-failed)) kill-buffer find-coding-system utf-8 (call-with-condition-handler #<compiled-function (error-info) "...(97)" [print-length debugger noninteractive test-harness-bug-expected assertion-failures error-info cl-assertion-failed Print-Failure "Assertion failed: %S" (not (buffer-modified-p)) nil error t 50 backtrace "%S ==> error: %S" print-escape-newlines other-failures test-harness-assertion-failure-enter-debugger test-harness-assertion-failure-show-backtrace test-harness-unexpected-error-enter-debugger test-harness-unexpected-error-show-backtrace] 5 0x1c05> #<compiled-function nil "...(20)" [passes buffer-modified-p!
signal cl-assertion-failed (not (buffer-modified-p)) Print-Pa!
ss "%S"]
3 0x1c06>) ((cl-assertion-failed)) delete-file "k7lCS2Mg" make-temp-name (call-with-condition-handler #<compiled-function (error-info) "...(139)" [debugger noninteractive test-harness-bug-expected assertion-failures buffer-file-coding-system error-info cl-assertion-failed Print-Failure format "%S shouldn't be `%s' to %S but is" undecided eq coding-system-type "Assertion failed: %S; failing case = %S" "Assertion failed: %S" (not (eq (quote undecided) (coding-system-type buffer-file-coding-system))) error t 50 backtrace nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S" print-length print-escape-newlines other-failures test-harness-assertion-failure-enter-debugger test-harness-assertion-failure-show-backtrace test-harness-unexpected-error-enter-debugger test-harness-unexpected-error-show-backtrace] 10 0x1c07> #<compiled-function nil "...(23)" [buffer-file-coding-system passes coding-system-type undecided signal cl-assertion-failed (not (eq (quote undecided) (coding!
-system-type buffer-file-coding-system))) Print-Pass "%S"] 3 0x1c08>) ((cl-assertion-failed)) (utf-8 windows-1251 macintosh big5) (call-with-condition-handler #<compiled-function (error-info) "...(141)" [noninteractive test-harness-bug-expected assertion-failures buffer-file-coding-system coding-system error-info cl-assertion-failed Print-Failure format "%S should be `%s' to %S but isn't" find-coding-system eq "Assertion failed: %S; failing case = %S" "Assertion failed: %S" (eq (find-coding-system coding-system) buffer-file-coding-system) error t 50 backtrace nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S" debugger print-length print-escape-newlines other-failures test-harness-assertion-failure-enter-debugger test-harness-assertion-failure-show-backtrace test-harness-unexpected-error-enter-debugger test-harness-unexpected-error-show-backtrace] 9 0x1c09> #<compiled-function nil "...(23)" [buffer-file-coding-system coding-system passes find-coding-system signal !
cl-assertion-failed (eq (find-coding-system coding-system) buf!
fer-file
-coding-system) Print-Pass "%S"] 3 0x1c0a>) ((cl-assertion-failed)) (call-with-condition-handler #<compiled-function (error-info) "...(141)" [noninteractive test-harness-bug-expected assertion-failures buffer-file-coding-system coding-system error-info cl-assertion-failed Print-Failure format "%S should be `%s' to %S but isn't" find-coding-system eq "Assertion failed: %S; failing case = %S" "Assertion failed: %S" (eq (find-coding-system coding-system) buffer-file-coding-system) error t 50 backtrace nil "%S ==> error: %S; failing case = %S" "%S ==> error: %S" debugger print-length print-escape-newlines other-failures test-harness-assertion-failure-enter-debugger test-harness-assertion-failure-show-backtrace test-harness-unexpected-error-enter-debugger test-harness-unexpected-error-show-backtrace] 9 0x1c0b> #<compiled-function nil "...(23)" [buffer-file-coding-system coding-system passes find-coding-system signal cl-assertion-failed (eq (find-coding-system coding-system) buff!
er-file-coding-system) Print-Pass "%S"] 3 0x1c0c>) ((cl-assertion-failed)) set-buffer-modified-p ...] 8 0x1cf2>()$)C
call-with-condition-handler(#<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") (error-info) "...(57)" [test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected unexpected-test-file-failures context-msg error-info "executing byte-compiled code" princ format "Unexpected error %S while %s\n" message "Unexpected error %S while %s." error t 50 backtrace nil debugger test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 5 0xc80> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(6)" [code] 1 0xc81>)
# (condition-case ... . ((error (message "Test suite execution aborted."))))
# bind (code test-harness-test-compiled standard-output passes assertion-failures no-error-failures wrong-error-failures missing-message-failures other-failures unexpected-test-file-failures skipped-test-reasons trick-optimizer debug-on-error filename inbuffer)
# (condition-case ... . ((error (byte-code "-AÂÃ! !ÂÄ!ÅÆ\"Ç Æ" [error-info file princ ">>Error occurred processing " ": " display-error nil terpri] 3))))$)C
# bind (G28436 file-in-dir G28435 file error)
# bind (error-data)
# (condition-case ... . error)
0 errors that should have been generated, but weren't
0 wrong-error failures
os-tests.el: No tests run.
2 tests skipped because tac executable not found.
2 tests skipped because cat executable not found.
SKIP: "Tests of call-process-region with region deleted after inserting
tac process output." BECAUSE "tac executable not found"
SKIP: "Tests of call-process-region with region deleted after inserting
cat process output." BECAUSE "cat executable not found"
SKIP: "Tests of call-process-region with region deleted after inserting
tac process output." BECAUSE "tac executable not found"
SKIP: "Tests of call-process-region with region deleted after inserting
cat process output." BECAUSE "cat executable not found"
0 errors that should have been generated, but weren't
0 wrong-error failures
query-coding-tests.el: 3180 of 3180 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
regexp-tests.el: 422 of 422 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
region-tests.el: 28 of 28 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
search-tests.el: 120 of 120 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
symbol-tests.el: 252 of 252 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
KNOWN BUG: (backward-up-list-moves-point-from-to 23 3) ==> error: (scan-error "Unbalanced parentheses" 23 1)
KNOWN BUG: (Assert (backward-up-list-moves-point-from-to 23 3)) ==> error scan-error, as expected
KNOWN BUG: (backward-up-list-moves-point-from-to 23 3) ==> error: (scan-error "Unbalanced parentheses" 23 1)
KNOWN BUG: (Assert (backward-up-list-moves-point-from-to 23 3)) ==> error scan-error, as expected
syntax-tests.el: 80 of 88 tests successful ( 90%).
2 tests skipped because c-mode unavailable.
SKIP: "comment and parse-partial-sexp tests" BECAUSE "c-mode unavailable"
KNOWN BUG: (backward-up-list-moves-point-from-to 23 3) ==> error: (scan-error "Unbalanced parentheses" 23 1)
KNOWN BUG: (Assert (backward-up-list-moves-point-from-to 23 3)) ==> error scan-error, as expected
SKIP: "comment and parse-partial-sexp tests" BECAUSE "c-mode unavailable"
KNOWN BUG: (backward-up-list-moves-point-from-to 23 3) ==> error: (scan-error "Unbalanced parentheses" 23 1)
KNOWN BUG: (Assert (backward-up-list-moves-point-from-to 23 3)) ==> error scan-error, as expected
2 errors that should have been generated, but weren't
0 wrong-error failures
tag-tests.el: 6 of 6 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
weak-tests.el: 140 of 140 tests successful (100%).
0 errors that should have been generated, but weren't
0 wrong-error failures
base64-tests.el: 1234 of 1234 tests successful (100%).
byte-compiler-tests.el: 66 of 66 tests successful (100%).
c-tests.el: 104 of 104 tests successful (100%).
case-tests.el: 9436 of 9436 tests successful (100%).
ccl-tests.el: 4570 of 4570 tests successful (100%).
database-tests.el: No tests run.
extent-tests.el: 194 of 194 tests successful (100%).
file-tests.el: 10 of 10 tests successful (100%).
hash-table-tests.el: 12076 of 12076 tests successful (100%).
iso-ir-196-test.el: 2 of 2 tests successful (100%).
lisp-reader-tests.el: 52 of 52 tests successful (100%).
lisp-tests.el: 7287 of 7288 tests successful ( 99%).
md5-tests.el: 56 of 56 tests successful (100%).
mule-tests.el: 697 tests completed (aborted).
os-tests.el: No tests run.
query-coding-tests.el: 3180 of 3180 tests successful (100%).
regexp-tests.el: 422 of 422 tests successful (100%).
region-tests.el: 28 of 28 tests successful (100%).
search-tests.el: 120 of 120 tests successful (100%).
symbol-tests.el: 252 of 252 tests successful (100%).
syntax-tests.el: 80 of 88 tests successful ( 90%).
tag-tests.el: 6 of 6 tests successful (100%).
weak-tests.el: 140 of 140 tests successful (100%).
------------------------------------------------------------------------------
Yours
--
%% Mats