branch: externals/auctex
commit 478c9874184d9d11be56c09ba6eba0501b42d365
Author: Ikumi Keita <ik...@ikumi.que.jp>
Commit: Ikumi Keita <ik...@ikumi.que.jp>
Revert wrong test
* tests/tex/path-expansion.el (TeX-kpathsea-delimiter-w32): Remove.
---
tests/tex/path-expansion.el | 23 -----------------------
1 file changed, 23 deletions(-)
diff --git a/tests/tex/path-expansion.el b/tests/tex/path-expansion.el
index 149cbab..4b9b5c0 100644
--- a/tests/tex/path-expansion.el
+++ b/tests/tex/path-expansion.el
@@ -33,27 +33,4 @@
(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
