]> code.delx.au - gnu-emacs/blobdiff - test/automated/print-tests.el
* lisp/emacs-lisp/package.el (package-unpack): Load before compiling
[gnu-emacs] / test / automated / print-tests.el
index 2761109d2d5aa8f9bf61b6d4f4b286ff471bbf4e..fe8c56553a8250e79d844c06f0f656ccf20e3411 100644 (file)
 
 (require 'ert)
 
+(ert-deftest print-hex-backslash ()
+  (should (string= (let ((print-escape-multibyte t)
+                         (print-escape-newlines t))
+                     (prin1-to-string "\u00A2\ff"))
+                   "\"\\x00a2\\ff\"")))
+
 (ert-deftest terpri ()
   (should (string= (with-output-to-string
                      (princ 'abc)