Re: undef WIN32_FILENAMES with cygwin-1.7

Hi, Reini - On Wed, Jun 24, 2009 at 6:43 AM, Reini Urban wrote: Interesting. With or without this patch, I cannot get XEmacs to pass the mule-tests on a cygwin > cygwin-1.7.047 . Ever since the 1.7.048 release, the mule-tests have hung. Here's what I did: I started an XEmacs 21.5 with the -vanilla option to suppress my start-up files and my system start-up files. I evaluated the following in the *scratch* buffer: (setq debug-on-quit t) (cd "/usr/local/build/xemacs-21.5-test-2009-06-25-mule") (load-file "tests/automated/test-harness.el") (test-emacs-test-file "tests/automated/mule-tests.el") That last call runs forever. When I interrupt the test with ^G, here's the backtrace I get: Debugger entered--Lisp error: (quit) make-temp-name("/tmp/s360339.aoa/ĐĐĐĐ") (let* ((dstroke ...) (latin2-string ...) (prefix ...) (file-name-coding-system ...) (name1 ...) (name2 ...) (name3 ...) working-symlinks) (Assert (not ...)) (Assert (not ...)) (Silence-Message (write-region ... ... name1)) (Assert (file-exists-p name1)) (Silence-Message (write-region ... ... name3)) (Assert (file-exists-p name3)) (condition-case nil (make-symbolic-link name1 name3) (file-already-exists ...)) (when working-symlinks (make-symbolic-link name1 name2) (Assert ...) (Assert ...) (Assert ...)) (ignore-file-errors (delete-file name1)) (ignore-file-errors (delete-file name2)) (ignore-file-errors (delete-file name3))) (progn (macrolet (...) (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 (...) (aset string 0 ...) (Assert ...)) (Assert (coding-system-p ...)) (Assert (coding-system-canonical-name-p ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias ... ...)) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee ...)) (define-coding-system-alias (quote mule-tests-alias) (quote binary)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (define-coding-system-alias (quote mule-tests-alias) (get-coding-system ...)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (Check-Error-Message error "No such coding system" (define-coding-system-alias ... ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (coding-system-p ...)) (Assert (coding-system-canonical-name-p ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias ... ...)) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee ...)) (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 ...)) ...) (if (featurep (quote mule)) (progn (macrolet ... ... ... ... ...) (let ... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (define-coding-system-alias ... ...) (Assert ...) ...)) (when (featurep (quote mule)) (macrolet (...) (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 (...) (aset string 0 ...) (Assert ...)) (Assert (coding-system-p ...)) (Assert (coding-system-canonical-name-p ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias ... ...)) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee ...)) (define-coding-system-alias (quote mule-tests-alias) (quote binary)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (define-coding-system-alias (quote mule-tests-alias) (get-coding-system ...)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (Check-Error-Message error "No such coding system" (define-coding-system-alias ... ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (coding-system-p ...)) (Assert (coding-system-canonical-name-p ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias ... ...)) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee ...)) (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 ... ... ...)) (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 ... code-point) (check-argument-range code-point 0 2097151) (if ... ... ...)) (let (... revert-buffer-function kill-buffer-hook) (find-file test-file-name) (erase-buffer) (insert "a string\n") (Silence-Message ...) (insert "more text\n") (revert-buffer t t) (Assert ...) (kill-buffer nil) (when ... ... ... ... ... ...) (delete-file test-file-name)) (when (featurep ...) (macrolet ... ... ... ... ...) (let ... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (define-coding-system-alias ... ...) ...))() funcall((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 ... ... ...)) (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 ... code-point) (check-argument-range code-point 0 2097151) (if ... ... ...)) (let (... revert-buffer-function kill-buffer-hook) (find-file test-file-name) (erase-buffer) (insert "a string\n") (Silence-Message ...) (insert "more text\n") (revert-buffer t t) (Assert ...) (kill-buffer nil) (when ... ... ... ... ... ...) (delete-file test-file-name)) (when (featurep ...) (macrolet ... ... ... ... ...) (let ... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (define-coding-system-alias ... ...) ...))) (condition-case error-info (funcall (test-harness-read-from-buffer inbuffer)) (error (incf unexpected-test-file-failures) (princ ...) (message "Unexpected error %S while executing interpreted code." error-info) (message "Test suite execution aborted." error-info))) (with-output-to-temp-buffer "*Test-Log*" (princ (format "Testing %s...\n\n" filename)) (defconst test-harness-failure-tag "FAIL") (defconst test-harness-success-tag "PASS") (defmacro Known-Bug-Expect-Failure (&rest body) (backquote ...)) (defmacro Known-Bug-Expect-Error (expected-error &rest body) (let ... ...)) (defmacro Implementation-Incomplete-Expect-Failure (&rest body) (backquote ...)) (defun Print-Failure (fmt &rest args) (setq fmt ...) (if ... ...) (princ ...)) (defun Print-Pass (fmt &rest args) (setq fmt ...) (and test-harness-verbose ...)) (defun Print-Skip (test reason &optional fmt &rest args) (setq fmt ...) (princ ...)) (defmacro Skip-Test-Unless (condition reason description &rest body) "Unless CONDITION is satisfied, skip test BODY.\nREASON is a description of the condition failure, and must be unique (it\nis used as a hash key). DESCRIPTION describes the tests that were skipped.\nBODY is a sequence of expressions and may contain several tests." (backquote ...)) (defmacro Assert (assertion &optional failing-case) (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) (Skip-Test-Unless ... "can't defadvice" expected-message-regexp ...)) (defmacro Silence-Message (&rest body) (backquote ...)) (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 (format "\nSUMMARY for %s:\n" filename)) (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* (... ... ... ...) (maphash ... skipped-test-reasons) (when ... ...) (setq test-harness-file-results-alist ...) (message "%s" summary-msg)) (when (> unexpected-test-file-failures 0) (setq unexpected-test-suite-failure-files ...) (setq unexpected-test-suite-failures ...) (message "Test suite execution failed unexpectedly.")) (fmakunbound (quote Assert)) (fmakunbound (quote Check-Error)) (fmakunbound (quote Check-Message)) (fmakunbound (quote Check-Error-Message)) (fmakunbound (quote Ignore-Ebola)) (fmakunbound (quote Int-to-Marker)) (and noninteractive (message "%s" ...))) (let ((passes 0) (assertion-failures 0) (no-error-failures 0) (wrong-error-failures 0) (missing-message-failures 0) (other-failures 0) (unexpected-test-file-failures 0) (skipped-test-reasons ...) (trick-optimizer nil) (debug-on-error t) (pass-stream nil)) (with-output-to-temp-buffer "*Test-Log*" (princ ...) (defconst test-harness-failure-tag "FAIL") (defconst test-harness-success-tag "PASS") (defmacro Known-Bug-Expect-Failure ... ...) (defmacro Known-Bug-Expect-Error ... ...) (defmacro Implementation-Incomplete-Expect-Failure ... ...) (defun Print-Failure ... ... ... ...) (defun Print-Pass ... ... ...) (defun Print-Skip ... ... ...) (defmacro Skip-Test-Unless ... "Unless CONDITION is satisfied, skip test BODY.\nREASON is a description of the condition failure, and must be unique (it\nis used as a hash key). DESCRIPTION describes the tests that were skipped.\nBODY is a sequence of expressions and may contain several tests." ...) (defmacro Assert ... ...) (defmacro Check-Error ... ...) (defmacro Check-Error-Message ... ...) (defmacro Check-Message ... ...) (defmacro Silence-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 ...) (princ ...) (princ ...) (princ ...) (princ ...) (princ ...) (princ ...) (let* ... ... ... ... ...) (when ... ... ... ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...) (and noninteractive ...))) test-harness-from-buffer(#<buffer " *Test Input*"> "/usr/local/build/xemacs-21.5-test-2009-06-25-mule/tests/automated/mule-tests.el") (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)) test-emacs-test-file("tests/automated/mule-tests.el") eval-buffer(#<buffer "*scratch*"> nil) ;;; Reading at buffer position 575 #<compiled-function (&optional printflag) "...(5)" [printflag eval-buffer] 3 1049867 nil>() call-interactively(eval-current-buffer) command-execute(eval-current-buffer t) execute-extended-command(nil) call-interactively(execute-extended-command) (dispatch-event "[internal]") What locale are you running in? I tried using LANG=en_US.UTF-8, but that had no effect. Any insights would be appreciated. Regards, Vin _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta