Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 875:708faa3b4cb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-06-23 06:53:46 by stephent] fix unicode test
author stephent
date Sun, 23 Jun 2002 06:53:49 +0000
parents a5954632b187
children dff007bd492b
comparison
equal deleted inserted replaced
874:d4ba25667ff4 875:708faa3b4cb1
317 317
318 ;;--------------------------------------------------------------- 318 ;;---------------------------------------------------------------
319 ;; Test Unicode-related functions 319 ;; Test Unicode-related functions
320 ;;--------------------------------------------------------------- 320 ;;---------------------------------------------------------------
321 (let* ((scaron (make-char 'latin-iso8859-2 57))) 321 (let* ((scaron (make-char 'latin-iso8859-2 57)))
322 (loop for code in '(#x0000 #x2222 #x4444 #xffff) do 322 ;; Used to try #x0000, but you can't change ASCII or Latin-1
323 (loop for code in '(#x0100 #x2222 #x4444 #xffff) do
323 (progn 324 (progn
324 (set-unicode-conversion scaron code) 325 (set-unicode-conversion scaron code)
325 (Assert (eq code (char-to-unicode scaron))) 326 (Assert (eq code (char-to-unicode scaron)))
326 (Assert (eq scaron (unicode-to-char code '(latin-iso8859-2)))))) 327 (Assert (eq scaron (unicode-to-char code '(latin-iso8859-2))))))
327 328