test/automated/files.el

   1 ;;; files.el --- tests for file handling.
   2
   3 ;; Copyright (C) 2012-2015 Free Software Foundation, Inc.
   4
   5 ;; This file is part of GNU Emacs.
   6
   7 ;; GNU Emacs is free software: you can redistribute it and/or modify
   8 ;; it under the terms of the GNU General Public License as published by
   9 ;; the Free Software Foundation, either version 3 of the License, or
  10 ;; (at your option) any later version.
  11
  12 ;; GNU Emacs is distributed in the hope that it will be useful,
  13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ;; GNU General Public License for more details.
  16
  17 ;; You should have received a copy of the GNU General Public License
  18 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 ;;; Code:
  21
  22 (require 'ert)
  23
  24 ;; Set to t if the local variable was set, `query' if the query was
  25 ;; triggered.
  26 (defvar files-test-result nil)
  27
  28 (defvar files-test-safe-result nil)
  29 (put 'files-test-safe-result 'safe-local-variable 'booleanp)
  30
  31 (defun files-test-fun1 ()
  32   (setq files-test-result t))
  33
  34 ;; Test combinations:
  35 ;; `enable-local-variables' t, nil, :safe, :all, or something else.
  36 ;; `enable-local-eval' t, nil, or something else.
  37
  38 (defvar files-test-local-variable-data
  39   ;; Unsafe eval form
  40   '((("eval: (files-test-fun1)")
  41      (t t         (eq files-test-result t))
  42      (t nil       (eq files-test-result nil))
  43      (t maybe     (eq files-test-result 'query))
  44      (nil t       (eq files-test-result nil))
  45      (nil nil     (eq files-test-result nil))
  46      (nil maybe   (eq files-test-result nil))
  47      (:safe t     (eq files-test-result nil))
  48      (:safe nil   (eq files-test-result nil))
  49      (:safe maybe (eq files-test-result nil))
  50      (:all t      (eq files-test-result t))
  51      (:all nil    (eq files-test-result nil))
  52      (:all maybe  (eq files-test-result t)) ; This combination is ambiguous.
  53      (maybe t     (eq files-test-result 'query))
  54      (maybe nil   (eq files-test-result nil))
  55      (maybe maybe (eq files-test-result 'query)))
  56     ;; Unsafe local variable value
  57     (("files-test-result: t")
  58      (t t         (eq files-test-result 'query))
  59      (t nil       (eq files-test-result 'query))
  60      (t maybe     (eq files-test-result 'query))
  61      (nil t       (eq files-test-result nil))
  62      (nil nil     (eq files-test-result nil))
  63      (nil maybe   (eq files-test-result nil))
  64      (:safe t     (eq files-test-result nil))
  65      (:safe nil   (eq files-test-result nil))
  66      (:safe maybe (eq files-test-result nil))
  67      (:all t      (eq files-test-result t))
  68      (:all nil    (eq files-test-result t))
  69      (:all maybe  (eq files-test-result t))
  70      (maybe t     (eq files-test-result 'query))
  71      (maybe nil   (eq files-test-result 'query))
  72      (maybe maybe (eq files-test-result 'query)))
  73     ;; Safe local variable
  74     (("files-test-safe-result: t")
  75      (t t         (eq files-test-safe-result t))
  76      (t nil       (eq files-test-safe-result t))
  77      (t maybe     (eq files-test-safe-result t))
  78      (nil t       (eq files-test-safe-result nil))
  79      (nil nil     (eq files-test-safe-result nil))
  80      (nil maybe   (eq files-test-safe-result nil))
  81      (:safe t     (eq files-test-safe-result t))
  82      (:safe nil   (eq files-test-safe-result t))
  83      (:safe maybe (eq files-test-safe-result t))
  84      (:all t      (eq files-test-safe-result t))
  85      (:all nil    (eq files-test-safe-result t))
  86      (:all maybe  (eq files-test-safe-result t))
  87      (maybe t     (eq files-test-result 'query))
  88      (maybe nil   (eq files-test-result 'query))
  89      (maybe maybe (eq files-test-result 'query)))
  90     ;; Safe local variable with unsafe value
  91     (("files-test-safe-result: 1")
  92      (t t         (eq files-test-result 'query))
  93      (t nil       (eq files-test-result 'query))
  94      (t maybe     (eq files-test-result 'query))
  95      (nil t       (eq files-test-safe-result nil))
  96      (nil nil     (eq files-test-safe-result nil))
  97      (nil maybe   (eq files-test-safe-result nil))
  98      (:safe t     (eq files-test-safe-result nil))
  99      (:safe nil   (eq files-test-safe-result nil))
 100      (:safe maybe (eq files-test-safe-result nil))
 101      (:all t      (eq files-test-safe-result 1))
 102      (:all nil    (eq files-test-safe-result 1))
 103      (:all maybe  (eq files-test-safe-result 1))
 104      (maybe t     (eq files-test-result 'query))
 105      (maybe nil   (eq files-test-result 'query))
 106      (maybe maybe (eq files-test-result 'query))))
 107   "List of file-local variable tests.
 108 Each list element should have the form
 109
 110   (LOCAL-VARS-LIST . TEST-LIST)
 111
 112 where LOCAL-VARS-LISTS should be a list of local variable
 113 definitions (strings) and TEST-LIST is a list of tests to
 114 perform.  Each entry of TEST-LIST should have the form
 115
 116  (ENABLE-LOCAL-VARIABLES ENABLE-LOCAL-EVAL FORM)
 117
 118 where ENABLE-LOCAL-VARIABLES is the value to assign to
 119 `enable-local-variables', ENABLE-LOCAL-EVAL is the value to
 120 assign to `enable-local-eval', and FORM is a desired `should'
 121 form.")
 122
 123 (defun file-test--do-local-variables-test (str test-settings)
 124   (with-temp-buffer
 125     (insert str)
 126     (setq files-test-result nil
 127           files-test-safe-result nil)
 128     (let ((enable-local-variables (nth 0 test-settings))
 129           (enable-local-eval      (nth 1 test-settings))
 130           ;; Prevent any dir-locals file interfering with the tests.
 131           (enable-dir-local-variables nil)
 132           (files-test-queried nil))
 133       (hack-local-variables)
 134       (eval (nth 2 test-settings)))))
 135
 136 (ert-deftest files-test-local-variables ()
 137   "Test the file-local variables implementation."
 138   (unwind-protect
 139       (progn
 140         (defadvice hack-local-variables-confirm (around files-test activate)
 141           (setq files-test-result 'query)
 142           nil)
 143         (dolist (test files-test-local-variable-data)
 144           (let ((str (concat "text\n\n;; Local Variables:\n;; "
 145                              (mapconcat 'identity (car test) "\n;; ")
 146                              "\n;; End:\n")))
 147             (dolist (subtest (cdr test))
 148               (should (file-test--do-local-variables-test str subtest))))))
 149     (ad-disable-advice 'hack-local-variables-confirm 'around 'files-test)))
 150
 151 (defvar files-test-bug-18141-file
 152   (expand-file-name "data/files-bug18141.el.gz" (getenv "EMACS_TEST_DIRECTORY"))
 153   "Test file for bug#18141.")
 154
 155 (ert-deftest files-test-bug-18141 ()
 156   "Test for http://debbugs.gnu.org/18141 ."
 157   (skip-unless (executable-find "gzip"))
 158   (let ((tempfile (make-temp-file "files-test-bug-18141" nil ".gz")))
 159     (unwind-protect
 160         (progn
 161           (copy-file files-test-bug-18141-file tempfile t)
 162           (with-current-buffer (find-file-noselect tempfile)
 163             (set-buffer-modified-p t)
 164             (save-buffer)
 165             (should (eq buffer-file-coding-system 'iso-2022-7bit-unix))))
 166       (delete-file tempfile))))
 167
 168
 169 ;; Stop the above "Local Var..." confusing Emacs.
 170 \f
 171
 172 ;;; files.el ends here