12:33 p.m.
Hi!
I'm not sure exactly what the base64 tests are supposed to do, but
certainly not to break the build ...
XEmacs 21.2 (beta26) "Millenium" [Lucid] (i386-unknown-freebsdelf3.2) of Fri
Jan 14 2000 on sokrates
gmake[1]: Entering directory `/usr/users/nk/archive/xemacs/src'
./xemacs -batch -l /usr/users/nk/archive/xemacs/src/../tests/automated/test-harn
ess.el -f batch-test-emacs /usr/users/nk/archive/xemacs/src/../tests/automated
Testing /usr/users/nk/archive/xemacs/tests/automated/base64-tests.el...
base64-tests.el: 1232 of 1232 (100%) tests successful.Fatal error: assertion failed, file
lisp.h, line 1292, INTP (obj)
Lisp backtrace follows:
window-height(#<window on "*scratch*" 0x309>)
# bind (window old-frame target-frame explicit-frame)
byte-code("..." [nil explicit-frame target-frame old-frame window
last-nonmini
buf-frame selected-frame get-buffer buffer bufferp wrong-type-argument pre-displ
ay-buffer-function not-this-window-p override-frame display-buffer-function thro
w done buffer-dedicated-frame dedi frame-live-p window-buffer selected-window di
splay-buffer-1 buffer-name same-window-buffer-names assoc switch-to-buffer same-
window-regexps tem car string-match pop-up-frames 0 get-buffer-window special-di
splay-function special-display-buffer-names special-display-regexps frame-select
ed-window pop-up-frame-function set-window-buffer pop-up-windows frame-property
minibuffer only window-dedicated-p frame-root-window split-height-threshold wind
ow-min-height split-width-threshold window-min-width unsplittable get-largest-wi
ndow visible t window-frame window-height window-width window-leftmost-p window-
rightmost-p split-window other upper get-lru-window window-parent window-previou
s-child window-next-child window-pixel-edges window-pixel-height enlarge-window
2 save-selected-window-window ((byte-code "À !«
 !À" ... 2)) select-wind
ow record-buffer] 7)
# (catch done ...)
# bind (override-frame not-this-window-p buffer)
display-buffer(#<buffer "*Test-Log*">)
# bind (pre-display-buffer-function buffer)
show-temp-buffer-in-current-frame(#<buffer "*Test-Log*">)
# bind (standard-output)
(with-output-to-temp-buffer "*Test-Log*" (defmacro Assert (assertion)
(backquo
te ...)) (defmacro Check-Error (expected-error &rest body) (let ... ...)) (defma
cro Check-Error-Message (expected-error expected-error-regexp &rest body) (let .
.. ...)) (defmacro Check-Message (expected-message-regexp &rest body) (let ... .
..)) (defmacro Ignore-Ebola (&rest body) (backquote ...)) (defun Int-to-Marker (
pos) (save-excursion ... ...)) (princ "Testing Interpreted Lisp\n\n")
(condition
-case error-info (funcall ...) (error ... ... ... ...)) (princ "\nTesting Compil
ed Lisp\n\n") (let (code) (condition-case error-info ... ...) (condition-case er
ror-info ... ...)) (princ "\nSUMMARY:\n") (princ (format " %5d
passes\n" pa
sses)) (princ (format " %5d assertion failures\n" assertion-failures)) (princ
(f
ormat " %5d errors that should have been generated, but weren't\n"
no-error-fail
ures)) (princ (format " %5d wrong-error failures\n" wrong-error-failures))
(prin
c (format " %5d missing-message failures\n" missing-message-failures))
(prin
c (format " %5d other failures\n" other-failures)) (let* (... ... ...)
(mess
age "%s" summary-msg)) (when unexpected-test-suite-failure (message "Test
suite
execution failed unexpectedly.")) (fmakunbound (quote Assert)) (fmakunbound (quo
te Check-Error)) (fmakunbound (quote Ignore-Ebola)) (fmakunbound (quote Int-to-M
arker)))
)
# bind (debug-on-error unexpected-test-suite-failure trick-optimizer other-fai
lures missing-message-failures wrong-error-failures no-error-failures assertion-
failures passes)
(let ((passes 0) (assertion-failures 0) (no-error-failures 0) (wrong-error-fai
lures 0) (missing-message-failures 0) (other-failures 0) (trick-optimizer nil) (
unexpected-test-suite-failure nil) (debug-on-error t)) (with-output-to-temp-buff
er "*Test-Log*" (defmacro Assert ... ...) (defmacro Check-Error ... ...)
(defmac
ro Check-Error-Message ... ...) (defmacro Check-Message ... ...) (defmacro Ignor
e-Ebola ... ...) (defun Int-to-Marker ... ...) (princ "Testing Interpreted Lisp\
n\n") (condition-case error-info ... ...) (princ "\nTesting Compiled
Lisp\n\n")
(let ... ... ...) (princ "\nSUMMARY:\n") (princ ...) (princ ...) (princ ...)
(pr
inc ...) (princ ...) (princ ...) (let* ... ...) (when unexpected-test-suite-fail
ure ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...)
))
)
# bind (filename inbuffer)
test-harness-from-buffer(#<buffer " *Test Input*">
"/usr/users/nk/archive/xema
cs/tests/automated/base64-tests.el")
# bind (input-buffer test-harness-current-file)
(let ((test-harness-current-file filename) input-buffer) (save-excursion (setq
input-buffer ...) (set-buffer input-buffer) (erase-buffer) (insert-file-content
s filename) (let ... ... ...)) (test-harness-from-buffer input-buffer filename)
(kill-buffer input-buffer))
)
# bind (filename)
test-emacs-test-file("/usr/users/nk/archive/xemacs/tests/automated/base64-test
s.el")
(progn (test-emacs-test-file file) t)
)
# (condition-case ... . ((error (princ ">>Error occurred processing ")
(princ file) (princ ": ") (display-error error-info nil) (terpri) nil)))
(condition-case error-info (progn (test-emacs-test-file file) t) (error (princ
">>Error occurred processing ") (princ file) (princ ": ")
(display-error error-
info nil) (terpri) nil))
)
# bind (file)
batch-test-emacs-1("/usr/users/nk/archive/xemacs/tests/automated/base64-tests.
el")
(or (batch-test-emacs-1 file-in-dir) (setq error t))
)
(if (and (string-match emacs-lisp-file-regexp file-in-dir) (not ...)) (or (bat
ch-test-emacs-1 file-in-dir) (setq error t)))
)
(when (and (string-match emacs-lisp-file-regexp file-in-dir) (not ...)) (or (b
atch-test-emacs-1 file-in-dir) (setq error t)))
)
(while --dolist-temp--86801 (setq file-in-dir (car --dolist-temp--86801)) (whe
n (and ... ...) (or ... ...)) (setq --dolist-temp--86801 (cdr --dolist-temp--868
01)))
)
# bind (file-in-dir --dolist-temp--86801)
(let ((--dolist-temp--86801 ...) file-in-dir) (while --dolist-temp--86801 (set
q file-in-dir ...) (when ... ...) (setq --dolist-temp--86801 ...)) nil)
)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let (... file-in-dir) (while --dolist-temp--8
6801 ... ... ...) nil))
)
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
)
(block nil (let (... file-in-dir) (while --dolist-temp--86801 ... ... ...) nil
))
)
(dolist (file-in-dir (directory-files file t)) (when (and ... ...) (or ... ...
)))
)
(if (file-directory-p file) (dolist (file-in-dir ...) (when ... ...)) (or (bat
ch-test-emacs-1 file) (setq error t)))
)
(while --dolist-temp--86800 (setq file (car --dolist-temp--86800)) (if (file-d
irectory-p file) (dolist ... ...) (or ... ...)) (setq --dolist-temp--86800 (cdr
--dolist-temp--86800)))
)
# bind (file --dolist-temp--86800)
(let ((--dolist-temp--86800 command-line-args-left) file) (while --dolist-temp
--86800 (setq file ...) (if ... ... ...) (setq --dolist-temp--86800 ...)) nil)
)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let (... file) (while --dolist-temp--86800 ..
. ... ...) nil))
)
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
)
(block nil (let (... file) (while --dolist-temp--86800 ... ... ...) nil))
)
(dolist (file command-line-args-left) (if (file-directory-p file) (dolist ...
...) (or ... ...)))
)
# bind (error)
(let ((error nil)) (dolist (file command-line-args-left) (if ... ... ...)) (me
ssage "Done") (kill-emacs (if error 1 0)))
)
batch-test-emacs()
# bind (arg)
command-line-do-funcall("-f")
# bind (dir file-count line end-of-options first-file-buffer file-p arg tem)
command-line-1()
# bind (command-line-args-left)
command-line()
# (unwind-protect ...)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
(gdb) bt
#0 0x28467c78 in kill () from /usr/lib/libc.so.3
#1 0x808453d in fatal_error_signal (sig=6) at emacs.c:278
#2 0xbfbfdfdc in ?? ()
#3 0x808449f in assert_failed (file=0x81fce22 "lisp.h", line=1292,
expr=0x81fcfe3 "INTP (obj)") at emacs.c:2833
#4 0x818b203 in window_top_gutter_height (w=0x828f000) at lisp.h:1292
#5 0x8196306 in window_char_height (w=0x828f000, include_gutters_p=0)
at window.c:3584
#6 0x8196d22 in Fwindow_height (window=136900608) at window.c:1300
#7 0x8089604 in Ffuncall (nargs=2, args=0xbfbfa6ac) at eval.c:3175
#8 0x806053c in execute_optimized_program (
program=0xbfbfa710 "À\211\211\211\031\032\e\034Å ®\003Æ
\023Ç\016\b!\026\bÉ\016\b!¬\bÊÉ\016\b\"\026\b\016\013\n\016\013\016\b\016\f\016\r#\021\016\016«\016ÏÐ\016\016\016\b\016\f\016\r#\"\210Ñ\016\b!\036\022Ó\016\022!«\004\016\022\021)\016\r«\021Ó\016\r!¬\bÊÓ\016\r\"\026\r\016\r\021\t®\aÅ
®\003Æ \022\013\na¬\004À\026\f\016\f¬\022\016\bÔÕ !a«\tÏÐÖÕ
!\"\210\016\f¬h×\016\b!\016\030¶¬\013Ù×\016\b!\016\030\"«\016Ú\016\b!\210ÏÐÖÕ
!\"\210\016\e\211\036\034«＠\016\034＠\211\036\035;«\013Þ\016\035×\016\b!\""...,
stack_depth=7, constants_data=0x834ee10)
at bytecode.c:747
#9 0x80630e2 in Fbyte_code (instructions=138261140, constants=137686528,
stack_depth=15) at bytecode.c:2404
#10 0x8088bb2 in Feval (form=138231672) at eval.c:2975
#11 0x808d965 in internal_catch (tag=137234748, func=0x8088324 <Feval>,
arg=138231672, threw=0x0) at eval.c:1304
#12 0x8060ffc in execute_rare_opcode (stack_ptr=0xbfbfaf0c,
program_ptr=0x85749d5 "\e\211\034À k¬\005Å\f!\210\013*\207 tests
successful.en't\nw)) \a\035HW\b＠JW\b\e\037", opcode=Bcatch) at bytecode.c:1253
#13 0x80602ff in execute_optimized_program (
program=0x85749d0 "À ÁÂ\215\e\211\034À k¬\005Å\f!\210\013*\207 tests
successful.en't\nw)) \a\035HW\b＠JW\b\e\037", stack_depth=4,
constants_data=0x83daf10)
at bytecode.c:657
#14 0x8060105 in funcall_compiled_function (fun=138253244, nargs=1,
args=0xbfbfb00c) at bytecode.c:519
#15 0x808977b in Ffuncall (nargs=2, args=0xbfbfb008) at eval.c:3210
#16 0x806053c in execute_optimized_program (
program=0x858e110 "À\031Â\013!\034Å
Æ\f!a¬\005ÇÈ!\210\f\026\tÊ\fË\"\210Ì\fË\"\210\016\r«'Î\016\017ÐÆ\f!!_!\036\021Ò\f!\211\036\023\016\021W«\013Ô\016\021\016\023ZÀ\f#\210*Õ\f!\210*À\207-decode-string
(aw)))) raw)) raw)ÂÁÀ\026àX\b",
stack_depth=6, constants_data=0x8301b90) at bytecode.c:747
#17 0x8060105 in funcall_compiled_function (fun=137365000, nargs=1,
args=0xbfbfb118) at bytecode.c:519
#18 0x808977b in Ffuncall (nargs=2, args=0xbfbfb114) at eval.c:3210
#19 0x808cfe0 in call1 (fn=137346084, arg0=139586560) at eval.c:3824
#20 0x818f7ed in temp_output_buffer_show (buf=139586560, same_frame=136603652)
at window.c:3296
#21 0x812633d in Fwith_output_to_temp_buffer (args=137136576) at print.c:473
norbert.
--
LBJ, LBJ, how many JOKES did you tell today??!