Browse Source

test: inline export of raw results

Eric Schulte 13 years ago
parent
commit
c399484313
1 changed files with 5 additions and 1 deletions
  1. 5 1
      testing/lisp/test-ob-lob.el

+ 5 - 1
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 "</code>") (point-at-eol) t))
-	(should (re-search-backward (regexp-quote "<code>") (point-at-bol) t))))))
+	(should (re-search-backward (regexp-quote "<code>") (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)