Mercurial > hg > xemacs-beta

changeset 4318:4d0f773d5e21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix the test failures introduced by the non-ISO-2022 coding systems. APPROVE COMMIT NOTE: this patch has been committed. This is patch http://mid.gmane.org/18264.25814.828088.486899@parhasard.net tests/ChangeLog addition: 2007-12-06 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Add a Known-Bug-Expect-Error call testing and documenting that we don't support all of the Unicode code space in a single session. * automated/test-harness.el (Known-Bug-Expect-Error): Provide Known-Bug-Expect-Error, analagous to Known-Bug-Expect-Failure and Check-Error. * automated/test-harness.el (Silence-Message): Dynamically bind the function definition of #'clear-message, as well as that of #'append-message, to nil. src/ChangeLog addition: 2007-12-06 Aidan Kehoe <kehoea@parhasard.net> * tests.c (Ftest_data_format_conversion): Move those tests that expect that iso-8859-2 is ISO 2022-compatible to testing iso-latin-2-with-esc instead.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 09 Dec 2007 15:10:46 +0100
parents 15d36164ebd7
children 74d00c7cc134
files src/ChangeLog src/tests.c tests/ChangeLog tests/automated/mule-tests.el
diffstat 4 files changed, 42 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Sun Dec 09 14:55:03 2007 +0100
+++ b/src/ChangeLog	Sun Dec 09 15:10:46 2007 +0100
@@ -1,3 +1,9 @@
+2007-12-06  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* tests.c (Ftest_data_format_conversion):
+	Move those tests that expect that iso-8859-2 is ISO
+	2022-compatible to testing iso-latin-2-with-esc instead.
+
 2007-12-02  Ron Isaacson  <ron.isaacson@morganstanley.com>
 
 	* frame.c (change_frame_size):
--- a/src/tests.c	Sun Dec 09 14:55:03 2007 +0100
+++ b/src/tests.c	Sun Dec 09 15:10:46 2007 +0100
@@ -37,7 +37,6 @@
 
 static Lisp_Object Vtest_function_list;
 
-
 DEFUN ("test-data-format-conversion", Ftest_data_format_conversion, 0, 0, "", /*
 Test TO_EXTERNAL_FORMAT() and TO_INTERNAL_FORMAT()
 */
@@ -70,6 +69,9 @@
 
   /* Check for expected strings before and after conversion.
      Conversions depend on whether MULE is defined. */
+
+  /* #### Any code below that uses iso-latin-2-with-esc is ill-conceived. */
+
 #ifdef MULE
 #define DFC_CHECK_DATA_COND_MULE(ptr,len,			\
 				 constant_string_mule,		\
@@ -137,7 +139,7 @@
   ptr = NULL, len = rand();
   TO_EXTERNAL_FORMAT (LISP_STRING, string_latin1,
 		      ALLOCA, (ptr, len),
-		      intern ("iso-8859-2"));
+		      intern ("iso-latin-2-with-esc"));
   DFC_CHECK_DATA (ptr, len, ext_latin12);
 
   ptr = NULL, len = rand();
@@ -155,34 +157,34 @@
   ptr = NULL, len = rand();
   TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin) - 1),
 		      ALLOCA, (ptr, len),
-		      intern ("iso-8859-2"));
+		      intern ("iso-latin-2-with-esc"));
   DFC_CHECK_DATA (ptr, len, int_latin2);
 
   ptr = NULL, len = rand();
   TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin) - 1),
 		      MALLOC, (ptr, len),
-		      intern ("iso-8859-2"));
+		      intern ("iso-latin-2-with-esc"));
   DFC_CHECK_DATA (ptr, len, int_latin2);
   xfree (ptr, void *);
 
   TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin) - 1),
 		      LISP_STRING, string,
-		      intern ("iso-8859-2"));
+		      intern ("iso-latin-2-with-esc"));
   DFC_CHECK_DATA (XSTRING_DATA (string), XSTRING_LENGTH (string), int_latin2);
 
   TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque_latin,
 		      LISP_STRING, string,
-		      intern ("iso-8859-2"));
+		      intern ("iso-latin-2-with-esc"));
   DFC_CHECK_DATA (XSTRING_DATA (string), XSTRING_LENGTH (string), int_latin2);
 
   TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque0_latin,
 		      LISP_STRING, string,
-		      intern ("iso-8859-2"));
+		      intern ("iso-latin-2-with-esc"));
   DFC_CHECK_DATA_NUL (XSTRING_DATA (string), XSTRING_LENGTH (string), int_latin2);
 
   TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque0_latin,
 		      LISP_BUFFER, Fcurrent_buffer(),
-		      intern ("iso-8859-2"));
+		      intern ("iso-latin-2-with-esc"));
   DFC_CHECK_DATA_NUL (BUF_BYTE_ADDRESS (current_buffer, BUF_PT (current_buffer)),
 		    sizeof (int_latin2), int_latin2);
 
@@ -194,7 +196,7 @@
 
   TO_INTERNAL_FORMAT (DATA, (ext_latin12, sizeof (ext_latin12) - 1),
 		      ALLOCA, (ptr, len),
-		      intern ("iso-8859-2"));
+		      intern ("iso-latin-2-with-esc"));
   DFC_CHECK_DATA (ptr, len, int_latin1);
 
 #endif /* MULE */
--- a/tests/ChangeLog	Sun Dec 09 14:55:03 2007 +0100
+++ b/tests/ChangeLog	Sun Dec 09 15:10:46 2007 +0100
@@ -1,3 +1,15 @@
+2007-12-06  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* automated/mule-tests.el:
+	Add a Known-Bug-Expect-Error call testing and documenting that we
+	don't support all of the Unicode code space in a single session.
+	* automated/test-harness.el (Known-Bug-Expect-Error):
+	Provide Known-Bug-Expect-Error, analagous to
+	Known-Bug-Expect-Failure and Check-Error.
+	* automated/test-harness.el (Silence-Message):
+	Dynamically bind the function definition of #'clear-message, as
+	well as that of #'append-message, to nil.
+
 2007-12-04  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* automated/mule-tests.el (featurep):
--- a/tests/automated/mule-tests.el	Sun Dec 09 14:55:03 2007 +0100
+++ b/tests/automated/mule-tests.el	Sun Dec 09 15:10:46 2007 +0100
@@ -721,4 +721,17 @@
       (Known-Bug-Expect-Failure
        (Assert-elc-is-escape-quoted))
       (delete-region (point-min) (point-max))))
+
+  (Known-Bug-Expect-Error
+   invalid-constant
+   (loop
+     for i from #x0 to #x10FFFF 
+     with exceptions = #s(range-table type start-closed-end-closed
+                                      data ((#xFFFE #xFFFF) t
+                                            (#xFDD0 #xFDEF) t
+                                            (#xD800 #xDBFF) t
+                                            (#xDC00 #xDFFF) t))
+     do (unless (get-range-table i exceptions)
+          (read (format (if (> i #xFFFF) #r"?\U%08X" #r"?\u%04X") i)))
+     finally return t))
   )