From 94d2fc1815a919734353c942f224db1de4b4fcb8 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 7 Mar 2011 09:04:49 +0100
Subject: Django, org

  * Added nxhtml, mostly for django support.

  * Changed some org settings.
---
 emacs.d/nxhtml/tests/inemacs/bug1013.el | 35 +++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 emacs.d/nxhtml/tests/inemacs/bug1013.el

(limited to 'emacs.d/nxhtml/tests/inemacs/bug1013.el')

diff --git a/emacs.d/nxhtml/tests/inemacs/bug1013.el b/emacs.d/nxhtml/tests/inemacs/bug1013.el
new file mode 100644
index 0000000..6b0aab2
--- /dev/null
+++ b/emacs.d/nxhtml/tests/inemacs/bug1013.el
@@ -0,0 +1,35 @@
+;; Setup
+(defvar word-wrap2 nil)
+(make-variable-buffer-local 'word-wrap2)
+(set-default 'word-wrap2 nil)
+
+(defcustom word-wrap3 nil
+  "doc 3"
+  :type 'boolean)
+(make-variable-buffer-local 'word-wrap3)
+(set-default 'word-wrap3 nil)
+
+(set-default 'word-wrap nil)
+(set-default 'truncate-lines nil)
+
+(put 'truncate-lines 'permanent-local t)
+(put 'word-wrap  'permanent-local t)
+(put 'word-wrap2 'permanent-local t)
+(put 'word-wrap3 'permanent-local t)
+
+(setq truncate-lines t)
+(setq word-wrap t)
+(setq word-wrap2 t)
+(setq word-wrap3 t)
+
+(kill-all-local-variables)
+
+;; Test
+(ert-should (eq (default-value 'word-wrap3) nil))
+(ert-should (eq word-wrap3 t))
+(ert-should (eq (default-value 'word-wrap2) nil))
+(ert-should (eq word-wrap2 t))
+(ert-should (eq (default-value 'truncate-lines) nil))
+(ert-should (eq truncate-lines t))
+(ert-should (eq (default-value 'word-wrap) nil))
+(ert-should (eq word-wrap t))
-- 
cgit v1.2.3-54-g00ecf