Mercurial > hg > xemacs-beta
comparison tests/automated/mule-tests.el @ 4731:ad40dc9d3a97
Add test of nil binding of default-process-coding-system.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Mon, 02 Nov 2009 13:29:06 +0900 |
| parents | a357478dd457 |
| children | b3ea9c582280 |
comparison
equal
deleted
inserted
replaced
| 4730:0e5b32398bac | 4731:ad40dc9d3a97 |
|---|---|
| 764 do (Assert | 764 do (Assert |
| 765 (= 1 (length (decode-coding-string (format "%c" i) 'utf-8-unix))) | 765 (= 1 (length (decode-coding-string (format "%c" i) 'utf-8-unix))) |
| 766 (format | 766 (format |
| 767 "checking Unicode coding systems behave well with short input, %02X" | 767 "checking Unicode coding systems behave well with short input, %02X" |
| 768 i))) | 768 i))) |
| 769 ) | 769 |
| 770 ;;--------------------------------------------------------------- | |
| 771 ;; Process tests | |
| 772 ;; #### Should do network too. | |
| 773 ;;--------------------------------------------------------------- | |
| 774 (Skip-Test-Unless (and (file-exists-p "/dev/null") | |
| 775 (fboundp 'executable-find) | |
| 776 (executable-find "cat")) | |
| 777 "cat(1) or /dev/null missing" | |
| 778 "Test that default-process-coding-system can be nil." | |
| 779 (with-temp-buffer | |
| 780 (Assert (let (default-process-coding-system) | |
| 781 (shell-command "cat </dev/null >/dev/null") | |
| 782 t)))) | |
| 783 | |
| 784 ) ; end of tests that require MULE built in. | |
| 785 | |
| 786 ;;; end of mule-tests.el |