blob: 1f1f2b58027796c5975a700402cd369a5b635ff4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
# Silence unexpected errors. Issues known by upstream:
# * Tag tests producing unexpected test suite failures as expected.
# * Remove language causing an autoload error.
--- a/tests/automated/mule-tests.el
+++ b/tests/automated/mule-tests.el
@@ -830,6 +830,7 @@
tibetan vietnamese-viscii-lower))
(coding-system-for-read 'iso-2022-7))
(insert-file-contents (locate-data-file "HELLO"))
+ (Known-Bug-Expect-Failure
(Assert (equal
;; The sort is to make the algorithm of charsets-in-region
;; irrelevant.
@@ -838,6 +839,8 @@
:test 'string-match :key 'symbol-name)
#'string<)
sorted-charsets-in-HELLO))
+ )
+ (Known-Bug-Expect-Failure
(Assert (equal
(sort (remove* "^jit-ucs-charset-" (charsets-in-string
(buffer-substring (point-min)
@@ -845,12 +848,13 @@
:test 'string-match :key 'symbol-name)
#'string<)
sorted-charsets-in-HELLO))))
+ )
;;---------------------------------------------------------------
;; Language environments, and whether the specified values are sane.
;;---------------------------------------------------------------
(loop
- for language in (mapcar #'car language-info-alist)
+ for language in (remove "Chinese-GB" (mapcar #'car language-info-alist))
with language-input-method = nil
with native-coding-system = nil
with original-language-environment = current-language-environment
|
