Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 5595:391d809fa4e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update tests that have started failing because of changed design decisions. 2011-11-09 Aidan Kehoe <kehoea@parhasard.net> Update some tests that have started failing because of some changed design decisions. * automated/lisp-tests.el (eq): (type-of 42) now returns the symbol fixnum. * automated/lisp-tests.el (needs-lexical-context): (function ...) doesn't create a lexical context, and this is now the case in interpreted as well as in compiled code. * automated/mule-tests.el (featurep): Silence messages when byte-compiling files; if a file doesn't have the escape-quoted coding cookie, it will now have the raw-text-unix coding cookie, look for that instead of looking for the absence of the escape-quoted coding cookie.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 09 Nov 2011 13:16:19 +0000
parents 071b810ceb18
children 00fd55d635fb
comparison
equal deleted inserted replaced
5594:cc8ea7ed4286 5595:391d809fa4e9
652 "Assert the current buffer has an escape-quoted cookie if compiled." 652 "Assert the current buffer has an escape-quoted cookie if compiled."
653 (save-excursion 653 (save-excursion
654 (let* ((temporary-file-name (make-temp-name 654 (let* ((temporary-file-name (make-temp-name
655 (expand-file-name "zjPQ2Pk" 655 (expand-file-name "zjPQ2Pk"
656 (temp-directory)))) 656 (temp-directory))))
657 (byte-compile-result (byte-compile-from-buffer 657 (byte-compile-result
658 (current-buffer) temporary-file-name 658 (Silence-Message (byte-compile-from-buffer
659 nil))) 659 (current-buffer) temporary-file-name
660 nil))))
660 (Assert (string-match 661 (Assert (string-match
661 "^;;;###coding system: escape-quoted" 662 "^;;;###coding system: escape-quoted"
662 (buffer-substring nil nil byte-compile-result)))))) 663 (buffer-substring nil nil byte-compile-result))))))
663 (Assert-elc-has-no-specified-encoding () 664 (Assert-elc-is-raw-text-unix ()
664 "Assert the current buffer has no coding cookie if compiled." 665 "Assert the current buffer has no coding cookie if compiled."
665 (save-excursion 666 (save-excursion
666 (let* ((temporary-file-name (make-temp-name 667 (let* ((temporary-file-name (make-temp-name
667 (expand-file-name "zjPQ2Pk" 668 (expand-file-name "zjPQ2Pk"
668 (temp-directory)))) 669 (temp-directory))))
669 (byte-compile-result (byte-compile-from-buffer 670 (byte-compile-result
670 (current-buffer) temporary-file-name 671 (Silence-Message
671 nil))) 672 (byte-compile-from-buffer (current-buffer)
672 (Assert (not (string-match 673 temporary-file-name nil))))
673 ";;;###coding system:" 674 (Assert (string-match
674 (buffer-substring nil nil 675 "^;;;###coding system: raw-text-unix"
675 byte-compile-result)))))))) 676 (buffer-substring nil nil byte-compile-result)))))))
676 (insert 677 (insert
677 ;; Create a buffer with Unicode escapes. The #'read call is at 678 ;; Create a buffer with Unicode escapes. The #'read call is at
678 ;; runtime, because this file may be compiled and read in a non-Mule 679 ;; runtime, because this file may be compiled and read in a non-Mule
679 ;; XEmacs. (But it won't be run.) 680 ;; XEmacs. (But it won't be run.)
680 (read 681 (read
728 ;; A single latin-1 hex digit escape No run-time #'read call, 729 ;; A single latin-1 hex digit escape No run-time #'read call,
729 ;; non-Mule can handle this too. 730 ;; non-Mule can handle this too.
730 #r" (defvar testing-mule-compilation-handling 731 #r" (defvar testing-mule-compilation-handling
731 (string ?\xab)) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK") 732 (string ?\xab)) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK")
732 733
733 (Assert-elc-has-no-specified-encoding) 734 (Assert-elc-is-raw-text-unix)
734 (delete-region (point-min) (point-max)) 735 (delete-region (point-min) (point-max))
735 736
736 (insert 737 (insert
737 ;; A single latin-1 character. No run-time #'read call. 738 ;; A single latin-1 character. No run-time #'read call.
738 #ru" (defvar testing-mule-compilation-handling 739 #ru" (defvar testing-mule-compilation-handling
739 (string ?\u00AB)) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK\")") 740 (string ?\u00AB)) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK\")")
740 741
741 (Assert-elc-has-no-specified-encoding) 742 (Assert-elc-is-raw-text-unix)
742 (delete-region (point-min) (point-max)) 743 (delete-region (point-min) (point-max))
743 744
744 (insert 745 (insert
745 ;; Just ASCII. No run-time #'read call 746 ;; Just ASCII. No run-time #'read call
746 #r" (defvar testing-mule-compilation-handling 747 #r" (defvar testing-mule-compilation-handling
747 (string ?A)) ;; LATIN CAPITAL LETTER A") 748 (string ?A)) ;; LATIN CAPITAL LETTER A")
748 749
749 (Assert-elc-has-no-specified-encoding) 750 (Assert-elc-is-raw-text-unix)
750 (delete-region (point-min) (point-max)) 751 (delete-region (point-min) (point-max))
751 752
752 ;; There used to be a bug here because the coding-cookie insertion code 753 ;; There used to be a bug here because the coding-cookie insertion code
753 ;; looks at the input buffer, not the output buffer. 754 ;; looks at the input buffer, not the output buffer.
754 ;; 755 ;;