* test/automated/files.el (files-test-disable-local-variables): New test.

2012-08-10 00:13:06 -07:00
parent 23c726f65a
commit 711f4590cd
2 changed files with 15 additions and 0 deletions
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,7 @@
+2012-08-10  Glenn Morris  <rgm@gnu.org>
+
+	* automated/files.el (files-test-disable-local-variables): New test.
+
 2012-08-08  Glenn Morris  <rgm@gnu.org>

 	* automated/files.el: New file.
--- a/test/automated/files.el
+++ b/test/automated/files.el
@@ -38,4 +38,15 @@
      (hack-local-variables)
      (should (eq files-test-var1 nil)))))

+(ert-deftest files-test-disable-local-variables ()
+  "Test that setting enable-local-variables to nil works."
+  (with-temp-buffer
+    (insert "text\n"
+            ";; Local Variables:\n"
+            ";; files-test-var1: t\n"
+            ";; End:\n")
+    (let ((enable-local-variables nil))
+      (hack-local-variables)
+      (should (eq files-test-var1 nil)))))
+
 ;;; files.el ends here