# HG changeset patch
# User Stephen J. Turnbull <stephen@xemacs.org>
# Date 1257136146 -32400
# Node ID ad40dc9d3a97cac9f89c5d85ffcc4e28ee94ef14
# Parent  0e5b32398bac5f9f58f8a5e621bc7efd115fb3f6
Add test of nil binding of default-process-coding-system.

diff -r 0e5b32398bac -r ad40dc9d3a97 tests/ChangeLog
--- a/tests/ChangeLog	Mon Nov 02 13:03:37 2009 +0900
+++ b/tests/ChangeLog	Mon Nov 02 13:29:06 2009 +0900
@@ -1,3 +1,8 @@
+2009-11-02  Stephen Turnbull  <stephen@xemacs.org>
+
+	* automated/mule-tests.el (default-process-coding-system):
+	Check that binding it to nil is OK.
+
 2009-11-01  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* automated/lisp-tests.el: 
diff -r 0e5b32398bac -r ad40dc9d3a97 tests/automated/mule-tests.el
--- a/tests/automated/mule-tests.el	Mon Nov 02 13:03:37 2009 +0900
+++ b/tests/automated/mule-tests.el	Mon Nov 02 13:29:06 2009 +0900
@@ -766,4 +766,21 @@
         (format 
          "checking Unicode coding systems behave well with short input, %02X"
          i)))
-  )
+
+  ;;---------------------------------------------------------------
+  ;; Process tests
+  ;; #### Should do network too.
+  ;;---------------------------------------------------------------
+  (Skip-Test-Unless (and (file-exists-p "/dev/null")
+			 (fboundp 'executable-find)
+			 (executable-find "cat"))
+      "cat(1) or /dev/null missing"
+      "Test that default-process-coding-system can be nil."
+    (with-temp-buffer
+      (Assert (let (default-process-coding-system)
+		(shell-command "cat </dev/null >/dev/null")
+		t))))
+
+  ) ; end of tests that require MULE built in.
+
+;;; end of mule-tests.el