master e00edf20e7: Add a failing test case for bug#12598

[Lars Ingebrigtsen]

branch: master
commit e00edf20e7d13277781712c5bbcec7b34f3a829e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add a failing test case for bug#12598
    
    Author:
---
 test/lisp/files-resources/compile-utf8.el | 11 +++++++++++
 test/lisp/files-tests.el                  | 29 +++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)

diff --git a/test/lisp/files-resources/compile-utf8.el 
b/test/lisp/files-resources/compile-utf8.el
new file mode 100644
index 0000000000..ea67626365
--- /dev/null
+++ b/test/lisp/files-resources/compile-utf8.el
@@ -0,0 +1,11 @@
+(defun zot ()
+  "Yes."
+  nil)
+
+(defun foo ()
+  "Yés."
+  nil)
+
+(defun bar ()
+  "Nó."
+  nil)
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 34c002be27..1633f3b34c 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -1829,5 +1829,34 @@ Prompt users for any modified buffer with 
`buffer-offer-save' non-nil."
   (find-file (ert-resource-file "file-mode-prop-line"))
   (should (eq major-mode 'text-mode)))
 
+(ert-deftest files-load-elc-gz-file ()
+  :expected-result :failed
+  (skip-unless (executable-find "gzip"))
+  (ert-with-temp-directory dir
+    (let* ((pref (expand-file-name "compile-utf8" dir))
+           (el (concat pref ".el")))
+      (copy-file (ert-resource-file "compile-utf8.el") el)
+      (push dir load-path)
+      (should (load pref t))
+      (should (fboundp 'foo))
+      (should (documentation 'foo))
+      (should (documentation 'bar))
+      (should (documentation 'zot))
+
+      (byte-compile-file el)
+      (should (load (concat pref ".elc") t))
+      (should (fboundp 'foo))
+      (should (documentation 'foo))
+      (should (documentation 'bar))
+      (should (documentation 'zot))
+
+      (dired-compress-file (concat pref ".elc"))
+      (should (load (concat pref ".elc.gz") t))
+      (should (fboundp 'foo))
+      ;; This fails due to bug#12598.
+      (should (documentation 'foo))
+      (should (documentation 'bar))
+      (should (documentation 'zot)))))
+
 (provide 'files-tests)
 ;;; files-tests.el ends here