From c3994843130cf4f49257f16ac1b7987781b4edbf Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 28 Jun 2011 10:03:27 -0700 Subject: [PATCH] test: inline export of raw results --- testing/lisp/test-ob-lob.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/testing/lisp/test-ob-lob.el b/testing/lisp/test-ob-lob.el index baa4e1c6d..d2e779d84 100644 --- a/testing/lisp/test-ob-lob.el +++ b/testing/lisp/test-ob-lob.el @@ -81,7 +81,11 @@ ;; 6 should also be inline (should (re-search-forward "6" nil t)) (should (re-search-forward (regexp-quote "") (point-at-eol) t)) - (should (re-search-backward (regexp-quote "") (point-at-bol) t)))))) + (should (re-search-backward (regexp-quote "") (point-at-bol) t)) + ;; 8 should not be quoted + (should (re-search-forward "8" nil t)) + (should (not (= ?= (char-after (point))))) + (should (not (= ?= (char-before (- (point) 1))))))))) (provide 'test-ob-lob)