]> code.delx.au - gnu-emacs/blobdiff - test/automated/reftex-tests.el
Update copyright year to 2016
[gnu-emacs] / test / automated / reftex-tests.el
index de7f36d825ae206d0f1b071dc989fa88e7805bee..0f1186d8a825cdc85fd9939bf539b923c57e31f9 100644 (file)
@@ -1,6 +1,6 @@
 ;;; reftex-tests.el --- Test suite for reftex. -*- lexical-binding: t -*-
 
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2016 Free Software Foundation, Inc.
 
 ;; Author: RĂ¼diger Sonderfeld <ruediger@c-plusplus.de>
 ;; Keywords:       internal
 
 (ert-deftest reftex-parse-from-file-test ()
   "Test `reftex-parse-from-file'."
-  (let* ((temp-dir (make-temp-file "reftex-parse" 'dir))
+  ;; Use file-truename to convert 8+3 aliases in $TEMP value on
+  ;; MS-Windows into their long file-name equivalents, which is
+  ;; necessary for the 'equal' and 'string=' comparisons below.  This
+  ;; also resolves any symlinks, which cannot be bad for the same
+  ;; reason.  (An alternative solution would be to use file-equal-p,
+  ;; but I'm too lazy to do that, as one of the tests compares a
+  ;; list.)
+  (let* ((temp-dir (file-truename (make-temp-file "reftex-parse" 'dir)))
          (tex-file (expand-file-name "test.tex" temp-dir))
          (bib-file (expand-file-name "ref.bib" temp-dir)))
     (with-temp-buffer