Testing c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5\tests\automated\mule-tests.el... Testing Interpreted Lisp PASS: (equal (buffer-string) string) PASS: (eq (aref string 0) ?Å) PASS: (eq (aref string (1- (length string))) ?Å) PASS: (eq (length string) 1000) PASS: (eq (aref string 0) ?L) PASS: (eq (aref string (1- (length string))) ?L) PASS: (eq (length string) 1000) PASS: (eq (aref string 0) ?E) PASS: (eq (aref string (1- (length string))) ?E) PASS: (eq (length string) 1000) PASS: (eq (aref string 0) ?E) PASS: (eq (aref string (1- (length string))) ?E) PASS: (eq (length string) 1000) PASS: (eq (aref string 1) (make-char (quote latin-iso8859-2) 69)) PASS: (coding-system-p (find-coding-system (quote binary))) PASS: (coding-system-canonical-name-p (quote binary)) PASS: (not (coding-system-alias-p (quote binary))) PASS: (not (coding-system-alias-p (quote mule-tests-alias))) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (define-coding-system-alias (quote binary) (quote iso8859-2)) ==> error "Symbol is the canonical name of a coding system and cannot be redefined" error, as expected PASS: (coding-system-aliasee (quote binary)) ==> error "Symbol is not a coding system alias" error, as expected PASS: (coding-system-alias-p (quote mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias))) PASS: (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-unix))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-dos))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-mac))) PASS: (coding-system-alias-p (quote mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias))) PASS: (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-unix))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-dos))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-mac))) PASS: (coding-system-alias-p (quote nested-mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote nested-mule-tests-alias))) PASS: (eq (get-coding-system (quote binary)) (get-coding-system (quote nested-mule-tests-alias))) PASS: (eq (coding-system-aliasee (quote nested-mule-tests-alias)) (quote mule-tests-alias)) PASS: (eq (quote mule-tests-alias) (coding-system-aliasee (quote nested-mule-tests-alias))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias-unix))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias-dos))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias-mac))) PASS: (define-coding-system-alias (quote mule-tests-alias) (quote nested-mule-tests-alias)) ==> error "Attempt to create a coding system alias loop" error, as expected PASS: (define-coding-system-alias (quote no-such-coding-system) (quote no-such-coding-system)) ==> error "No such coding system" error, as expected PASS: (define-coding-system-alias (quote mule-tests-alias) (quote mule-tests-alias)) ==> error "Attempt to create a coding system alias loop" error, as expected PASS: (coding-system-p (find-coding-system (quote binary))) PASS: (coding-system-canonical-name-p (quote binary)) PASS: (not (coding-system-alias-p (quote binary))) PASS: (not (coding-system-alias-p (quote mule-tests-alias))) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (define-coding-system-alias (quote binary) (quote iso8859-2)) ==> error "Symbol is the canonical name of a coding system and cannot be redefined" error, as expected PASS: (coding-system-aliasee (quote binary)) ==> error "Symbol is not a coding system alias" error, as expected PASS: (coding-system-alias-p (quote mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (eq (get-coding-system (quote iso-8859-7)) (get-coding-system (quote mule-tests-alias))) PASS: (eq (quote iso-8859-7) (coding-system-aliasee (quote mule-tests-alias))) PASS: (coding-system-alias-p (quote mule-tests-alias-unix)) PASS: (coding-system-alias-p (quote mule-tests-alias-dos)) PASS: (coding-system-alias-p (quote mule-tests-alias-mac)) PASS: (coding-system-alias-p (quote mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (eq (get-coding-system (quote iso-8859-7)) (get-coding-system (quote mule-tests-alias))) PASS: (eq (quote iso-8859-7) (coding-system-aliasee (quote mule-tests-alias))) PASS: (coding-system-alias-p (quote mule-tests-alias-unix)) PASS: (coding-system-alias-p (quote mule-tests-alias-dos)) PASS: (coding-system-alias-p (quote mule-tests-alias-mac)) PASS: (eq (find-coding-system (quote mule-tests-alias-mac)) (find-coding-system (quote iso-8859-7-mac))) PASS: (coding-system-alias-p (quote nested-mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote nested-mule-tests-alias))) PASS: (eq (get-coding-system (quote iso-8859-7)) (get-coding-system (quote nested-mule-tests-alias))) PASS: (eq (coding-system-aliasee (quote nested-mule-tests-alias)) (quote mule-tests-alias)) PASS: (eq (quote mule-tests-alias) (coding-system-aliasee (quote nested-mule-tests-alias))) PASS: (coding-system-alias-p (quote nested-mule-tests-alias-unix)) PASS: (coding-system-alias-p (quote nested-mule-tests-alias-dos)) PASS: (coding-system-alias-p (quote nested-mule-tests-alias-mac)) PASS: (eq (find-coding-system (quote nested-mule-tests-alias-unix)) (find-coding-system (quote iso-8859-7-unix))) PASS: (define-coding-system-alias (quote mule-tests-alias) (quote nested-mule-tests-alias)) ==> error "Attempt to create a coding system alias loop" error, as expected PASS: (define-coding-system-alias (quote no-such-coding-system) (quote no-such-coding-system)) ==> error "No such coding system" error, as expected PASS: (define-coding-system-alias (quote mule-tests-alias) (quote mule-tests-alias)) ==> error "Attempt to create a coding system alias loop" error, as expected PASS: (not (coding-system-alias-p (quote mule-tests-alias))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-unix))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias-dos))) PASS: (charset-char-string (quote japanese-jisx0208)) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string) PASS: (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string) PASS: (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string) PASS: (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string) PASS: (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string) PASS: (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string) PASS: (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string) PASS: (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string) PASS: (not (equal name1 name2)) PASS: (not (file-exists-p name1)) PASS: (file-exists-p name1) FAIL: Assertion failed: (file-exists-p name2) FAIL: Assertion failed: (equal (file-truename name2) name1) PASS: (equal (file-truename name1) name1) PASS: (eq code (char-to-unicode scaron)) PASS: (eq scaron (unicode-to-char code (quote (latin-iso8859-2)))) PASS: (eq code (char-to-unicode scaron)) PASS: (eq scaron (unicode-to-char code (quote (latin-iso8859-2)))) PASS: (eq code (char-to-unicode scaron)) PASS: (eq scaron (unicode-to-char code (quote (latin-iso8859-2)))) PASS: (eq code (char-to-unicode scaron)) PASS: (eq scaron (unicode-to-char code (quote (latin-iso8859-2)))) PASS: (set-unicode-conversion scaron -10000) ==> error wrong-type-argument, as expected Testing Compiled Lisp PASS: (equal (buffer-string) string) PASS: (eq (aref string 0) ?Å) PASS: (eq (aref string (1- (length string))) ?Å) PASS: (eq (length string) 1000) PASS: (eq (aref string 0) ?L) PASS: (eq (aref string (1- (length string))) ?L) PASS: (eq (length string) 1000) PASS: (eq (aref string 0) ?E) PASS: (eq (aref string (1- (length string))) ?E) PASS: (eq (length string) 1000) PASS: (eq (aref string 0) ?E) PASS: (eq (aref string (1- (length string))) ?E) PASS: (eq (length string) 1000) PASS: (eq (aref string 1) (make-char (quote latin-iso8859-2) 69)) PASS: (coding-system-p (find-coding-system (quote binary))) PASS: (coding-system-canonical-name-p (quote binary)) PASS: (not (coding-system-alias-p (quote binary))) PASS: (not (coding-system-alias-p (quote mule-tests-alias))) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (define-coding-system-alias (quote binary) (quote iso8859-2)) ==> error "Symbol is the canonical name of a coding system and cannot be redefined" error, as expected PASS: (coding-system-aliasee (quote binary)) ==> error "Symbol is not a coding system alias" error, as expected PASS: (coding-system-alias-p (quote mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias))) PASS: (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-unix))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-dos))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-mac))) PASS: (coding-system-alias-p (quote mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (eq (get-coding-system (quote binary)) (get-coding-system (quote mule-tests-alias))) PASS: (eq (quote binary) (coding-system-aliasee (quote mule-tests-alias))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-unix))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-dos))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-mac))) PASS: (coding-system-alias-p (quote nested-mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote nested-mule-tests-alias))) PASS: (eq (get-coding-system (quote binary)) (get-coding-system (quote nested-mule-tests-alias))) PASS: (eq (coding-system-aliasee (quote nested-mule-tests-alias)) (quote mule-tests-alias)) PASS: (eq (quote mule-tests-alias) (coding-system-aliasee (quote nested-mule-tests-alias))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias-unix))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias-dos))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias-mac))) PASS: (define-coding-system-alias (quote mule-tests-alias) (quote nested-mule-tests-alias)) ==> error "Attempt to create a coding system alias loop" error, as expected PASS: (define-coding-system-alias (quote no-such-coding-system) (quote no-such-coding-system)) ==> error "No such coding system" error, as expected PASS: (define-coding-system-alias (quote mule-tests-alias) (quote mule-tests-alias)) ==> error "Attempt to create a coding system alias loop" error, as expected PASS: (coding-system-p (find-coding-system (quote binary))) PASS: (coding-system-canonical-name-p (quote binary)) PASS: (not (coding-system-alias-p (quote binary))) PASS: (not (coding-system-alias-p (quote mule-tests-alias))) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (define-coding-system-alias (quote binary) (quote iso8859-2)) ==> error "Symbol is the canonical name of a coding system and cannot be redefined" error, as expected PASS: (coding-system-aliasee (quote binary)) ==> error "Symbol is not a coding system alias" error, as expected PASS: (coding-system-alias-p (quote mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (eq (get-coding-system (quote iso-8859-7)) (get-coding-system (quote mule-tests-alias))) PASS: (eq (quote iso-8859-7) (coding-system-aliasee (quote mule-tests-alias))) PASS: (coding-system-alias-p (quote mule-tests-alias-unix)) PASS: (coding-system-alias-p (quote mule-tests-alias-dos)) PASS: (coding-system-alias-p (quote mule-tests-alias-mac)) PASS: (coding-system-alias-p (quote mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote mule-tests-alias))) PASS: (eq (get-coding-system (quote iso-8859-7)) (get-coding-system (quote mule-tests-alias))) PASS: (eq (quote iso-8859-7) (coding-system-aliasee (quote mule-tests-alias))) PASS: (coding-system-alias-p (quote mule-tests-alias-unix)) PASS: (coding-system-alias-p (quote mule-tests-alias-dos)) PASS: (coding-system-alias-p (quote mule-tests-alias-mac)) PASS: (eq (find-coding-system (quote mule-tests-alias-mac)) (find-coding-system (quote iso-8859-7-mac))) PASS: (coding-system-alias-p (quote nested-mule-tests-alias)) PASS: (not (coding-system-canonical-name-p (quote nested-mule-tests-alias))) PASS: (eq (get-coding-system (quote iso-8859-7)) (get-coding-system (quote nested-mule-tests-alias))) PASS: (eq (coding-system-aliasee (quote nested-mule-tests-alias)) (quote mule-tests-alias)) PASS: (eq (quote mule-tests-alias) (coding-system-aliasee (quote nested-mule-tests-alias))) PASS: (coding-system-alias-p (quote nested-mule-tests-alias-unix)) PASS: (coding-system-alias-p (quote nested-mule-tests-alias-dos)) PASS: (coding-system-alias-p (quote nested-mule-tests-alias-mac)) PASS: (eq (find-coding-system (quote nested-mule-tests-alias-unix)) (find-coding-system (quote iso-8859-7-unix))) PASS: (define-coding-system-alias (quote mule-tests-alias) (quote nested-mule-tests-alias)) ==> error "Attempt to create a coding system alias loop" error, as expected PASS: (define-coding-system-alias (quote no-such-coding-system) (quote no-such-coding-system)) ==> error "No such coding system" error, as expected PASS: (define-coding-system-alias (quote mule-tests-alias) (quote mule-tests-alias)) ==> error "Attempt to create a coding system alias loop" error, as expected PASS: (not (coding-system-alias-p (quote mule-tests-alias))) PASS: (not (coding-system-alias-p (quote mule-tests-alias-unix))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias))) PASS: (not (coding-system-alias-p (quote nested-mule-tests-alias-dos))) PASS: (charset-char-string (quote japanese-jisx0208)) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 96 k) (* 96 (1+ k))) greek-string) PASS: (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string) PASS: (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string) PASS: (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string) PASS: (equal (substring string (* 94 k) (+ 94 (* 94 k))) ascii-string) PASS: (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string) PASS: (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string) PASS: (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string) PASS: (equal (substring string (* 94 k) (* 94 (1+ k))) ascii-string) PASS: (not (equal name1 name2)) PASS: (not (file-exists-p name1)) PASS: (file-exists-p name1) FAIL: Assertion failed: (file-exists-p name2) FAIL: Assertion failed: (equal (file-truename name2) name1) PASS: (equal (file-truename name1) name1) PASS: (eq code (char-to-unicode scaron)) PASS: (eq scaron (unicode-to-char code (quote (latin-iso8859-2)))) PASS: (eq code (char-to-unicode scaron)) PASS: (eq scaron (unicode-to-char code (quote (latin-iso8859-2)))) PASS: (eq code (char-to-unicode scaron)) PASS: (eq scaron (unicode-to-char code (quote (latin-iso8859-2)))) PASS: (eq code (char-to-unicode scaron)) PASS: (eq scaron (unicode-to-char code (quote (latin-iso8859-2)))) PASS: (set-unicode-conversion scaron -10000) ==> error wrong-type-argument, as expected SUMMARY for c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5\tests\automated\mule-tests.el: 228 passes 4 assertion failures 0 errors that should have been generated, but weren't 0 wrong-error failures 0 missing-message failures 0 other failures