Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/tests/automated/mule-tests.el	Wed Nov 09 12:51:10 2011 +0000
+++ b/tests/automated/mule-tests.el	Wed Nov 09 13:16:19 2011 +0000
@@ -654,25 +654,26 @@
              (let* ((temporary-file-name (make-temp-name
 					  (expand-file-name "zjPQ2Pk"
 							    (temp-directory))))
-		    (byte-compile-result (byte-compile-from-buffer
-					  (current-buffer) temporary-file-name
-					  nil)))
+		    (byte-compile-result
+                     (Silence-Message (byte-compile-from-buffer
+                                       (current-buffer) temporary-file-name
+                                       nil))))
                (Assert (string-match
                         "^;;;###coding system: escape-quoted"
                         (buffer-substring nil nil byte-compile-result))))))
-         (Assert-elc-has-no-specified-encoding ()
+         (Assert-elc-is-raw-text-unix ()
            "Assert the current buffer has no coding cookie if compiled."
            (save-excursion
              (let* ((temporary-file-name (make-temp-name
 					  (expand-file-name "zjPQ2Pk"
 							    (temp-directory))))
-		    (byte-compile-result (byte-compile-from-buffer
-					  (current-buffer) temporary-file-name
-					  nil)))
-               (Assert (not (string-match
-                             ";;;###coding system:"
-                             (buffer-substring nil nil
-                                               byte-compile-result))))))))
+                    (byte-compile-result
+                     (Silence-Message
+                      (byte-compile-from-buffer (current-buffer)
+                                                temporary-file-name nil))))
+               (Assert (string-match
+                        "^;;;###coding system: raw-text-unix"
+                        (buffer-substring nil nil byte-compile-result)))))))
       (insert 
        ;; Create a buffer with Unicode escapes. The #'read call is at
        ;; runtime, because this file may be compiled and read in a non-Mule
@@ -730,7 +731,7 @@
        #r" (defvar testing-mule-compilation-handling 
          (string ?\xab))   ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK")
       
-      (Assert-elc-has-no-specified-encoding)
+      (Assert-elc-is-raw-text-unix)
       (delete-region (point-min) (point-max))
 
       (insert
@@ -738,7 +739,7 @@
        #ru" (defvar testing-mule-compilation-handling 
         (string ?\u00AB))   ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK\")")
       
-      (Assert-elc-has-no-specified-encoding)
+      (Assert-elc-is-raw-text-unix)
       (delete-region (point-min) (point-max))
 
       (insert
@@ -746,7 +747,7 @@
        #r" (defvar testing-mule-compilation-handling 
             (string ?A))   ;; LATIN CAPITAL LETTER A")
       
-      (Assert-elc-has-no-specified-encoding)
+      (Assert-elc-is-raw-text-unix)
       (delete-region (point-min) (point-max))
 
       ;; There used to be a bug here because the coding-cookie insertion code