浏览代码

test: inline export of raw results

Eric Schulte 14 年之前
父节点
当前提交
c399484313
共有 1 个文件被更改,包括 5 次插入1 次删除
  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)