[AUCTeX-diffs] [elpa] externals/auctex dcfdd69 61/67: Fix test conditions on w32

[Tassilo Horn]

branch: externals/auctex
commit dcfdd6973d5471f68d9df9b530c0c4a2687febf4
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    Fix test conditions on w32
    
    * tests/tex/command-expansion.el (TeX-command-detokenize): Correct
    `system-type' for w32.
    (TeX-command-expand-skip-file-name, TeX-command-expand-active-master):
    Skip tests on w32.
---
 tests/tex/command-expansion.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/tests/tex/command-expansion.el b/tests/tex/command-expansion.el
index dd1f09b..0de5831 100644
--- a/tests/tex/command-expansion.el
+++ b/tests/tex/command-expansion.el
@@ -88,7 +88,7 @@
   "Check whether \"\input\" and \"\detokenize\" are supplied when necessary."
   ;; Skip on w32 because the quoting style of `shell-quote-argument'
   ;; is different.
-  (skip-unless (not (eq system-type 'w32)))
+  (skip-unless (not (eq system-type 'windows-nt)))
   (should (string=
            (let ((major-mode 'latex-mode)
                 (TeX-engine 'default)
@@ -102,6 +102,9 @@
 File names obtained as expansion of \"%t\", \"%s\" and so on should be
 skipped for the following expansion to avoid possible endless loop.
 See <https://lists.gnu.org/r/bug-auctex/2014-08/msg00012.html>."
+  ;; Skip on w32 because the quoting style of `shell-quote-argument'
+  ;; is different.
+  (skip-unless (not (eq system-type 'windows-nt)))
   (let ((TeX-master "abc-def")
        (TeX-expand-list '(("-" (lambda () ":")))))
     (should (string=
@@ -128,6 +131,9 @@ See 
<https://lists.gnu.org/r/bug-auctex/2014-08/msg00012.html>."
 
 (ert-deftest TeX-command-expand-active-master ()
   "Test whether `TeX-active-master' is valid argument for 
`TeX-command-expand'."
+  ;; Skip on w32 because the quoting style of `shell-quote-argument'
+  ;; is different.
+  (skip-unless (not (eq system-type 'windows-nt)))
   (let ((TeX-master "abc")
        TeX-current-process-region-p)
     (setq TeX-current-process-region-p nil)