[Success!?] XEmacs 21.5-b29 "garbanzo" 17fe69fff7fa+ configured for `x86_64-unknown-linux'. (Mule)
Mats Lidell <[email protected]>
| Newsgroups | gmane.emacs.xemacs.build-reports |
|---|---|
| Organization | The XEmacs Project |
| Message-ID | <[email protected]> |
Hi,
This is the _mule_ version for the package smoketest with XEmacs 21.5.
It seems to work fine both for the smoketest and interactive use but
there are some strange errors I think. See below.
----------------------------------------------------------------------
uname -a: Linux labb 2.6.26-1-amd64 #1 SMP Sat Jan 10 19:55:48 UTC 2009 x86_64 GNU/Linux
./configure '--with-mule' '--prefix=/home/matsl/work/smoketest'
XEmacs 21.5-b29 "garbanzo" 17fe69fff7fa+ configured for `x86_64-unknown-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
Not using any machine description file
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-18 (Debian)
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location:
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/Xaw
- Athena library to link: Xaw
Using Lucid menubars.
Using Lucid scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.
TTY:
Compiling in support for ncurses.
Images:
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Sound:
Compiling in support for sound (native).
Compiling in support for ALSA (Advanced Linux Sound Architecture).
Compiling in support for NAS (network audio system).
Databases:
Compiling in support for LDAP.
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Compiling in support for XIM (X11R5+ I18N input method).
- Using raw Xlib to provide XIM support.
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
cd ./lwlib && make all
cd ./src && make all
alsaplay.c:335: warning: no previous prototype for 'alsa_play_sound_data'
alsaplay.c:400: warning: no previous prototype for 'alsa_play_sound_file'
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...
** Discarding the result of #'mapcar; maybe you meant #'mapc?
** Discarding the result of #'mapcar*; maybe you meant #'mapc?
** Discarding the result of #'mapcar*; maybe you meant #'mapc?
** the function bookmark-all-names is not known to be defined.
# bind (stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
(progn (condition-case nil (delete-file docfile) (error nil)) (message "Spawning make-docfile ...") (setq exec-path (list build-lib-src)) (if (memq system-type (quote (berkeley-unix next-mach))) (call-process-internal "/bin/csh" nil t nil "-fc" (mapconcat (function identity) (append (list (expand-file-name "make-docfile" build-lib-src)) options processed) " ")) (apply (quote call-process-internal) "make-docfile" nil t nil (append options processed))) (message "Spawning make-docfile ...done"))
(if docfile-out-of-date (progn (condition-case nil (delete-file docfile) (error nil)) (message "Spawning make-docfile ...") (setq exec-path (list build-lib-src)) (if (memq system-type (quote (berkeley-unix next-mach))) (call-process-internal "/bin/csh" nil t nil "-fc" (mapconcat (function identity) (append (list (expand-file-name "make-docfile" build-lib-src)) options processed) " ")) (apply (quote call-process-internal) "make-docfile" nil t nil (append options processed))) (message "Spawning make-docfile ...done")))
(when docfile-out-of-date (condition-case nil (delete-file docfile) (error nil)) (message "Spawning make-docfile ...") (setq exec-path (list build-lib-src)) (if (memq system-type (quote (berkeley-unix next-mach))) (call-process-internal "/bin/csh" nil t nil "-fc" (mapconcat (function identity) (append (list (expand-file-name "make-docfile" build-lib-src)) options processed) " ")) (apply (quote call-process-internal
# (condition-case ... . error)
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)
** The following functions are not known to be defined:
** The following functions are not known to be defined:
** Discarding the result of #'mapcar; maybe you meant #'mapc?
** The following functions are not known to be defined:
Computing custom-loads for next-error...
cd ./modules/ldap && make all
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
Unexpected error (void-variable expected-message-regexp) while executing interpreted code.
Unexpected error (void-variable expected-message-regexp) while executing byte-compiled code.
byte-compiler-tests.el: 0 tests completed (aborted).
2 tests skipped because can't defadvice.
Unexpected error (void-variable expected-message-regexp) 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 0xd85>((void-variable expected-message-regexp))
(if (not (fboundp (quote defadvice))) (let ((count (gethash "can't defadvice" skipped-test-reasons))) (puthash "can't defadvice" (if (null count) 1 (1+ count)) skipped-test-reasons) (Print-Skip expected-message-regexp "can't defadvice")) (let ((messages "")) (defadvice message (around collect activate) (defvar messages) (let ((msg-string (apply (quote format) (ad-get-args 0)))) (setq messages (concat messages msg-string)) msg-string)) (ignore-errors (call-with-condition-handler (function (lambda (error-info) (Print-Failure "%S ==> unexpected error %S" (quote (byte-compile (quote (lambda nil (setq 1 1))))) error-info) (incf other-failures) (test-harness-unexpected-error-do-debug error-info))) (function (lambda nil (setq trick-optimizer (progn (byte-compile (quote (lambda nil (setq 1 1)))))) (if (string-match "Attempt to set non-symbol" messages) (progn (Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (quote (byte-compile (quote (lambda nil (setq 1 1))))) !
trick-optimizer messages (quote "Attempt to set non-symbol")) (incf passes)) (Print-Failure "%S ==> value %S, message %S, NOT matching expected %S" (quote (byte-compile (quote (lambda nil (setq 1 1))))) trick-optimizer messages (quote "Attempt to set non-symbol")) (incf missing-message-failures)))))) (ad-unadvise (quote message))))
(Skip-Test-Unless (fboundp (quote defadvice)) "can't defadvice" expected-message-regexp (let ((messages "")) (defadvice message (around collect activate) (defvar messages) (let ((msg-string (apply (quote format) (ad-get-args 0)))) (setq messages (concat messages msg-string)) msg-string)) (ignore-errors (call-with-condition-handler (function (lambda (error-info) (Print-Failure "%S ==> unexpected error %S" (quote (byte-compile (quote (lambda nil (setq 1 1))))) error-info) (incf other-failures) (test-harness-unexpected-error-do-debug error-info))) (function (lambda nil (setq trick-optimizer (progn (byte-compile (quote (lambda nil (setq 1 1)))))) (if (string-match "Attempt to set non-symbol" messages) (progn (Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (quote (byte-compile (quote (lambda nil (setq 1 1))))) trick-optimizer messages (quote "Attempt to set non-symbol")) (incf passes)) (Print-Failure "%S ==> value %S, message %S, NOT matching expected %S" (q!
uote (byte-compile (quote (lambda nil (setq 1 1))))) trick-optimizer messages (quote "Attempt to set non-symbol")) (incf missing-message-failures)))))) (ad-unadvise (quote message))))
(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) (condition-case err (require (quote test-harness)) (file-error (when (and (boundp (quote load-file-name)) (stringp load-file-name)) (push (file-name-directory load-file-name) load-path) (require (quote test-harness))))) (require (quote bytecomp)) (defmacro check-byte-compiler-message (message-regexp &rest body) (backquote (Check-Message (\, message-regexp) (byte-compile (quote (lambda nil (\,@ body))))))) (check-byte-compiler-message "Attempt to set non-symbol" (setq 1 1)) (check-byte-compiler-message "Attempt to set constant symbol" (setq t 1)) (check-byte-compiler-message "Attempt to set constant symbol" (setq nil 1)) (check-byte-compiler-message "^$" (defconst :foo 1)) (check-byte-compiler-message "Attempt to let-bind non-symbol" (let ((1 (quote x))) 1)) (check-byte-compiler-me!
ssage "Attempt to let-bind constant symbol" (let ((t (quote x))) (foo))) (check-byte-compiler-message "Attempt to let-bind constant symbol" (let ((nil (quote x))) (foo))) (check-byte-compiler-message "Attempt to let-bind constant symbol" (let ((:foo (quote x))) (foo))) (check-byte-compiler-message "bound but not referenced" (let ((foo (quote x))) 1)) (Assert (not (boundp (quote free-variable)))) (Assert (boundp (quote byte-compile-warnings))) (check-byte-compiler-message "assignment to free variable" (setq free-variable 1)) (check-byte-compiler-message "reference to free variable" (car free-variable)) (check-byte-compiler-message "called with 2 args, but requires 1" (car (quote x) (quote y))) (check-byte-compiler-message "^$" (setq :foo 1)) (let ((fun (quote (lambda nil (setq :foo 1))))) (fset (quote test-byte-compiler-fun) fun)) (Check-Error setting-constant (test-byte-compiler-fun)) (byte-compile (quote test-byte-compiler-fun)) (Check-Error setting-constant (test-byte-com!
piler-fun)) (eval-when-compile (defvar setq-test-foo nil) (def!
var setq
-test-bar nil)) (progn (check-byte-compiler-message "set called with 1 arg, but requires 2" (setq setq-test-foo)) (check-byte-compiler-message "set called with 1 arg, but requires 2" (setq setq-test-foo 1 setq-test-bar)) (check-byte-compiler-message "set-default called with 1 arg, but requires 2" (setq-default setq-test-foo)) (check-byte-compiler-message "set-default called with 1 arg, but requires 2" (setq-default setq-test-foo 1 setq-test-bar))) (check-byte-compiler-message "malformed let binding" (let ((x 1 2)) 3)) (check-byte-compiler-message "malformed let binding" (let* ((x 1 2)) 3)) (Check-Error-Message error "`let' bindings can have only one value-form" (eval (quote (let ((x 1 2)) 3)))) (Check-Error-Message error "`let' bindings can have only one value-form" (eval (quote (let* ((x 1 2)) 3)))) (defmacro before-and-after-compile-equal (&rest form) (backquote (Assert (equal (funcall (quote (lambda nil (\,@ form)))) (funcall (byte-compile (quote (lambda nil (\,@ form))))!
))))) (defvar simplyamarker (point-min-marker)) (before-and-after-compile-equal (+)) (before-and-after-compile-equal (+ 2 2)) (before-and-after-compile-equal (+ 2 1)) (before-and-after-compile-equal (+ 1 2)) (before-and-after-compile-equal (+ 1)) (before-and-after-compile-equal (+ 3)) (before-and-after-compile-equal (+ simplyamarker 1)) (before-and-after-compile-equal (- 2 2)) (before-and-after-compile-equal (- 2 1)) (before-and-after-compile-equal (- 1 2)) (before-and-after-compile-equal (- 1)) (before-and-after-compile-equal (- 3)) ...)()
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 0xd85> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(5)" [inbuffer test-harness-read-from-buffer] 2 0xd86>)
# (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 "ÂÃ! !ÂÄ!ÅÆ\"Ç Æ" [error-info file princ ">>Error occurred processing " ": " display-error nil terpri] 3))))
# bind (--dolist-temp--73990 file-in-dir --dolist-temp--73985 file error)
# bind (error-data)
# (condition-case ... . error)
Unexpected error (void-variable expected-message-regexp) 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 0xd89>((void-variable expected-message-regexp))
#<compiled-function nil "...(1790)" [expected-message-regexp x skipped-test-reasons msg-string messages count err (byte-code "ÀÁ!" [require test-harness] 2) ((file-error (byte-code "ÂÁ!« ;«Ã !BÄÅ!Â" [load-path load-file-name boundp file-name-directory require test-harness] 2))) require bytecomp check-byte-compiler-message (macro . #<compiled-function (message-regexp &rest body) "...(13)" [body message-regexp Check-Message byte-compile quote lambda nil] 7 0xdf9>) fboundp defadvice gethash "can't defadvice" puthash 1 Print-Skip "" around apply format ad-get-args 0 nil (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugger test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (setq 1 1)))) error t 50 backtrace nil test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 4 0xdfa> #<compil!
ed-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (setq 1 1)) string-match "Attempt to set non-symbol" Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (byte-compile (quote (lambda nil (setq 1 1)))) Print-Failure "%S ==> value %S, message %S, NOT matching expected %S"] 6 0xdfb>) ((error)) ad-unadvise message (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugger test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (setq t 1)))) error t 50 backtrace nil test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 4 0xdfc> #<compiled-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (setq t 1)) string-match "Attempt to set constant symbol" Print-Pass "%S ==> value %S!
, message %S, matching %S, as expected" (byte-compile (quote (!
lambda n
il (setq t 1)))) Print-Failure "%S ==> value %S, message %S, NOT matching expected %S"] 6 0xdfd>) ((error)) (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugger test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (setq nil 1)))) error t 50 backtrace nil test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 4 0xdfe> #<compiled-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (setq nil 1)) string-match "Attempt to set constant symbol" Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (byte-compile (quote (lambda nil (setq nil 1)))) Print-Failure "%S ==> value %S, message %S, NOT matching expected %S"] 6 0xdff>) ((error)) (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugger test-harness-u!
nexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (defconst :foo 1)))) error t 50 backtrace nil test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 4 0xe00> #<compiled-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (defconst :foo 1)) string-match "^$" Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (byte-compile (quote (lambda nil (defconst :foo 1)))) Print-Failure "%S ==> value %S, message %S, NOT matching expected %S"] 6 0xe01>) ((error)) (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugger test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (let ((1 (quote x))) 1)))) error t 50 back!
trace nil test-harness-unexpected-error-show-backtrace print-l!
ength pr
int-escape-newlines] 4 0xe02> #<compiled-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (let ((1 (quote x))) 1)) string-match "Attempt to let-bind non-symbol" Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (byte-compile (quote (lambda nil (let ((1 (quote x))) 1)))) Print-Failure "%S ==> value %S, message %S, NOT matching expected %S"] 6 0xe03>) ((error)) (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugger test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (let ((t (quote x))) (foo))))) error t 50 backtrace nil test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 4 0xe04> #<compiled-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (let ((t (quote x)))!
(foo))) string-match "Attempt to let-bind constant symbol" Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (byte-compile (quote (lambda nil (let ((t (quote x))) (foo))))) Print-Failure "%S ==> value %S, message %S, NOT matching expected %S"] 6 0xe05>) ((error)) (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugger test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (let ((nil (quote x))) (foo))))) error t 50 backtrace nil test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 4 0xe06> #<compiled-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (let ((nil (quote x))) (foo))) string-match "Attempt to let-bind constant symbol" Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (byte-compile (quote (!
lambda nil (let ((nil (quote x))) (foo))))) Print-Failure "%S !
==> valu
e %S, message %S, NOT matching expected %S"] 6 0xe07>) ((error)) (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugger test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (let ((:foo (quote x))) (foo))))) error t 50 backtrace nil test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 4 0xe08> #<compiled-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (let ((:foo (quote x))) (foo))) string-match "Attempt to let-bind constant symbol" Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (byte-compile (quote (lambda nil (let ((:foo (quote x))) (foo))))) Print-Failure "%S ==> value %S, message %S, NOT matching expected %S"] 6 0xe09>) ((error)) (call-with-condition-handler #<compiled-function (error-info) "...(44)" [debugge!
r test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected other-failures error-info Print-Failure "%S ==> unexpected error %S" (byte-compile (quote (lambda nil (let ((foo (quote x))) 1)))) error t 50 backtrace nil test-harness-unexpected-error-show-backtrace print-length print-escape-newlines] 4 0xe0a> #<compiled-function nil "...(36)" [missing-message-failures passes messages trick-optimizer byte-compile (lambda nil (let ((foo (quote x))) 1)) string-match "bound but not referenced" Print-Pass "%S ==> value %S, message %S, matching %S, as expected" (byte-compile (quote (lambda nil (let ((foo (quote x))) 1)))) Print-Failure "%S ==> value %S, message %S, NOT matching expected %S"] 6 0xe0b>) ((error)) (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 (boundp (quote free-va!
riable))) nil error t 50 backtrace "%S ==> error: %S" print-es!
cape-new
lines 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 0xe0c> #<compiled-function nil "...(21)" [passes boundp free-variable signal cl-assertion-failed (not (boundp (quote free-variable))) Print-Pass "%S"] 3 0xe0d>) ((cl-assertion-failed)) (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" (boundp (quote byte-compile-warnings)) 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 0xe0e> #<compiled-function nil "...(21)" [passes boundp byte-compile-w!
arnings signal cl-assertion-failed (boundp (quote byte-compile-warnings)) Print-Pass "%S"] 3 0xe0f>) ...] 8 0xe25>()
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 0xd89> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(6)" [code] 1 0xd8a>)
# (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 "ÂÃ! !ÂÄ!ÅÆ\"Ç Æ" [error-info file princ ">>Error occurred processing " ": " display-error nil terpri] 3))))
# bind (--dolist-temp--73990 file-in-dir --dolist-temp--73985 file error)
# bind (error-data)
# (condition-case ... . error)
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: 9868 of 9868 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
Unexpected error (invalid-read-syntax "Integer constant overflow in reader" "111111111111111111111111111111111111111111111111111" 10) while reading forms from buffer.
Unexpected error (invalid-read-syntax "Integer constant overflow in reader" "111111111111111111111111111111111111111111111111111" 10) while reading forms from buffer.
lisp-tests.el: 5442 tests completed (aborted).
Unexpected error (invalid-read-syntax "Integer constant overflow in reader" "111111111111111111111111111111111111111111111111111" 10) while reading forms from buffer
# 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) "...(64)" [test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected unexpected-test-file-failures context-msg error-info end-of-file "reading forms from buffer" 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 0xd74>((invalid-read-syntax "Integer constant overflow in reader" "111111111111111111111111111111111111111111111111111" 10))
call-with-condition-handler(#<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") (error-info) "...(64)" [test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected unexpected-test-file-failures context-msg error-info end-of-file "reading forms from buffer" 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 0xd74> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(8)" [buffer body read] 2 0xd75>)
# (condition-case ... . ((error)))
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 0xd85> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(5)" [inbuffer test-harness-read-from-buffer] 2 0xd86>)
# (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 "ÂÃ! !ÂÄ!ÅÆ\"Ç Æ" [error-info file princ ">>Error occurred processing " ": " display-error nil terpri] 3))))
# bind (--dolist-temp--73990 file-in-dir --dolist-temp--73985 file error)
# bind (error-data)
# (condition-case ... . error)
Unexpected error (invalid-read-syntax "Integer constant overflow in reader" "111111111111111111111111111111111111111111111111111" 10) while reading forms from buffer
# 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) "...(64)" [test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected unexpected-test-file-failures context-msg error-info end-of-file "reading forms from buffer" 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 0xd74>((invalid-read-syntax "Integer constant overflow in reader" "111111111111111111111111111111111111111111111111111" 10))
call-with-condition-handler(#<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") (error-info) "...(64)" [test-harness-unexpected-error-enter-debugger noninteractive test-harness-bug-expected unexpected-test-file-failures context-msg error-info end-of-file "reading forms from buffer" 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 0xd74> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(8)" [buffer body read] 2 0xd75>)
# (condition-case ... . ((error)))
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 "byte-compiling 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 0xd87> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(25)" [code inbuffer --letf-save--73983 --letf-bound--73984 fboundp byte-compile-warn ((byte-code " «ÂMªÃÂ!Â" [--letf-save--73983 --letf-bound--73984 byte-compile-warn fmakunbound] 2)) ignore byte-compile test-harness-read-from-buffer] 4 0xd88>)
# (condition-case ... . ((error)))
# 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 "ÂÃ! !ÂÄ!ÅÆ\"Ç Æ" [error-info file princ ">>Error occurred processing " ": " display-error nil terpri] 3))))
# bind (--dolist-temp--73990 file-in-dir --dolist-temp--73985 file error)
# bind (error-data)
# (condition-case ... . error)
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
mule-tests.el: 691 tests completed (aborted).
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 0xd85>((structure-formation-error "Invalid prefix keys in sequence" ?S [?S -]))
(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 0xd85> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(5)" [inbuffer test-harness-read-from-buffer] 2 0xd86>)
# (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 (--dolist-temp--73990 file-in-dir --dolist-temp--73985 file error)
# bind (error-data)
# (condition-case ... . error)
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 0xd89>((invalid-argument "Invalid (GNU Emacs) key format (see doc of define-key)" C-f9))
#<compiled-function nil "...(3355)" [G78585 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 0x172e> #<compiled-function nil "...(22)" [string passes buffer-string signal cl-assertion-failed (equal (buffer-string) string) Print-Pass "%S"] 3 0x172f>) ((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." 0x1730> 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. " 0x1731> 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--78553 --letf-bound--78554 append-message fmakunbound] 2)) #<compiled-function (&rest args) "...(2)" [nil] 1 "\n\narguments: (&rest ARGS)\n" 0x1732> clear-message ((byte-code " «ÂMªÃÂ!Â" [--letf-save--78557 --letf-bound--78558 clear-message fmakunbound] 2)) #<compiled-function (&rest args) "...(2)" [nil] 1 "\n\narguments: (&rest ARGS)\n" 0x1733> 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 0x1734> #<compiled-function nil "...(20)" [passes buffer-modified-p signal cl-assertion-failed (not (buffer-modified-p)) Print-Pass "%S"] 3 0x1735>) ((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 0x1736> #<compiled-function nil "...(20)" [passes buffer-modified-p!
signal cl-assertion-failed (not (buffer-modified-p)) Print-Pa!
ss "%S"]
3 0x1737>) ((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 0x1738> #<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 0x1739>) ((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 0x173a> #<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 0x173b>) ((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 0x173c> #<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 0x173d>) ((cl-assertion-failed)) set-buffer-modified-p ...] 8 0x1823>()$)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 0xd89> #<compiled-function (from "/home/matsl/work/smoketest/xemacs-21.5/lisp/test-harness.elc") nil "...(6)" [code] 1 0xd8a>)
# (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 (--dolist-temp--73990 file-in-dir --dolist-temp--73985 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: 2636 of 2636 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: 0 tests completed (aborted).
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: 9868 of 9868 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: 5442 tests completed (aborted).
md5-tests.el: 56 of 56 tests successful (100%).
mule-tests.el: 691 tests completed (aborted).
os-tests.el: No tests run.
query-coding-tests.el: 2636 of 2636 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%).
------------------------------------------------------------------------------
Contents of file xemacs-make-install.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
cd ./lwlib && make all
cd ./src && make all
cd ./modules/ldap && make all
cd /home/matsl/work/smoketest/xemacs-21.5/man && make info
cd ./src && make check-features
Installing utilities run internally by XEmacs.
Installing utilities for users to run.
cd /home/matsl/work/smoketest/bin && rm -f ./xemacs && ln -s xemacs-21.5-b29 ./xemacs
cd /home/matsl/work/smoketest/bin && rm -f ./xemacs-script && ln -s xemacs-21.5-b29 ./xemacs-script
cd /home/matsl/work/smoketest/xemacs-21.5/etc && \
make gzip-el
------------------------------------------------------------------------------
Yours
--
%% Mats