# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1232283411 0
# Node ID 00ed9903a988de9a983c074bf0abdc667639eeaf
# Parent  c02fdef8db8bb4fdb7c9e503d12bd5b56181c037
Fix make check after my last change.

2009-01-18  Aidan Kehoe  <kehoea@parhasard.net>

	* automated/lisp-tests.el: (char-table-with-string):
	That was remiss of me, I should have checked before commiting that
	last changed. Fixed, the char tables are now actually printed.

diff -r c02fdef8db8b -r 00ed9903a988 tests/ChangeLog
--- a/tests/ChangeLog	Sun Jan 18 12:51:25 2009 +0000
+++ b/tests/ChangeLog	Sun Jan 18 12:56:51 2009 +0000
@@ -1,3 +1,9 @@
+2009-01-18  Aidan Kehoe  <kehoea@parhasard.net>
+	
+	* automated/lisp-tests.el: (char-table-with-string): 
+	That was remiss of me, I should have checked before commiting that
+	last changed. Fixed, the char tables are now actually printed. 
+
 2009-01-18  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* automated/lisp-tests.el: 
diff -r c02fdef8db8b -r 00ed9903a988 tests/automated/lisp-tests.el
--- a/tests/automated/lisp-tests.el	Sun Jan 18 12:51:25 2009 +0000
+++ b/tests/automated/lisp-tests.el	Sun Jan 18 12:56:51 2009 +0000
@@ -1330,6 +1330,7 @@
 
 (let ((char-table-with-string #s(char-table data (?\x00 "text")))
       (char-table-with-symbol #s(char-table data (?\x00 text))))
-  (Assert (not (string-equal char-table-with-string char-table-with-symbol))
+  (Assert (not (string-equal (prin1-to-string char-table-with-string)
+                             (prin1-to-string char-table-with-symbol)))
           "Check that char table elements are quoted correctly when printing"))