Merge branch 'maint'
authorNicolas Goaziou <n.goaziou@gmail.com>
Fri, 9 Nov 2012 01:47:23 +0000 (02:47 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Fri, 9 Nov 2012 01:47:23 +0000 (02:47 +0100)
1  2 
lisp/org.el
testing/lisp/test-org.el

diff --cc lisp/org.el
Simple merge
@@@ -469,8 -416,31 +469,31 @@@ http://article.gmane.org/gmane.emacs.or
  
  
   \f
 -;; Navigation
 +;;; Navigation
  
+ (ert-deftest test-org/beginning-of-line ()
+   "Test `org-beginning-of-line' specifications."
+   ;; Standard test.
+   (should
+    (org-test-with-temp-text "Some text\nSome other text"
+      (progn (org-beginning-of-line) (bolp))))
+   ;; Standard test with `visual-line-mode'.
+   (should-not
+    (org-test-with-temp-text "A long line of text\nSome other text"
+      (progn (visual-line-mode)
+           (forward-char 2)
+           (dotimes (i 1000) (insert "very "))
+           (org-beginning-of-line)
+           (bolp))))
+   ;; At an headline with special movement.
+   (should
+    (org-test-with-temp-text "* TODO Headline"
+      (let ((org-special-ctrl-a/e t))
+        (org-end-of-line)
+        (and (progn (org-beginning-of-line) (looking-at "Headline"))
+           (progn (org-beginning-of-line) (bolp))
+           (progn (org-beginning-of-line) (looking-at "Headline")))))))
  (ert-deftest test-org/end-of-line ()
    "Test `org-end-of-line' specifications."
    ;; Standard test.