From 66f6d15234bda97fc2e197efd2f9cb7c6439fef1 Mon Sep 17 00:00:00 2001 From: Michael Brand Date: Mon, 9 Sep 2013 22:32:36 +0200 Subject: [PATCH 1/2] Add ERTs for org-meta-return * testing/lisp/test-org.el (test-org/meta-return): New `ert-deftest' to test `org-meta-return'. --- testing/lisp/test-org.el | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 8a1e9f1..4944c24 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -365,6 +365,51 @@ +;;; Editing + +;;;; Insert elements + +(ert-deftest test-org/meta-return () + "Test M-RET (`org-meta-return')." + ;; In a table field insert a row above. + (should + (org-test-with-temp-text "| a |" + (forward-char) + (org-meta-return) + (forward-line -1) + (looking-at "| |$"))) + ;; In a paragraph change current line into a header. + (should + (org-test-with-temp-text "a" + (org-meta-return) + (beginning-of-line) + (looking-at "\* a$"))) + ;; In an item insert an item, in this case above. + (should + (org-test-with-temp-text "- a" + (org-meta-return) + (beginning-of-line) + (looking-at "- $"))) + ;; In a drawer and paragraph insert an empty line, in this case above. + (should + (let ((org-drawers '("MYDRAWER"))) + (org-test-with-temp-text ":MYDRAWER:\na\n:END:" + (forward-line) + (org-meta-return) + (forward-line -1) + (looking-at "$")))) + ;; TODO In a drawer and item insert an item, in this case above. + (should + (let ((org-drawers '("MYDRAWER"))) + (org-test-with-temp-text ":MYDRAWER:\n- a\n:END:" + (forward-line) + (org-meta-return) + (forward-line -1) + (looking-at "$"))))) + + + + ;;; Links ;;;; Fuzzy Links -- 1.7.12.4 (Apple Git-37)