'make check' Failure Latest 21.1 from CVS

Now I'm seeing the 'make check' failure that Martin reported. Yoshiki, was this failure caused by your fix for the insdel.c assertion? - vin PS. Martin, thanks for making the return code of 'make check' reflect the test status. Test results: Testing /usr/local/src/xemacs-21.2-2000-08-06/tests/automated/lisp-tests.el...Fatal error: assertion failed, file /usr/local/src/xemacs-21.2-2000-08-06/src/insdel.c, line 1122, ( x) >= BI_BUF_BEG (buf) && x <= BI_BUF_Z (buf) Fatal error (6). Your files have been auto-saved. Use `M-x recover-session' to recover them. If you have access to the PROBLEMS file that came with your version of XEmacs, please check to see if your crash is described there, as there may be a workaround available. Otherwise, please report this bug by running the send-pr script included with XEmacs, or selecting `Send Bug Report' from the help menu. As a last resort send ordinary email to `crashes(a)xemacs.org&#39;. *MAKE SURE* to include the information in the command M-x describe-installation. If at all possible, *please* try to obtain a C stack backtrace; it will help us immensely in determining what went wrong. To do this, locate the core file that was produced as a result of this crash (it's usually called `core' and is located in the directory in which you started the editor, or maybe in your home directory), and type gdb /usr/local/build/xemacs-21.2-2000-08-06/src/xemacs core then type `where' when the debugger prompt comes up. (If you don't have GDB on your system, you might have DBX, or XDB, or SDB. A similar procedure should work for all of these. Ask your system administrator if you need more help.) Lisp backtrace follows: string-match("\\(\\.\\=\\)" ".") (not (string-match "\\(\\.\\=\\)" ".")) (or (not (string-match "\\(\\.\\=\\)" ".")) (signal (quote cl-assertion-failed) (list ...))) (progn (or (not ...) (signal ... ...)) nil) (assert (not (string-match "\\(\\.\\=\\)" "."))) (progn (assert (not ...)) (princ (format "PASS: %S" ...)) (terpri) (incf passes)) # (condition-case ... . ((cl-assertion-failed (princ ...) (incf assertion-failures)) (t (princ ...) (incf other-failures)))) (condition-case error-info (progn (assert ...) (princ ...) (terpri) (incf passes)) (cl-assertion-failed (princ ...) (incf assertion-failures)) (t (princ ...) (incf other-failures))) (Assert (not (string-match "\\(\\.\\=\\)" "."))) (lambda nil (defvar passes) (defvar assertion-failures) (defvar no-error-failures) (defvar wrong-error-failures) (defvar missing-message-failures) (defvar other-failures) (defvar unexpected-test-suite-failure) (defvar trick-optimizer) (eval-when-compile (condition-case nil ... ...)) (Check-Error wrong-number-of-arguments (setq setq-test-foo)) (Check-Error wrong-number-of-arguments (setq setq-test-foo 1 setq-test-bar)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo 1 setq-test-bar)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... 42)) (Assert (eq ... 42)) (Assert (eq ... 99)) (Assert (eq ... 99)) (macrolet (...) (test-setq nil ...) (test-setq nil ...) (test-setq 42 ...) (test-setq 42 ...) (test-setq 42 ...) (test-setq 42 ...)) (let (... ... ... ...) (dolist ... ... ...) (dolist ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (fillarray my-vector 5) (fillarray my-bit-vector 1) (fillarray my-string ?5) (dolist ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (fillarray my-bit-vector 0) (Assert ...) (Assert ...)) (defun make-circular-list (length) "Create evil emacs-crashing circular list of length LENGTH" (let ... ... circular-list)) (defun make-list-012 nil (list 0 1 2)) (Check-Error wrong-type-argument (nconc ... nil)) (dolist (length ...) (Check-Error circular-list ...) (Check-Error circular-list ...) (Check-Error circular-list ...)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (Assert (equal ... ...)) (let (...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (last ...)) (Check-Error wrong-number-of-arguments (last)) (Check-Error wrong-number-of-arguments (last ... 1 1)) (Check-Error circular-list (last ...)) (Check-Error circular-list (last ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (butlast ...)) (Check-Error wrong-type-argument (nbutlast ...)) (Check-Error wrong-number-of-arguments (butlast)) (Check-Error wrong-number-of-arguments (nbutlast)) (Check-Error wrong-number-of-arguments (butlast ... 1 1)) (Check-Error wrong-number-of-arguments (nbutlast ... 1 1)) (Check-Error circular-list (butlast ...)) (Check-Error circular-list (nbutlast ...)) (Check-Error circular-list (butlast ...)) (Check-Error circular-list (nbutlast ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Check-Error wrong-type-argument (copy-list ...)) (Check-Error wrong-number-of-arguments (copy-list)) (Check-Error wrong-number-of-arguments (copy-list ... 1)) (Check-Error circular-list (copy-list ...)) (Check-Error circular-list (copy-list ...)) (Assert (eq ... ...)) (dolist (x ...) (let ... ...)) (Assert (eq ... 2)) (Assert (= ... 2.0)) (Assert (= ... 4.0)) (Assert (= ... 2.0)) (Assert (= ... 2.0)) (Assert (= ... 3.0)) (Assert (= ... 3.0)) (Assert (eq ... most-negative-fixnum)) (Assert (eq ... most-negative-fixnum)) (Check-Error wrong-number-of-arguments (-)) (Assert (eq ... 0)) (Assert (eq ... -1)) (dolist (one ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (dolist ... ... ... ... ... ... ...)) (Assert (= ... 0.5)) (Assert (= ... ...)) (Assert (eq ... most-positive-fixnum)) (Assert (eq ... most-positive-fixnum)) (dolist (zero ...) (Check-Error arith-error ...) (dolist ... ... ...)) (Check-Error wrong-number-of-arguments (/)) (let (x) (Assert ...) (Assert ...)) (dolist (six ...) (dolist ... ...)) (dolist (three ...) (Assert ...)) (dolist (two ...) (Assert ...)) (Assert (= 1 ...)) (dolist (one ...) (Assert ...)) (dolist (two ...) (Assert ...)) (dolist (six ...) (dolist ... ...)) (dolist (three ...) (dolist ... ... ...)) (Assert (= 0 ...)) (dolist (one ...) (Assert ...)) (dolist (two ...) (Assert ...)) (dolist (five ...) (dolist ... ...)) (dolist (one ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (dolist ... ... ... ... ... ... ...)) (Assert (= ... 0)) (Assert (= ... 0)) (Assert (= ... -1)) (Check-Error wrong-type-argument (logxor 3.0)) (Check-Error wrong-type-argument (logior 3.0)) (Check-Error wrong-type-argument (logand 3.0)) (dolist (three ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (dolist (one ...) (dolist ... ... ... ...) (dolist ... ... ... ...)) (Check-Error wrong-number-of-arguments (%)) (Check-Error wrong-number-of-arguments (% 1)) (Check-Error wrong-number-of-arguments (% 1 2 3)) (Check-Error wrong-number-of-arguments (mod)) (Check-Error wrong-number-of-arguments (mod 1)) (Check-Error wrong-number-of-arguments (mod 1 2 3)) (Check-Error wrong-type-argument (% 10.0 2)) (Check-Error wrong-type-argument (% 10 2.0)) (dotimes (j 30) (let ... ... ... ...)) (macrolet (...) (division-test 7) (division-test ?\^G) (division-test ...)) (Check-Error wrong-number-of-arguments (=)) (Check-Error wrong-number-of-arguments (<)) (Check-Error wrong-number-of-arguments (>)) (Check-Error wrong-number-of-arguments (<=)) (Check-Error wrong-number-of-arguments (>=)) (Check-Error wrong-number-of-arguments (/=)) (loop for x in (backquote ...) do (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (= ... 1)) (Check-Error wrong-type-argument (<= ... 1)) (Check-Error wrong-type-argument (>= ... 1)) (Check-Error wrong-type-argument (< ... 1)) (Check-Error wrong-type-argument (> ... 1)) (Check-Error wrong-type-argument (/= ... 1)) (dolist (one ...) (dolist ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (dolist (one ...) (dolist ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (Assert (< 1 2)) (Assert (< 1 2 3 4 5 6)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (< 1 2 3 4 5 6)) (Assert (<= 1 2 3 4 5 6)) (Assert (<= 1 2 3 4 5 6 6)) (Assert (not ...)) (Assert (<= 1 1)) (Assert (not ...)) (Assert (= 1 ...)) (Assert (= ... ...)) (macrolet (... ...) (test-funs member old-member memq old-memq assoc old-assoc rassoc old-rassoc rassq old-rassq delete old-delete delq old-delq remassoc remassq remrassoc remrassq)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (flet (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (flet (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (defmacro check-function-argcounts (fun min max) (backquote ...)) (check-function-argcounts (quote prog1) 1 nil) (check-function-argcounts (quote command-execute) 1 3) (check-function-argcounts (quote funcall) 1 nil) (check-function-argcounts (quote garbage-collect) 0 0) (loop for (arglist min max) in (quote ...) do (eval ...)) (fset (quote test-sym1) (quote test-sym1)) (Check-Error cyclic-function-indirection (test-sym1)) (fset (quote test-sym1) (quote test-sym2)) (fset (quote test-sym2) (quote test-sym1)) (Check-Error cyclic-function-indirection (test-sym1)) (fmakunbound (quote test-sym1)) (fmakunbound (quote test-sym2)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Check-Error wrong-type-argument (mapcar ... ...)) (Assert (equal ... load-path)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (let (... ...) (mapc ... list) (Assert ...)) (Check-Error wrong-type-argument (mapvector ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Check-Error wrong-type-argument (mapconcat ... ... "foo")) (Assert (equal ... "1|2|3")) (Assert (equal ... "1|2|3")) (Assert (let ... ...)) (Assert (let ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal #*010 #*010)) (Assert (equal #* #*)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (equal ... #*010)) (Assert (equal ... #*111)) (Assert (equal ... #*000)) (make-local-variable (quote test-emacs-buffer-local-variable)) (byte-compile (defun test-emacs-buffer-local-parameter ... ...)) (test-emacs-buffer-local-parameter nil) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (not ...)) (with-temp-buffer (erase-buffer) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (insert "foobar") (Assert ...) (Assert ...) (Assert ...) (Assert ...) (goto-char ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (put sym ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (loop for obj in (list ... "test-string" ... ...) do (Assert ...) (Assert ...) (Assert ...) (when ... ...) (Assert ...) (when ... ...) (Assert ...) (when ... ...) (Assert ...)) (Check-Error-Message error "Object type has no properties" (get 2 ...)) (Check-Error-Message error "Object type has no settable properties" (put ... ... ...)) (Check-Error-Message error "Object type has no removable properties" (remprop ?3 ...)) (Check-Error-Message error "Object type has no properties" (object-plist ...)) (Check-Error-Message error "Can't remove property from object" (remprop ... ...)) (Assert (equal ... nil)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... "123")) (Assert (equal ... "23")) (Assert (equal ... #*0011)) (Assert (equal ... #*01)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Check-Error (quote wrong-type-argument) (subseq 3 2)) (Check-Error (quote args-out-of-range) (subseq ... -42)) (Check-Error (quote args-out-of-range) (subseq ... 0 42)))() funcall((lambda nil (defvar passes) (defvar assertion-failures) (defvar no-error-failures) (defvar wrong-error-failures) (defvar missing-message-failures) (defvar other-failures) (defvar unexpected-test-suite-failure) (defvar trick-optimizer) (eval-when-compile (condition-case nil ... ...)) (Check-Error wrong-number-of-arguments (setq setq-test-foo)) (Check-Error wrong-number-of-arguments (setq setq-test-foo 1 setq-test-bar)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo 1 setq-test-bar)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... 42)) (Assert (eq ... 42)) (Assert (eq ... 99)) (Assert (eq ... 99)) (macrolet (...) (test-setq nil ...) (test-setq nil ...) (test-setq 42 ...) (test-setq 42 ...) (test-setq 42 ...) (test-setq 42 ...)) (let (... ... ... ...) (dolist ... ... ...) (dolist ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (fillarray my-vector 5) (fillarray my-bit-vector 1) (fillarray my-string ?5) (dolist ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (fillarray my-bit-vector 0) (Assert ...) (Assert ...)) (defun make-circular-list (length) "Create evil emacs-crashing circular list of length LENGTH" (let ... ... circular-list)) (defun make-list-012 nil (list 0 1 2)) (Check-Error wrong-type-argument (nconc ... nil)) (dolist (length ...) (Check-Error circular-list ...) (Check-Error circular-list ...) (Check-Error circular-list ...)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (Assert (equal ... ...)) (let (...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (last ...)) (Check-Error wrong-number-of-arguments (last)) (Check-Error wrong-number-of-arguments (last ... 1 1)) (Check-Error circular-list (last ...)) (Check-Error circular-list (last ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (butlast ...)) (Check-Error wrong-type-argument (nbutlast ...)) (Check-Error wrong-number-of-arguments (butlast)) (Check-Error wrong-number-of-arguments (nbutlast)) (Check-Error wrong-number-of-arguments (butlast ... 1 1)) (Check-Error wrong-number-of-arguments (nbutlast ... 1 1)) (Check-Error circular-list (butlast ...)) (Check-Error circular-list (nbutlast ...)) (Check-Error circular-list (butlast ...)) (Check-Error circular-list (nbutlast ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Check-Error wrong-type-argument (copy-list ...)) (Check-Error wrong-number-of-arguments (copy-list)) (Check-Error wrong-number-of-arguments (copy-list ... 1)) (Check-Error circular-list (copy-list ...)) (Check-Error circular-list (copy-list ...)) (Assert (eq ... ...)) (dolist (x ...) (let ... ...)) (Assert (eq ... 2)) (Assert (= ... 2.0)) (Assert (= ... 4.0)) (Assert (= ... 2.0)) (Assert (= ... 2.0)) (Assert (= ... 3.0)) (Assert (= ... 3.0)) (Assert (eq ... most-negative-fixnum)) (Assert (eq ... most-negative-fixnum)) (Check-Error wrong-number-of-arguments (-)) (Assert (eq ... 0)) (Assert (eq ... -1)) (dolist (one ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (dolist ... ... ... ... ... ... ...)) (Assert (= ... 0.5)) (Assert (= ... ...)) (Assert (eq ... most-positive-fixnum)) (Assert (eq ... most-positive-fixnum)) (dolist (zero ...) (Check-Error arith-error ...) (dolist ... ... ...)) (Check-Error wrong-number-of-arguments (/)) (let (x) (Assert ...) (Assert ...)) (dolist (six ...) (dolist ... ...)) (dolist (three ...) (Assert ...)) (dolist (two ...) (Assert ...)) (Assert (= 1 ...)) (dolist (one ...) (Assert ...)) (dolist (two ...) (Assert ...)) (dolist (six ...) (dolist ... ...)) (dolist (three ...) (dolist ... ... ...)) (Assert (= 0 ...)) (dolist (one ...) (Assert ...)) (dolist (two ...) (Assert ...)) (dolist (five ...) (dolist ... ...)) (dolist (one ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (dolist ... ... ... ... ... ... ...)) (Assert (= ... 0)) (Assert (= ... 0)) (Assert (= ... -1)) (Check-Error wrong-type-argument (logxor 3.0)) (Check-Error wrong-type-argument (logior 3.0)) (Check-Error wrong-type-argument (logand 3.0)) (dolist (three ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (dolist (one ...) (dolist ... ... ... ...) (dolist ... ... ... ...)) (Check-Error wrong-number-of-arguments (%)) (Check-Error wrong-number-of-arguments (% 1)) (Check-Error wrong-number-of-arguments (% 1 2 3)) (Check-Error wrong-number-of-arguments (mod)) (Check-Error wrong-number-of-arguments (mod 1)) (Check-Error wrong-number-of-arguments (mod 1 2 3)) (Check-Error wrong-type-argument (% 10.0 2)) (Check-Error wrong-type-argument (% 10 2.0)) (dotimes (j 30) (let ... ... ... ...)) (macrolet (...) (division-test 7) (division-test ?\^G) (division-test ...)) (Check-Error wrong-number-of-arguments (=)) (Check-Error wrong-number-of-arguments (<)) (Check-Error wrong-number-of-arguments (>)) (Check-Error wrong-number-of-arguments (<=)) (Check-Error wrong-number-of-arguments (>=)) (Check-Error wrong-number-of-arguments (/=)) (loop for x in (backquote ...) do (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (= ... 1)) (Check-Error wrong-type-argument (<= ... 1)) (Check-Error wrong-type-argument (>= ... 1)) (Check-Error wrong-type-argument (< ... 1)) (Check-Error wrong-type-argument (> ... 1)) (Check-Error wrong-type-argument (/= ... 1)) (dolist (one ...) (dolist ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (dolist (one ...) (dolist ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (Assert (< 1 2)) (Assert (< 1 2 3 4 5 6)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (< 1 2 3 4 5 6)) (Assert (<= 1 2 3 4 5 6)) (Assert (<= 1 2 3 4 5 6 6)) (Assert (not ...)) (Assert (<= 1 1)) (Assert (not ...)) (Assert (= 1 ...)) (Assert (= ... ...)) (macrolet (... ...) (test-funs member old-member memq old-memq assoc old-assoc rassoc old-rassoc rassq old-rassq delete old-delete delq old-delq remassoc remassq remrassoc remrassq)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (flet (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (flet (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (defmacro check-function-argcounts (fun min max) (backquote ...)) (check-function-argcounts (quote prog1) 1 nil) (check-function-argcounts (quote command-execute) 1 3) (check-function-argcounts (quote funcall) 1 nil) (check-function-argcounts (quote garbage-collect) 0 0) (loop for (arglist min max) in (quote ...) do (eval ...)) (fset (quote test-sym1) (quote test-sym1)) (Check-Error cyclic-function-indirection (test-sym1)) (fset (quote test-sym1) (quote test-sym2)) (fset (quote test-sym2) (quote test-sym1)) (Check-Error cyclic-function-indirection (test-sym1)) (fmakunbound (quote test-sym1)) (fmakunbound (quote test-sym2)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Check-Error wrong-type-argument (mapcar ... ...)) (Assert (equal ... load-path)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (let (... ...) (mapc ... list) (Assert ...)) (Check-Error wrong-type-argument (mapvector ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Check-Error wrong-type-argument (mapconcat ... ... "foo")) (Assert (equal ... "1|2|3")) (Assert (equal ... "1|2|3")) (Assert (let ... ...)) (Assert (let ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal #*010 #*010)) (Assert (equal #* #*)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (equal ... #*010)) (Assert (equal ... #*111)) (Assert (equal ... #*000)) (make-local-variable (quote test-emacs-buffer-local-variable)) (byte-compile (defun test-emacs-buffer-local-parameter ... ...)) (test-emacs-buffer-local-parameter nil) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (not ...)) (with-temp-buffer (erase-buffer) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (insert "foobar") (Assert ...) (Assert ...) (Assert ...) (Assert ...) (goto-char ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (put sym ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (loop for obj in (list ... "test-string" ... ...) do (Assert ...) (Assert ...) (Assert ...) (when ... ...) (Assert ...) (when ... ...) (Assert ...) (when ... ...) (Assert ...)) (Check-Error-Message error "Object type has no properties" (get 2 ...)) (Check-Error-Message error "Object type has no settable properties" (put ... ... ...)) (Check-Error-Message error "Object type has no removable properties" (remprop ?3 ...)) (Check-Error-Message error "Object type has no properties" (object-plist ...)) (Check-Error-Message error "Can't remove property from object" (remprop ... ...)) (Assert (equal ... nil)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... "123")) (Assert (equal ... "23")) (Assert (equal ... #*0011)) (Assert (equal ... #*01)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Check-Error (quote wrong-type-argument) (subseq 3 2)) (Check-Error (quote args-out-of-range) (subseq ... -42)) (Check-Error (quote args-out-of-range) (subseq ... 0 42)))) # (condition-case ... . ((error (setq unexpected-test-suite-failure t) (princ ...) (message "Unexpected error %S while executing interpreted code." error-info) (message "Test suite execution aborted." error-info)))) (condition-case error-info (funcall (test-harness-read-from-buffer inbuffer)) (error (setq unexpected-test-suite-failure t) (princ ...) (message "Unexpected error %S while executing interpreted code." error-info) (message "Test suite execution aborted." error-info))) # bind (standard-output) (with-output-to-temp-buffer "*Test-Log*" (defmacro Assert (assertion) (backquote ...)) (defmacro Check-Error (expected-error &rest body) (let ... ...)) (defmacro 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 Compiled Lisp\n\n") (let (code) (condition-case error-info ... ...) (condition-case error-info ... ...)) (princ "\nSUMMARY:\n") (princ (format " %5d passes\n" passes)) (princ (format " %5d assertion failures\n" assertion-failures)) (princ (format " %5d errors that should have been generated, but weren't\n" no-error-failures)) (princ (format " %5d wrong-error failures\n" wrong-error-failures)) (princ (format " %5d missing-message failures\n" missing-message-failures)) (princ (format " %5d other failures\n" other-failures)) (let* (... ... ...) (message "%s" summary-msg)) (when unexpected-test-suite-failure (message "Test suite execution failed unexpectedly.")) (fmakunbound (quote Assert)) (fmakunbound (quote Check-Error)) (fmakunbound (quote Ignore-Ebola)) (fmakunbound (quote Int-to-Marker))) # bind (debug-on-error unexpected-test-suite-failure trick-optimizer other-failures missing-message-failures wrong-error-failures no-error-failures assertion-failures passes) (let ((passes 0) (assertion-failures 0) (no-error-failures 0) (wrong-error-failures 0) (missing-message-failures 0) (other-failures 0) (trick-optimizer nil) (unexpected-test-suite-failure nil) (debug-on-error t)) (with-output-to-temp-buffer "*Test-Log*" (defmacro Assert ... ...) (defmacro Check-Error ... ...) (defmacro Check-Error-Message ... ...) (defmacro Check-Message ... ...) (defmacro Ignore-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 ...) (princ ...) (princ ...) (princ ...) (let* ... ...) (when unexpected-test-suite-failure ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...))) # bind (filename inbuffer) test-harness-from-buffer(#<buffer " *Test Input*"> "/usr/local/src/xemacs-21.2-2000-08-06/tests/automated/lisp-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-contents filename) (let ... ... ...)) (test-harness-from-buffer input-buffer filename) (kill-buffer input-buffer)) # bind (filename) test-emacs-test-file("/usr/local/src/xemacs-21.2-2000-08-06/tests/automated/lisp-tests.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/local/src/xemacs-21.2-2000-08-06/tests/automated/lisp-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 (batch-test-emacs-1 file-in-dir) (setq error t))) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not ...)) (or (batch-test-emacs-1 file-in-dir) (setq error t))) (while --dolist-temp--8701 (setq file-in-dir (car --dolist-temp--8701)) (when (and ... ...) (or ... ...)) (setq --dolist-temp--8701 (cdr --dolist-temp--8701))) # bind (file-in-dir --dolist-temp--8701) (let ((--dolist-temp--8701 ...) file-in-dir) (while --dolist-temp--8701 (setq file-in-dir ...) (when ... ...) (setq --dolist-temp--8701 ...)) nil) # (catch --cl-block-nil-- ...) (catch (quote --cl-block-nil--) (let (... file-in-dir) (while --dolist-temp--8701 ... ... ...) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) (block nil (let (... file-in-dir) (while --dolist-temp--8701 ... ... ...) nil)) (dolist (file-in-dir (directory-files file t)) (when (and ... ...) (or ... ...))) (if (file-directory-p file) (dolist (file-in-dir ...) (when ... ...)) (or (batch-test-emacs-1 file) (setq error t))) (while --dolist-temp--8700 (setq file (car --dolist-temp--8700)) (if (file-directory-p file) (dolist ... ...) (or ... ...)) (setq --dolist-temp--8700 (cdr --dolist-temp--8700))) # bind (file --dolist-temp--8700) (let ((--dolist-temp--8700 command-line-args-left) file) (while --dolist-temp--8700 (setq file ...) (if ... ... ...) (setq --dolist-temp--8700 ...)) nil) # (catch --cl-block-nil-- ...) (catch (quote --cl-block-nil--) (let (... file) (while --dolist-temp--8700 ... ... ...) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) (block nil (let (... file) (while --dolist-temp--8700 ... ... ...) 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 ... ... ...)) (message "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 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 ...) make[1]: *** [check] Aborted (core dumped) make[1]: Leaving directory `/usr/local/build/xemacs-21.2-2000-08-06/src' make: *** [check] Error 2