1 new commit in XEmacs:
https://bitbucket.org/xemacs/xemacs/commits/450ec5be18d1/
Changeset: 450ec5be18d1
User: kehoea
Date: 2017-10-29 13:48:11+00:00
Summary: Don't run #'test-chars on unicode-internal, mule-tests.el
tests/ChangeLog addition:
2017-10-29 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/mule-tests.el:
Don't run #'test-chars on unicode-internal, the time and memory
demands for inserting #x40000000 characters, then comparing them
to a string constructed separately make it impractical.
Affected #: 2 files
diff -r 75c2debd5be652fa2c9959d9a7b01c66248d3712 -r
450ec5be18d1431b8a6f8377d836a2bc86f59f59 tests/ChangeLog
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,10 @@
+2017-10-29 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/mule-tests.el:
+ Don't run #'test-chars on unicode-internal, the time and memory
+ demands for inserting #x40000000 characters, then comparing them
+ to a string constructed separately make it impractical.
+
2017-09-30 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/extent-tests.el:
diff -r 75c2debd5be652fa2c9959d9a7b01c66248d3712 -r
450ec5be18d1431b8a6f8377d836a2bc86f59f59 tests/automated/mule-tests.el
--- a/tests/automated/mule-tests.el
+++ b/tests/automated/mule-tests.el
@@ -74,9 +74,14 @@
(insert string)
(assert (equal (buffer-string) string))))))
-;; Run #'test-chars in byte-compiled mode only.
-(when (compiled-function-p (symbol-function 'test-chars))
- (test-chars t))
+(Skip-Test-Unless
+ ;; unicode-internal has a value of #x40000000, (expt 2 30), for
+ ;; char-code-limit and even re-writing the above to avoid allocating the list
+ ;; and the string means I run out of memory when I attempt to run this.
+ (<= char-code-limit #x200000)
+ "CHAR-CODE-LIMIT is impractically large"
+ ;; Run #'test-chars in byte-compiled mode only.
+ (and (compiled-function-p (symbol-function 'test-chars)) (test-chars t)))
(defun unicode-code-point-to-utf-8-string (code-point)
"Convert a Unicode code point to the equivalent UTF-8 string.
Repository URL:
https://bitbucket.org/xemacs/xemacs/
--
This is a commit notification from
bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.