bug#13543: 24.2; [PATCH] (ert) "wrong-type-argument characterp" when assert fail on large (>28 bit) numbers

[Oleksandr Gavenko <gavenkoa@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 927 bytes --]

In GNU Emacs 24.2.1 (x86_64-pc-linux-gnu, GTK+ Version 2.24.10)
 of 2012-09-09 on trouble, modified by Debian

'should' from lisp/emacs-lisp/ert.el fail to create character from number, for
example evaluate one of these expressions:

  (should (equal #x1000000 1))
  (should (equal 1 -1))

Problem come from "?%c" in:

  (defun ert--explain-format-atom (x)
    "Format the atom X for `ert--explain-equal'."
    (typecase x
      (fixnum (list x (format "#x%x" x) (format "?%c" x)))
      (t x)))

Another problem from (format "?%c" x) is performance penalty when "x" is rare
character code (font library intensively scan for missing character glyph
among all system available fonts causing 5 second delay and 100% hard disk
usage).

I recommend remove formatting to character as amount of problems are larger
then amount of benefits.

I discover this issue when start write tests for low level binary parsing
library (ASN.1).


[-- Attachment #2: ert--explain-format-atom.patch --]
[-- Type: text/plain, Size: 958 bytes --]

=== modified file 'lisp/ChangeLog'
--- lisp/ChangeLog	2012-12-19 13:01:16 +0000
+++ lisp/ChangeLog	2013-01-24 20:29:45 +0000
@@ -1,3 +1,10 @@
+2013-01-24  Oleksandr Gavenko  <gavenkoa@gmail.com>
+
+	* ert.el (ert--explain-format-atom): Delete formating into
+	character due to performance issue on attempts to find font glyph
+	for rare used character and impossibility handle negative or large
+	numbers.
+
 2012-12-19  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp-sh.el (tramp-sh-handle-file-acl): Delete empty lines

=== modified file 'lisp/emacs-lisp/ert.el'
--- lisp/emacs-lisp/ert.el	2012-11-23 03:26:09 +0000
+++ lisp/emacs-lisp/ert.el	2013-01-24 20:21:48 +0000
@@ -568,7 +568,7 @@
 (defun ert--explain-format-atom (x)
   "Format the atom X for `ert--explain-equal'."
   (cl-typecase x
-    (fixnum (list x (format "#x%x" x) (format "?%c" x)))
+    (fixnum (list x (format "#x%x" x)))
     (t x)))
 
 (defun ert--explain-equal-rec (a b)


[-- Attachment #3: Type: text/plain, Size: 19 bytes --]


-- 
Best regards!