* test/automated/files.el (files-test-local-variable-data): Fix result typo

presumably caused by interference from dir-locals.
(file-test--do-local-variables-test): Prevent dir-locals interfering.

diff --git a/test/ChangeLog b/test/ChangeLog
index 1b5925d..387a83f 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
+2013-11-05  Glenn Morris  <rgm@gnu.org>
+
+       * automated/files.el (files-test-local-variable-data):
+       Fix result typo presumably caused by interference from dir-locals.
+       (file-test--do-local-variables-test): Prevent dir-locals interfering.
+
 2013-11-04  Dmitry Gutov  <dgutov@yandex.ru>
 
        * indent/ruby.rb: Add a statement on the line after heredoc.

diff --git a/test/automated/files.el b/test/automated/files.el
index 8ce2ed7..6ce1cbc 100644 (file)
--- a/test/automated/files.el
+++ b/test/automated/files.el
@@ -51,7 +51,7 @@
      (:all nil    (eq files-test-result nil))
      (:all maybe  (eq files-test-result t)) ; This combination is ambiguous.
      (maybe t     (eq files-test-result 'query))
-     (maybe nil   (eq files-test-result 'query))
+     (maybe nil   (eq files-test-result nil))
      (maybe maybe (eq files-test-result 'query)))
     ;; Unsafe local variable value
     (("files-test-result: t")
@@ -127,6 +127,8 @@ form.")
          files-test-safe-result nil)
     (let ((enable-local-variables (nth 0 test-settings))
          (enable-local-eval      (nth 1 test-settings))
+         ;; Prevent any dir-locals file interfering with the tests.
+         (enable-dir-local-variables nil)
          (files-test-queried nil))
       (hack-local-variables)
       (eval (nth 2 test-settings)))))