[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 5d6839e9b5cab6e555c80a482fd0cd945e16bf93

[Ikumi Keita]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  5d6839e9b5cab6e555c80a482fd0cd945e16bf93 (commit)
      from  463ead7020d2c08ba5d2ec2df64edd37a55a88b5 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5d6839e9b5cab6e555c80a482fd0cd945e16bf93
Author: Ikumi Keita <address@hidden>
Date:   Thu Nov 16 00:37:12 2017 +0900

    Add test for the recent change about `TeX-kpathsea-path-delimiter'
    
    * tests/tex/path-expansion.el (TeX-kpathsea-delimiter-w32): New test.

diff --git a/tests/tex/path-expansion.el b/tests/tex/path-expansion.el
index 4b9b5c0..149cbab 100644
--- a/tests/tex/path-expansion.el
+++ b/tests/tex/path-expansion.el
@@ -33,4 +33,27 @@
     (TeX-search-files-by-type 'abc 'global)
     (should (equal var '("str1" "str2")))))
 
+(ert-deftest TeX-kpathsea-delimiter-w32 ()
+  "Check whether `TeX-kpathsea-path-delimiter' is set to \";\" on w32 
platform."
+  ;; This test is meaningful only on w32 platform.
+  (skip-unless (eq system-type 'windows-nt))
+  ;; Provide `TeX-tree-expand' with output which doesn't begin with
+  ;; dos drive letter.
+  (let ((TeX-kpathsea-path-delimiter
+        (eval (car (get 'TeX-kpathsea-path-delimiter 'standard-value)))))
+    (TeX-tree-expand '(".") nil)
+    (should (equal TeX-kpathsea-path-delimiter ";")))
+  ;; Provide `TeX-search-files-kpathsea' with output of only one
+  ;; component (thus without a separator ";".)
+  (let ((TeX-kpathsea-path-delimiter
+        (eval (car (get 'TeX-kpathsea-path-delimiter 'standard-value))))
+       ;; Let's hope that no other files in the temp directory have
+       ;; such a bizarre extension.
+       (temp-file (make-temp-file "TeX-path-expansion" nil ".xxyyzz")))
+    (unwind-protect
+       (TeX-search-files-kpathsea (file-name-directory temp-file)
+                                  '("xxyyzz") nil nil nil)
+      (delete-file temp-file))
+    (should (equal TeX-kpathsea-path-delimiter ";"))))
+
 ;;; command-expansion.el ends here

-----------------------------------------------------------------------

Summary of changes:
 tests/tex/path-expansion.el | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)


hooks/post-receive
-- 
GNU AUCTeX