Commits

Anonymous committed d97479b

Fix some assertions in latin-unity.

Comments (0)

Files changed (5)

+2006-06-25  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* latin-unity-latin10.el (charsetp):
+	* latin-unity-latin10.el (coding-system-p):
+	* latin-unity-latin7.el (charsetp):
+	* latin-unity-latin7.el (coding-system-p):
+	* latin-unity-latin8.el (charsetp):
+	* latin-unity-latin8.el (coding-system-p):
+	* latin-unity-latin9.el (charsetp):
+	* latin-unity-latin9.el (coding-system-p):
+	I didn't understand assert's calling conventions when writing this
+	code, and as a result an assertion failure doesn't show the string
+	I intended it to. 
+	
 2006-05-03  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.17 released.

latin-unity-latin10.el

 ;; Check that we're functionally equivalent to the old latin-unity-latin10.el
 
 ;; The character set should exist.
-(assert (charsetp (find-charset 'latin-iso8859-16))
+(assert (charsetp (find-charset 'latin-iso8859-16)) t
 	"`latin-euro-standards' didn't provide a Latin 10 character set!")
 
 ;; As should the coding system.
-(assert (coding-system-p (find-coding-system 'iso-8859-16))
+(assert (coding-system-p (find-coding-system 'iso-8859-16)) t 
 	"`latin-euro-standards' didn't provide a Latin 10 coding system!")
 	
 ;; And we should have a language environment. 
 (assert 
- (assoc "Latin-10" language-info-alist)
+ (assoc "Latin-10" language-info-alist) t
  "`latin-euro-standards' didn't provide a Latin 10 language environment!")
 
 (provide 'latin-unity-latin10)

latin-unity-latin7.el

 ;; Check that we're functionally equivalent to the old latin-unity-latin7.el
 
 ;; The character set should exist.
-(assert (charsetp (find-charset 'latin-iso8859-13))
+(assert (charsetp (find-charset 'latin-iso8859-13)) t
 	"`latin-euro-standards' didn't provide a Latin 7 character set!")
 
 ;; As should the coding system.
-(assert (coding-system-p (find-coding-system 'iso-8859-13))
+(assert (coding-system-p (find-coding-system 'iso-8859-13)) t
 	"`latin-euro-standards' didn't provide a Latin 7 coding system!")
 	
 ;; And we should have a language environment. 
 (assert 
- (assoc "Latin-7" language-info-alist)
+ (assoc "Latin-7" language-info-alist) t
  "`latin-euro-standards' didn't provide a Latin 7 language environment!")
 
 (provide 'latin-unity-latin7)

latin-unity-latin8.el

 ;; Check that we're functionally equivalent to the old latin-unity-latin8.el
 
 ;; The character set should exist.
-(assert (charsetp (find-charset 'latin-iso8859-14))
+(assert (charsetp (find-charset 'latin-iso8859-14)) t
 	"`latin-euro-standards' didn't provide a Latin 8 character set!")
 
 ;; As should the coding system.
-(assert (coding-system-p (find-coding-system 'iso-8859-14))
+(assert (coding-system-p (find-coding-system 'iso-8859-14)) t
 	"`latin-euro-standards' didn't provide a Latin 8 coding system!")
 	
 ;; And we should have a language environment. 
 (assert 
- (assoc "Latin-8" language-info-alist)
+ (assoc "Latin-8" language-info-alist) t
  "`latin-euro-standards' didn't provide a Latin 8 language environment!")
 
 (provide 'latin-unity-latin8)

latin-unity-latin9.el

 ;; Check that we're functionally equivalent to the old latin-unity-latin9.el
 
 ;; The character set should exist.
-(assert (charsetp (find-charset 'latin-iso8859-16))
+(assert (charsetp (find-charset 'latin-iso8859-16)) t
 	"`latin-euro-standards' didn't provide a Latin 9 character set!")
 
 ;; As should the coding system.
-(assert (coding-system-p (find-coding-system 'iso-8859-15))
+(assert (coding-system-p (find-coding-system 'iso-8859-15)) t
 	"`latin-euro-standards' didn't provide a Latin 9 coding system!")
 	
 ;; And we should have a language environment. 
 (assert 
- (assoc "Latin-9" language-info-alist)
+ (assoc "Latin-9" language-info-alist) t
  "`latin-euro-standards' didn't provide a Latin 9 language environment!")
 
 (provide 'latin-unity-latin9)