Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 4861:1f3ed6288996

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
get make check working again -------------------- ChangeLog entries follow: -------------------- tests/ChangeLog addition: 2010-01-14 Ben Wing <ben@xemacs.org> * automated/mule-tests.el (featurep): Accidentally included changes from Unicode-internal ws that broke things.
author Ben Wing <ben@xemacs.org>
date Thu, 14 Jan 2010 06:08:55 -0600
parents 189fb67ca31a
children 29fb3baea939 8b230c53075b
comparison
equal deleted inserted replaced
4860:edc0cd26b4a8 4861:1f3ed6288996
424 ;; Add many more file operation tests here... 424 ;; Add many more file operation tests here...
425 425
426 ;;--------------------------------------------------------------- 426 ;;---------------------------------------------------------------
427 ;; Test Unicode-related functions 427 ;; Test Unicode-related functions
428 ;;--------------------------------------------------------------- 428 ;;---------------------------------------------------------------
429 (let* ((scaron '(latin-iso8859-2 185))) 429 (let* ((scaron (make-char 'latin-iso8859-2 57)))
430 ;; Used to try #x0000, but you can't change ASCII or Latin-1 430 ;; Used to try #x0000, but you can't change ASCII or Latin-1
431 (loop 431 (loop
432 for code in '(#x0100 #x2222 #x4444 #xffff) 432 for code in '(#x0100 #x2222 #x4444 #xffff)
433 with initial-unicode = (unicode-to-charset-codepoint 433 with initial-unicode = (char-to-unicode scaron)
434 code '(latin-iso8859-2))
435 do 434 do
436 (progn 435 (progn
437 (apply 'set-unicode-conversion code scaron) 436 (set-unicode-conversion scaron code)
438 (Assert-eq code (apply 'charset-codepoint-to-unicode scaron)) 437 (Assert-eq code (char-to-unicode scaron))
439 (Assert-equal scaron (unicode-to-charset-codepoint 438 (Assert-eq scaron (unicode-to-char code '(latin-iso8859-2))))
440 code '(latin-iso8859-2))) 439 finally (set-unicode-conversion scaron initial-unicode))
441 (apply 'set-unicode-conversion code initial-unicode))) 440 (Check-Error wrong-type-argument (set-unicode-conversion scaron -10000)))
442 (Check-Error 'invalid-argument (apply 'set-unicode-conversion -10000
443 scaron)))
444 441
445 (dolist (utf-8-char 442 (dolist (utf-8-char
446 '("\xc6\x92" ;; U+0192 LATIN SMALL LETTER F WITH HOOK 443 '("\xc6\x92" ;; U+0192 LATIN SMALL LETTER F WITH HOOK
447 "\xe2\x81\x8a" ;; U+204A TIRONIAN SIGN ET 444 "\xe2\x81\x8a" ;; U+204A TIRONIAN SIGN ET
448 "\xe2\x82\xae" ;; U+20AE TUGRIK SIGN 445 "\xe2\x82\xae" ;; U+20AE TUGRIK SIGN