testing/lisp/test-org.el

   1 ;;; test-org.el --- tests for org.el
   2
   3 ;; Copyright (c)  David Maus
   4 ;; Authors: David Maus
   5
   6 ;; This file is not part of GNU Emacs.
   7
   8 ;; This program is free software; you can redistribute it and/or modify
   9 ;; it under the terms of the GNU General Public License as published by
  10 ;; the Free Software Foundation, either version 3 of the License, or
  11 ;; (at your option) any later version.
  12
  13 ;; This program is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 ;; GNU General Public License for more details.
  17
  18 ;; You should have received a copy of the GNU General Public License
  19 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 ;;; Comments:
  22
  23 ;; Template test file for Org-mode tests
  24
  25 ;;; Code:
  26
  27 \f
  28 ;;; Comments
  29
  30 (ert-deftest test-org/toggle-comment ()
  31   "Test `org-toggle-comment' specifications."
  32   ;; Simple headline.
  33   (should
  34    (equal "* Test"
  35           (org-test-with-temp-text "* COMMENT Test"
  36             (org-toggle-comment)
  37             (buffer-string))))
  38   (should
  39    (equal "* COMMENT Test"
  40           (org-test-with-temp-text "* Test"
  41             (org-toggle-comment)
  42             (buffer-string))))
  43   ;; Headline with a regular keyword.
  44   (should
  45    (equal "* TODO Test"
  46           (org-test-with-temp-text "* TODO COMMENT Test"
  47             (org-toggle-comment)
  48             (buffer-string))))
  49   (should
  50    (equal "* TODO COMMENT Test"
  51           (org-test-with-temp-text "* TODO Test"
  52             (org-toggle-comment)
  53             (buffer-string))))
  54   ;; Empty headline.
  55   (should
  56    (equal "* "
  57           (org-test-with-temp-text "* COMMENT"
  58             (org-toggle-comment)
  59             (buffer-string))))
  60   (should
  61    (equal "* COMMENT"
  62           (org-test-with-temp-text "* "
  63             (org-toggle-comment)
  64             (buffer-string))))
  65   ;; Headline with a single keyword.
  66   (should
  67    (equal "* TODO "
  68           (org-test-with-temp-text "* TODO COMMENT"
  69             (org-toggle-comment)
  70             (buffer-string))))
  71   (should
  72    (equal "* TODO COMMENT"
  73           (org-test-with-temp-text "* TODO"
  74             (org-toggle-comment)
  75             (buffer-string))))
  76   ;; Headline with a keyword, a priority cookie and contents.
  77   (should
  78    (equal "* TODO [#A] Headline"
  79           (org-test-with-temp-text "* TODO [#A] COMMENT Headline"
  80             (org-toggle-comment)
  81             (buffer-string))))
  82   (should
  83    (equal "* TODO [#A] COMMENT Headline"
  84           (org-test-with-temp-text "* TODO [#A] Headline"
  85             (org-toggle-comment)
  86             (buffer-string)))))
  87
  88 (ert-deftest test-org/comment-dwim ()
  89   "Test `comment-dwim' behaviour in an Org buffer."
  90   ;; No region selected, no comment on current line and line not
  91   ;; empty: insert comment on line above.
  92   (should
  93    (equal "# \nComment"
  94           (org-test-with-temp-text "Comment"
  95             (progn (call-interactively 'comment-dwim)
  96                    (buffer-string)))))
  97   ;; No region selected, no comment on current line and line empty:
  98   ;; insert comment on this line.
  99   (should
 100    (equal "# \nParagraph"
 101           (org-test-with-temp-text "\nParagraph"
 102             (progn (call-interactively 'comment-dwim)
 103                    (buffer-string)))))
 104   ;; No region selected, and a comment on this line: indent it.
 105   (should
 106    (equal "* Headline\n  # Comment"
 107           (org-test-with-temp-text "* Headline\n# Comment"
 108             (progn (forward-line)
 109                    (let ((org-adapt-indentation t))
 110                      (call-interactively 'comment-dwim))
 111                    (buffer-string)))))
 112   ;; Also recognize single # at column 0 as comments.
 113   (should
 114    (equal "# Comment"
 115           (org-test-with-temp-text "# Comment"
 116             (progn (forward-line)
 117                    (call-interactively 'comment-dwim)
 118                    (buffer-string)))))
 119   ;; Region selected and only comments and blank lines within it:
 120   ;; un-comment all commented lines.
 121   (should
 122    (equal "Comment 1\n\nComment 2"
 123           (org-test-with-temp-text "# Comment 1\n\n# Comment 2"
 124             (progn
 125               (transient-mark-mode 1)
 126               (push-mark (point) t t)
 127               (goto-char (point-max))
 128               (call-interactively 'comment-dwim)
 129               (buffer-string)))))
 130   ;; Region selected without comments: comment all lines if
 131   ;; `comment-empty-lines' is non-nil, only non-blank lines otherwise.
 132   (should
 133    (equal "# Comment 1\n\n# Comment 2"
 134           (org-test-with-temp-text "Comment 1\n\nComment 2"
 135             (progn
 136               (transient-mark-mode 1)
 137               (push-mark (point) t t)
 138               (goto-char (point-max))
 139               (let ((comment-empty-lines nil))
 140                 (call-interactively 'comment-dwim))
 141               (buffer-string)))))
 142   (should
 143    (equal "# Comment 1\n# \n# Comment 2"
 144           (org-test-with-temp-text "Comment 1\n\nComment 2"
 145             (progn
 146               (transient-mark-mode 1)
 147               (push-mark (point) t t)
 148               (goto-char (point-max))
 149               (let ((comment-empty-lines t))
 150                 (call-interactively 'comment-dwim))
 151               (buffer-string)))))
 152   ;; In front of a keyword without region, insert a new comment.
 153   (should
 154    (equal "# \n#+KEYWORD: value"
 155           (org-test-with-temp-text "#+KEYWORD: value"
 156             (progn (call-interactively 'comment-dwim)
 157                    (buffer-string)))))
 158   ;; In a source block, use appropriate syntax.
 159   (should
 160    (equal "  ;; "
 161           (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n\n#+END_SRC"
 162             (forward-line)
 163             (let ((org-edit-src-content-indentation 2))
 164               (call-interactively 'comment-dwim))
 165             (buffer-substring-no-properties (line-beginning-position) (point)))))
 166   (should
 167    (equal "#+BEGIN_SRC emacs-lisp\n  ;; a\n  ;; b\n#+END_SRC"
 168           (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\na\nb\n#+END_SRC"
 169             (forward-line)
 170             (transient-mark-mode 1)
 171             (push-mark (point) t t)
 172             (forward-line 2)
 173             (let ((org-edit-src-content-indentation 2))
 174               (call-interactively 'comment-dwim))
 175             (buffer-string)))))
 176
 177
 178 \f
 179 ;;; Date and time analysis
 180
 181 (ert-deftest test-org/org-read-date ()
 182   "Test `org-read-date' specifications."
 183   ;; Parse ISO date with abbreviated year and month.
 184   (should (equal "2012-03-29 16:40"
 185                  (let ((org-time-was-given t))
 186                    (org-read-date t nil "12-3-29 16:40"))))
 187   ;; Parse Europeans dates.
 188   (should (equal "2012-03-29 16:40"
 189                  (let ((org-time-was-given t))
 190                    (org-read-date t nil "29.03.2012 16:40"))))
 191   ;; Parse Europeans dates without year.
 192   (should (string-match "2[0-9]\\{3\\}-03-29 16:40"
 193                         (let ((org-time-was-given t))
 194                           (org-read-date t nil "29.03. 16:40")))))
 195
 196 (ert-deftest test-org/org-parse-time-string ()
 197   "Test `org-parse-time-string'."
 198   (should (equal (org-parse-time-string "2012-03-29 16:40")
 199                  '(0 40 16 29 3 2012 nil nil nil)))
 200   (should (equal (org-parse-time-string "[2012-03-29 16:40]")
 201                  '(0 40 16 29 3 2012 nil nil nil)))
 202   (should (equal (org-parse-time-string "<2012-03-29 16:40>")
 203                  '(0 40 16 29 3 2012 nil nil nil)))
 204   (should (equal (org-parse-time-string "<2012-03-29>")
 205                  '(0 0 0 29 3 2012 nil nil nil)))
 206   (should (equal (org-parse-time-string "<2012-03-29>" t)
 207                  '(0 nil nil 29 3 2012 nil nil nil))))
 208
 209 \f
 210 ;;; Filling
 211
 212 (ert-deftest test-org/fill-paragraph ()
 213   "Test `org-fill-paragraph' specifications."
 214   ;; At an Org table, align it.
 215   (should
 216    (equal "| a |\n"
 217           (org-test-with-temp-text "|a|"
 218             (org-fill-paragraph)
 219             (buffer-string))))
 220   (should
 221    (equal "#+name: table\n| a |\n"
 222           (org-test-with-temp-text "#+name: table\n| a |"
 223             (org-fill-paragraph)
 224             (buffer-string))))
 225   ;; At a paragraph, preserve line breaks.
 226   (org-test-with-temp-text "some \\\\\nlong\ntext"
 227     (let ((fill-column 20))
 228       (org-fill-paragraph)
 229       (should (equal (buffer-string) "some \\\\\nlong text"))))
 230   ;; Correctly fill a paragraph when point is at its very end.
 231   (should
 232    (equal "A B"
 233           (org-test-with-temp-text "A\nB"
 234             (let ((fill-column 20))
 235               (goto-char (point-max))
 236               (org-fill-paragraph)
 237               (buffer-string)))))
 238   ;; Correctly fill the last paragraph of a greater element.
 239   (should
 240    (equal "#+BEGIN_CENTER\n- 012345\n  789\n#+END_CENTER"
 241           (org-test-with-temp-text "#+BEGIN_CENTER\n- 012345 789\n#+END_CENTER"
 242             (let ((fill-column 8))
 243               (forward-line)
 244               (end-of-line)
 245               (org-fill-paragraph)
 246               (buffer-string)))))
 247   ;; Correctly fill an element in a narrowed buffer.
 248   (should
 249    (equal "01234\n6"
 250           (org-test-with-temp-text "01234 6789"
 251             (let ((fill-column 5))
 252               (narrow-to-region 1 8)
 253               (org-fill-paragraph)
 254               (buffer-string)))))
 255   ;; Handle `adaptive-fill-regexp' in paragraphs.
 256   (should
 257    (equal "> a b"
 258           (org-test-with-temp-text "> a\n> b"
 259             (let ((fill-column 5)
 260                   (adaptive-fill-regexp "[ \t]*>+[ \t]*"))
 261               (org-fill-paragraph)
 262               (buffer-string)))))
 263   ;; Special case: Fill first paragraph when point is at an item or
 264   ;; a plain-list or a footnote reference.
 265   (should
 266    (equal "- A B"
 267           (org-test-with-temp-text "- A\n  B"
 268             (let ((fill-column 20))
 269               (org-fill-paragraph)
 270               (buffer-string)))))
 271   (should
 272    (equal "[fn:1] A B"
 273           (org-test-with-temp-text "[fn:1] A\nB"
 274             (let ((fill-column 20))
 275               (org-fill-paragraph)
 276               (buffer-string)))))
 277   (org-test-with-temp-text "#+BEGIN_VERSE\nSome \\\\\nlong\ntext\n#+END_VERSE"
 278     (let ((fill-column 20))
 279       (org-fill-paragraph)
 280       (should (equal (buffer-string)
 281                      "#+BEGIN_VERSE\nSome \\\\\nlong\ntext\n#+END_VERSE"))))
 282   ;; Fill contents of `comment-block' elements.
 283   (should
 284    (equal
 285     (org-test-with-temp-text "#+BEGIN_COMMENT\nSome\ntext\n#+END_COMMENT"
 286       (let ((fill-column 20))
 287         (forward-line)
 288         (org-fill-paragraph)
 289         (buffer-string)))
 290     "#+BEGIN_COMMENT\nSome text\n#+END_COMMENT"))
 291   ;; Fill `comment' elements.
 292   (should
 293    (equal "  # A B"
 294           (org-test-with-temp-text "  # A\n  # B"
 295             (let ((fill-column 20))
 296               (org-fill-paragraph)
 297               (buffer-string)))))
 298   ;; Do not mix consecutive comments when filling one of them.
 299   (should
 300    (equal "# A B\n\n# C"
 301           (org-test-with-temp-text "# A\n# B\n\n# C"
 302             (let ((fill-column 20))
 303               (org-fill-paragraph)
 304               (buffer-string)))))
 305   ;; Use commented empty lines as separators when filling comments.
 306   (should
 307    (equal "# A B\n#\n# C"
 308           (org-test-with-temp-text "# A\n# B\n#\n# C"
 309             (let ((fill-column 20))
 310               (org-fill-paragraph)
 311               (buffer-string)))))
 312   ;; Handle `adaptive-fill-regexp' in comments.
 313   (should
 314    (equal "# > a b"
 315           (org-test-with-temp-text "# > a\n# > b"
 316             (let ((fill-column 20)
 317                   (adaptive-fill-regexp "[ \t]*>+[ \t]*"))
 318               (org-fill-paragraph)
 319               (buffer-string)))))
 320   ;; Do nothing at affiliated keywords.
 321   (org-test-with-temp-text "#+NAME: para\nSome\ntext."
 322     (let ((fill-column 20))
 323       (org-fill-paragraph)
 324       (should (equal (buffer-string) "#+NAME: para\nSome\ntext."))))
 325   ;; Do not move point after table when filling a table.
 326   (should-not
 327    (org-test-with-temp-text "| a | b |\n| c | d |\n"
 328      (forward-char)
 329      (org-fill-paragraph)
 330      (eobp))))
 331
 332 (ert-deftest test-org/auto-fill-function ()
 333   "Test auto-filling features."
 334   ;; Auto fill paragraph.
 335   (should
 336    (equal "12345\n7890"
 337           (org-test-with-temp-text "12345 7890"
 338             (let ((fill-column 5))
 339               (end-of-line)
 340               (org-auto-fill-function)
 341               (buffer-string)))))
 342   ;; Auto fill first paragraph in an item.
 343   (should
 344    (equal "- 12345\n  7890"
 345           (org-test-with-temp-text "- 12345 7890"
 346             (let ((fill-column 7))
 347               (end-of-line)
 348               (org-auto-fill-function)
 349               (buffer-string)))))
 350   ;; Auto fill paragraph when `adaptive-fill-regexp' matches.
 351   (should
 352    (equal "> 12345\n  7890"
 353           (org-test-with-temp-text "> 12345 7890"
 354             (let ((fill-column 10)
 355                   (adaptive-fill-regexp "[ \t]*>+[ \t]*")
 356                   (adaptive-fill-first-line-regexp "\\`[        ]*\\'"))
 357               (end-of-line)
 358               (org-auto-fill-function)
 359               (buffer-string)))))
 360   (should
 361    (equal "> 12345\n> 12345\n> 7890"
 362           (org-test-with-temp-text "> 12345\n> 12345 7890"
 363             (let ((fill-column 10)
 364                   (adaptive-fill-regexp "[ \t]*>+[ \t]*"))
 365               (goto-char (point-max))
 366               (org-auto-fill-function)
 367               (buffer-string)))))
 368   (should-not
 369    (equal " 12345\n *12345\n *12345"
 370           (org-test-with-temp-text " 12345\n *12345 12345"
 371             (let ((fill-column 10)
 372                   (adaptive-fill-regexp "[ \t]*>+[ \t]*"))
 373               (goto-char (point-max))
 374               (org-auto-fill-function)
 375               (buffer-string)))))
 376   ;; Auto fill comments.
 377   (should
 378    (equal "  # 12345\n  # 7890"
 379           (org-test-with-temp-text "  # 12345 7890"
 380             (let ((fill-column 10))
 381               (end-of-line)
 382               (org-auto-fill-function)
 383               (buffer-string)))))
 384   ;; A hash within a line isn't a comment.
 385   (should-not
 386    (equal "12345 # 7890\n# 1"
 387           (org-test-with-temp-text "12345 # 7890 1"
 388             (let ((fill-column 12))
 389               (end-of-line)
 390               (org-auto-fill-function)
 391               (buffer-string)))))
 392   ;; Correctly interpret empty prefix.
 393   (should-not
 394    (equal "# a\n# b\nRegular\n# paragraph"
 395           (org-test-with-temp-text "# a\n# b\nRegular paragraph"
 396             (let ((fill-column 12))
 397               (end-of-line 3)
 398               (org-auto-fill-function)
 399               (buffer-string)))))
 400   ;; Comment block: auto fill contents.
 401   (should
 402    (equal "#+BEGIN_COMMENT\n12345\n7890\n#+END_COMMENT"
 403           (org-test-with-temp-text "#+BEGIN_COMMENT\n12345 7890\n#+END_COMMENT"
 404             (let ((fill-column 5))
 405               (forward-line)
 406               (end-of-line)
 407               (org-auto-fill-function)
 408               (buffer-string)))))
 409   (should
 410    (equal "#+BEGIN_COMMENT\n12345\n7890\n#+END_COMMENT"
 411           (org-test-with-temp-text "#+BEGIN_COMMENT\n12345 7890\n#+END_COMMENT"
 412             (let ((fill-column 5))
 413               (forward-line)
 414               (end-of-line)
 415               (org-auto-fill-function)
 416               (buffer-string)))))
 417   ;; Do not fill if a new item could be created.
 418   (should-not
 419    (equal "12345\n- 90"
 420           (org-test-with-temp-text "12345 - 90"
 421             (let ((fill-column 5))
 422               (end-of-line)
 423               (org-auto-fill-function)
 424               (buffer-string)))))
 425   ;; Do not fill if a line break could be introduced.
 426   (should-not
 427    (equal "123\\\\\n7890"
 428           (org-test-with-temp-text "123\\\\ 7890"
 429             (let ((fill-column 6))
 430               (end-of-line)
 431               (org-auto-fill-function)
 432               (buffer-string)))))
 433   ;; Do not fill affiliated keywords.
 434   (should-not
 435    (equal "#+ATTR_LATEX: ABC\nDEFGHIJKL"
 436           (org-test-with-temp-text "#+ATTR_LATEX: ABC DEFGHIJKL"
 437             (let ((fill-column 20))
 438               (end-of-line)
 439               (org-auto-fill-function)
 440               (buffer-string))))))
 441
 442
 443 \f
 444 ;;; Indentation
 445
 446 (ert-deftest test-org/indent-line ()
 447   "Test `org-indent-line' specifications."
 448   ;; Do not indent footnote definitions or headlines.
 449   (should
 450    (zerop
 451     (org-test-with-temp-text "* H"
 452       (org-indent-line)
 453       (org-get-indentation))))
 454   (should
 455    (zerop
 456     (org-test-with-temp-text "[fn:1] fn"
 457       (let ((org-adapt-indentation t)) (org-indent-line))
 458       (org-get-indentation))))
 459   ;; Do not indent before first headline.
 460   (should
 461    (zerop
 462     (org-test-with-temp-text ""
 463       (org-indent-line)
 464       (org-get-indentation))))
 465   ;; Indent according to headline level otherwise, unless
 466   ;; `org-adapt-indentation' is nil.
 467   (should
 468    (= 2
 469       (org-test-with-temp-text "* H\nA"
 470         (forward-line)
 471         (let ((org-adapt-indentation t)) (org-indent-line))
 472         (org-get-indentation))))
 473   (should
 474    (= 2
 475       (org-test-with-temp-text "* H\n\nA"
 476         (forward-line)
 477         (let ((org-adapt-indentation t)) (org-indent-line))
 478         (org-get-indentation))))
 479   (should
 480    (zerop
 481     (org-test-with-temp-text "* H\nA"
 482       (forward-line)
 483       (let ((org-adapt-indentation nil)) (org-indent-line))
 484       (org-get-indentation))))
 485   ;; Indenting preserves point position.
 486   (should
 487    (org-test-with-temp-text "* H\nAB"
 488      (forward-line)
 489      (forward-char)
 490      (let ((org-adapt-indentation t)) (org-indent-line))
 491      (looking-at "B")))
 492   ;; Do not change indentation at an item.
 493   (should
 494    (= 1
 495       (org-test-with-temp-text "* H\n - A"
 496         (forward-line)
 497         (let ((org-adapt-indentation t)) (org-indent-line))
 498         (org-get-indentation))))
 499   ;; On blank lines at the end of a list, indent like last element
 500   ;; within it if the line is still in the list.  Otherwise, indent
 501   ;; like the whole list.
 502   (should
 503    (= 4
 504       (org-test-with-temp-text "* H\n- A\n  - AA\n"
 505         (goto-char (point-max))
 506         (let ((org-adapt-indentation t)) (org-indent-line))
 507         (org-get-indentation))))
 508   (should
 509    (zerop
 510     (org-test-with-temp-text "* H\n- A\n  - AA\n\n\n\n"
 511       (goto-char (point-max))
 512       (let ((org-adapt-indentation t)) (org-indent-line))
 513       (org-get-indentation))))
 514   ;; Likewise, on a blank line at the end of a footnote definition,
 515   ;; indent at column 0 if line belongs to the definition.  Otherwise,
 516   ;; indent like the definition itself.
 517   (should
 518    (zerop
 519     (org-test-with-temp-text "* H\n[fn:1] Definition\n"
 520       (goto-char (point-max))
 521       (let ((org-adapt-indentation t)) (org-indent-line))
 522       (org-get-indentation))))
 523   (should
 524    (zerop
 525     (org-test-with-temp-text "* H\n[fn:1] Definition\n\n\n\n"
 526       (goto-char (point-max))
 527       (let ((org-adapt-indentation t)) (org-indent-line))
 528       (org-get-indentation))))
 529   ;; After the end of the contents of a greater element, indent like
 530   ;; the beginning of the element.
 531   (should
 532    (= 1
 533       (org-test-with-temp-text " #+BEGIN_CENTER\n  Contents\n#+END_CENTER"
 534         (forward-line 2)
 535         (org-indent-line)
 536         (org-get-indentation))))
 537   ;; At the first line of an element, indent like previous element's
 538   ;; first line, ignoring footnotes definitions and inline tasks, or
 539   ;; according to parent.
 540   (should
 541    (= 2
 542       (org-test-with-temp-text "A\n\n  B\n\nC"
 543         (goto-char (point-max))
 544         (org-indent-line)
 545         (org-get-indentation))))
 546   (should
 547    (= 1
 548       (org-test-with-temp-text " A\n\n[fn:1] B\n\n\nC"
 549         (goto-char (point-max))
 550         (org-indent-line)
 551         (org-get-indentation))))
 552   (should
 553    (= 1
 554       (org-test-with-temp-text " #+BEGIN_CENTER\n  Contents\n#+END_CENTER"
 555         (forward-line 1)
 556         (org-indent-line)
 557         (org-get-indentation))))
 558   ;; Within code part of a source block, use language major mode if
 559   ;; `org-src-tab-acts-natively' is non-nil.  Otherwise, indent
 560   ;; according to line above.
 561   (should
 562    (= 6
 563       (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
 564         (forward-line 2)
 565         (let ((org-src-tab-acts-natively t)
 566               (org-edit-src-content-indentation 0))
 567           (org-indent-line))
 568         (org-get-indentation))))
 569   (should
 570    (= 1
 571       (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
 572         (forward-line 2)
 573         (let ((org-src-tab-acts-natively nil)
 574               (org-edit-src-content-indentation 0))
 575           (org-indent-line))
 576         (org-get-indentation))))
 577   ;; Otherwise, indent like the first non-blank line above.
 578   (should
 579    (zerop
 580     (org-test-with-temp-text "#+BEGIN_CENTER\nline1\n\n  line2\n#+END_CENTER"
 581       (forward-line 3)
 582       (org-indent-line)
 583       (org-get-indentation))))
 584   ;; Align node properties according to `org-property-format'.  Handle
 585   ;; nicely empty values.
 586   (should
 587    (equal ":PROPERTIES:\n:key:      value\n:END:"
 588           (org-test-with-temp-text ":PROPERTIES:\n:key: value\n:END:"
 589             (forward-line)
 590             (let ((org-property-format "%-10s %s"))
 591               (org-indent-line)
 592               (buffer-string)))))
 593   (should
 594    (equal ":PROPERTIES:\n:key:\n:END:"
 595           (org-test-with-temp-text ":PROPERTIES:\n:key:\n:END:"
 596             (forward-line)
 597             (let ((org-property-format "%-10s %s"))
 598               (org-indent-line)
 599               (buffer-string))))))
 600
 601 (ert-deftest test-org/indent-region ()
 602   "Test `org-indent-region' specifications."
 603   ;; Indent paragraph.
 604   (should
 605    (equal "A\nB\nC"
 606           (org-test-with-temp-text " A\nB\n  C"
 607             (org-indent-region (point-min) (point-max))
 608             (buffer-string))))
 609   ;; Indent greater elements along with their contents.
 610   (should
 611    (equal "#+BEGIN_CENTER\nA\nB\n#+END_CENTER"
 612           (org-test-with-temp-text "#+BEGIN_CENTER\n A\n  B\n#+END_CENTER"
 613             (org-indent-region (point-min) (point-max))
 614             (buffer-string))))
 615   ;; Ignore contents of verse blocks and example blocks.
 616   (should
 617    (equal "#+BEGIN_VERSE\n A\n  B\n#+END_VERSE"
 618           (org-test-with-temp-text "#+BEGIN_VERSE\n A\n  B\n#+END_VERSE"
 619             (org-indent-region (point-min) (point-max))
 620             (buffer-string))))
 621   (should
 622    (equal "#+BEGIN_EXAMPLE\n A\n  B\n#+END_EXAMPLE"
 623           (org-test-with-temp-text "#+BEGIN_EXAMPLE\n A\n  B\n#+END_EXAMPLE"
 624             (org-indent-region (point-min) (point-max))
 625             (buffer-string))))
 626   ;; Indent according to mode if `org-src-tab-acts-natively' is
 627   ;; non-nil.  Otherwise, do not indent code at all.
 628   (should
 629    (equal "#+BEGIN_SRC emacs-lisp\n(and A\n     B)\n#+END_SRC"
 630           (org-test-with-temp-text
 631               "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
 632             (let ((org-src-tab-acts-natively t)
 633                   (org-edit-src-content-indentation 0))
 634               (org-indent-region (point-min) (point-max)))
 635             (buffer-string))))
 636   (should
 637    (equal "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
 638           (org-test-with-temp-text
 639               "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
 640             (let ((org-src-tab-acts-natively nil)
 641                   (org-edit-src-content-indentation 0))
 642               (org-indent-region (point-min) (point-max)))
 643             (buffer-string))))
 644   ;; Align node properties according to `org-property-format'.  Handle
 645   ;; nicely empty values.
 646   (should
 647    (equal ":PROPERTIES:\n:key:      value\n:END:"
 648           (org-test-with-temp-text ":PROPERTIES:\n:key: value\n:END:"
 649             (let ((org-property-format "%-10s %s"))
 650               (org-indent-region (point-min) (point-max)))
 651             (buffer-string))))
 652   (should
 653    (equal ":PROPERTIES:\n:key:\n:END:"
 654           (org-test-with-temp-text ":PROPERTIES:\n:key:\n:END:"
 655             (let ((org-property-format "%-10s %s"))
 656               (org-indent-region (point-min) (point-max)))
 657             (buffer-string))))
 658   ;; Indent plain lists.
 659   (should
 660    (equal "- A\n  B\n  - C\n\n    D"
 661           (org-test-with-temp-text "- A\n   B\n  - C\n\n     D"
 662             (org-indent-region (point-min) (point-max))
 663             (buffer-string))))
 664   (should
 665    (equal "- A\n\n- B"
 666           (org-test-with-temp-text " - A\n\n - B"
 667             (org-indent-region (point-min) (point-max))
 668             (buffer-string))))
 669   ;; Indent footnote definitions.
 670   (should
 671    (equal "[fn:1] Definition\n\nDefinition"
 672           (org-test-with-temp-text "[fn:1] Definition\n\n  Definition"
 673             (org-indent-region (point-min) (point-max))
 674             (buffer-string))))
 675   ;; Special case: Start indenting on a blank line.
 676   (should
 677    (equal "\nParagraph"
 678           (org-test-with-temp-text "\n  Paragraph"
 679             (org-indent-region (point-min) (point-max))
 680             (buffer-string)))))
 681
 682
 683 \f
 684 ;;; Editing
 685
 686 ;;;; Insert elements
 687
 688 (ert-deftest test-org/meta-return ()
 689   "Test M-RET (`org-meta-return')."
 690   ;; In a table field insert a row above.
 691   (should
 692    (org-test-with-temp-text "| a |"
 693      (forward-char)
 694      (org-meta-return)
 695      (forward-line -1)
 696      (looking-at "|   |$")))
 697   ;; In a paragraph change current line into a header.
 698   (should
 699    (org-test-with-temp-text "a"
 700      (org-meta-return)
 701      (beginning-of-line)
 702      (looking-at "\* a$")))
 703   ;; In an item insert an item, in this case above.
 704   (should
 705    (org-test-with-temp-text "- a"
 706      (org-meta-return)
 707      (beginning-of-line)
 708      (looking-at "- $")))
 709   ;; In a drawer and item insert an item, in this case above.
 710   (should
 711    (org-test-with-temp-text ":MYDRAWER:\n- a\n:END:"
 712      (forward-line)
 713      (org-meta-return)
 714      (beginning-of-line)
 715      (looking-at "- $"))))
 716
 717 (ert-deftest test-org/insert-heading ()
 718   "Test `org-insert-heading' specifications."
 719   ;; FIXME: Test coverage is incomplete yet.
 720   ;;
 721   ;; In an empty buffer, insert a new headline.
 722   (should
 723    (equal "* "
 724           (org-test-with-temp-text ""
 725             (org-insert-heading)
 726             (buffer-string))))
 727   ;; At the beginning of a line, turn it into a headline
 728   (should
 729    (equal "* P"
 730           (org-test-with-temp-text "<point>P"
 731             (org-insert-heading)
 732             (buffer-string))))
 733   ;; In the middle of a line, split the line if allowed, otherwise,
 734   ;; insert the headline at its end.
 735   (should
 736    (equal "Para\n* graph"
 737           (org-test-with-temp-text "Para<point>graph"
 738             (let ((org-M-RET-may-split-line '((default . t))))
 739               (org-insert-heading))
 740             (buffer-string))))
 741   (should
 742    (equal "Paragraph\n* "
 743           (org-test-with-temp-text "Para<point>graph"
 744             (let ((org-M-RET-may-split-line '((default . nil))))
 745               (org-insert-heading))
 746             (buffer-string))))
 747   ;; Corner case: correctly insert a headline after an empty one.
 748   (should
 749    (equal "* \n* "
 750           (org-test-with-temp-text "* <point>"
 751             (org-insert-heading)
 752             (buffer-string)))))
 753
 754 (ert-deftest test-org/insert-todo-heading-respect-content ()
 755   "Test `org-insert-todo-heading-respect-content' specifications."
 756   ;; Create a TODO heading.
 757   (should
 758    (org-test-with-temp-text "* H1\n Body"
 759      (org-insert-todo-heading-respect-content)
 760      (nth 2 (org-heading-components))))
 761   ;; Add headline at the end of the first subtree
 762   (should
 763    (org-test-with-temp-text "* H1\nH1Body\n** H2\nH2Body"
 764      (search-forward "H1Body")
 765      (org-insert-todo-heading-respect-content)
 766      (and (eobp) (org-at-heading-p))))
 767   ;; In a list, do not create a new item.
 768   (should
 769    (org-test-with-temp-text "* H\n- an item\n- another one"
 770      (search-forward "an ")
 771      (org-insert-todo-heading-respect-content)
 772      (and (eobp) (org-at-heading-p)))))
 773
 774
 775 \f
 776 ;;; Fixed-Width Areas
 777
 778 (ert-deftest test-org/toggle-fixed-width ()
 779   "Test `org-toggle-fixed-width' specifications."
 780   ;; No region: Toggle on fixed-width marker in paragraphs.
 781   (should
 782    (equal ": A"
 783           (org-test-with-temp-text "A"
 784             (org-toggle-fixed-width)
 785             (buffer-string))))
 786   ;; No region: Toggle off fixed-width markers in fixed-width areas.
 787   (should
 788    (equal "A"
 789           (org-test-with-temp-text ": A"
 790             (org-toggle-fixed-width)
 791             (buffer-string))))
 792   ;; No region: Toggle on marker in blank lines after elements or just
 793   ;; after a headline.
 794   (should
 795    (equal "* H\n: "
 796           (org-test-with-temp-text "* H\n"
 797             (forward-line)
 798             (org-toggle-fixed-width)
 799             (buffer-string))))
 800   (should
 801    (equal "#+BEGIN_EXAMPLE\nContents\n#+END_EXAMPLE\n: "
 802           (org-test-with-temp-text "#+BEGIN_EXAMPLE\nContents\n#+END_EXAMPLE\n"
 803             (goto-char (point-max))
 804             (org-toggle-fixed-width)
 805             (buffer-string))))
 806   ;; No region: Toggle on marker in front of one line elements (e.g.,
 807   ;; headlines, clocks)
 808   (should
 809    (equal ": * Headline"
 810           (org-test-with-temp-text "* Headline"
 811             (org-toggle-fixed-width)
 812             (buffer-string))))
 813   (should
 814    (equal ": #+KEYWORD: value"
 815           (org-test-with-temp-text "#+KEYWORD: value"
 816             (org-toggle-fixed-width)
 817             (buffer-string))))
 818   ;; No region: error in other situations.
 819   (should-error
 820    (org-test-with-temp-text "#+BEGIN_EXAMPLE\n: A\n#+END_EXAMPLE"
 821      (forward-line)
 822      (org-toggle-fixed-width)
 823      (buffer-string)))
 824   ;; No region: Indentation is preserved.
 825   (should
 826    (equal "- A\n  : B"
 827           (org-test-with-temp-text "- A\n  B"
 828             (forward-line)
 829             (org-toggle-fixed-width)
 830             (buffer-string))))
 831   ;; Region: If it contains only fixed-width elements and blank lines,
 832   ;; toggle off fixed-width markup.
 833   (should
 834    (equal "A\n\nB"
 835           (org-test-with-temp-text ": A\n\n: B"
 836             (transient-mark-mode 1)
 837             (push-mark (point) t t)
 838             (goto-char (point-max))
 839             (org-toggle-fixed-width)
 840             (buffer-string))))
 841   ;; Region: If it contains anything else, toggle on fixed-width but
 842   ;; not on fixed-width areas.
 843   (should
 844    (equal ": A\n: \n: B\n: \n: C"
 845           (org-test-with-temp-text "A\n\n: B\n\nC"
 846             (transient-mark-mode 1)
 847             (push-mark (point) t t)
 848             (goto-char (point-max))
 849             (org-toggle-fixed-width)
 850             (buffer-string))))
 851   ;; Region: Ignore blank lines at its end, unless it contains only
 852   ;; such lines.
 853   (should
 854    (equal ": A\n\n"
 855           (org-test-with-temp-text "A\n\n"
 856             (transient-mark-mode 1)
 857             (push-mark (point) t t)
 858             (goto-char (point-max))
 859             (org-toggle-fixed-width)
 860             (buffer-string))))
 861   (should
 862    (equal ": \n: \n"
 863           (org-test-with-temp-text "\n\n"
 864             (transient-mark-mode 1)
 865             (push-mark (point) t t)
 866             (goto-char (point-max))
 867             (org-toggle-fixed-width)
 868             (buffer-string)))))
 869
 870
 871 \f
 872 ;;; Headline
 873
 874 (ert-deftest test-org/in-commented-heading-p ()
 875   "Test `org-in-commented-heading-p' specifications."
 876   ;; Commented headline.
 877   (should
 878    (org-test-with-temp-text "* COMMENT Headline\nBody"
 879      (goto-char (point-max))
 880      (org-in-commented-heading-p)))
 881   ;; Commented ancestor.
 882   (should
 883    (org-test-with-temp-text "* COMMENT Headline\n** Level 2\nBody"
 884      (goto-char (point-max))
 885      (org-in-commented-heading-p)))
 886   ;; Comment keyword is case-sensitive.
 887   (should-not
 888    (org-test-with-temp-text "* Comment Headline\nBody"
 889      (goto-char (point-max))
 890      (org-in-commented-heading-p)))
 891   ;; Keyword is standalone.
 892   (should-not
 893    (org-test-with-temp-text "* COMMENTHeadline\nBody"
 894      (goto-char (point-max))
 895      (org-in-commented-heading-p)))
 896   ;; Optional argument.
 897   (should-not
 898    (org-test-with-temp-text "* COMMENT Headline\n** Level 2\nBody"
 899      (goto-char (point-max))
 900      (org-in-commented-heading-p t))))
 901
 902
 903 \f
 904 ;;; Links
 905
 906 ;;;; Coderefs
 907
 908 (ert-deftest test-org/coderef ()
 909   "Test coderef links specifications."
 910   (should
 911    (org-test-with-temp-text "
 912 #+BEGIN_SRC emacs-lisp
 913 \(+ 1 1)                  (ref:sc)
 914 #+END_SRC
 915 \[[(sc)]]"
 916      (goto-char (point-max))
 917      (org-open-at-point)
 918      (looking-at "(ref:sc)"))))
 919
 920 ;;;; Custom ID
 921
 922 (ert-deftest test-org/custom-id ()
 923   "Test custom ID links specifications."
 924   (should
 925    (org-test-with-temp-text
 926        "* H1\n:PROPERTIES:\n:CUSTOM_ID: custom\n:END:\n* H2\n[[#custom]]"
 927      (goto-char (point-max))
 928      (org-open-at-point)
 929      (org-looking-at-p "\\* H1"))))
 930
 931 ;;;; Fuzzy Links
 932
 933 ;; Fuzzy links [[text]] encompass links to a target (<<text>>), to
 934 ;; a named element (#+name: text) and to headlines (* Text).
 935
 936 (ert-deftest test-org/fuzzy-links ()
 937   "Test fuzzy links specifications."
 938   ;; Fuzzy link goes in priority to a matching target.
 939   (should
 940    (org-test-with-temp-text "#+NAME: Test\n|a|b|\n<<Test>>\n* Test\n[[Test]]"
 941      (goto-line 5)
 942      (org-open-at-point)
 943      (looking-at "<<Test>>")))
 944   ;; Then fuzzy link points to an element with a given name.
 945   (should
 946    (org-test-with-temp-text "Test\n#+NAME: Test\n|a|b|\n* Test\n[[Test]]"
 947      (goto-line 5)
 948      (org-open-at-point)
 949      (looking-at "#\\+NAME: Test")))
 950   ;; A target still lead to a matching headline otherwise.
 951   (should
 952    (org-test-with-temp-text "* Head1\n* Head2\n*Head3\n[[Head2]]"
 953      (goto-line 4)
 954      (org-open-at-point)
 955      (looking-at "\\* Head2")))
 956   ;; With a leading star in link, enforce heading match.
 957   (should
 958    (org-test-with-temp-text "* Test\n<<Test>>\n[[*Test]]"
 959      (goto-line 3)
 960      (org-open-at-point)
 961      (looking-at "\\* Test")))
 962   ;; Correctly un-hexify fuzzy links.
 963   (should
 964    (org-test-with-temp-text "* With space\n[[*With%20space][With space]]"
 965      (goto-char (point-max))
 966      (org-open-at-point)
 967      (bobp))))
 968
 969 ;;;; Link Escaping
 970
 971 (ert-deftest test-org/org-link-escape-ascii-character ()
 972   "Escape an ascii character."
 973   (should
 974    (string=
 975     "%5B"
 976     (org-link-escape "["))))
 977
 978 (ert-deftest test-org/org-link-escape-ascii-ctrl-character ()
 979   "Escape an ascii control character."
 980   (should
 981    (string=
 982     "%09"
 983     (org-link-escape "\t"))))
 984
 985 (ert-deftest test-org/org-link-escape-multibyte-character ()
 986   "Escape an unicode multibyte character."
 987   (should
 988    (string=
 989     "%E2%82%AC"
 990     (org-link-escape "€"))))
 991
 992 (ert-deftest test-org/org-link-escape-custom-table ()
 993   "Escape string with custom character table."
 994   (should
 995    (string=
 996     "Foo%3A%42ar%0A"
 997     (org-link-escape "Foo:Bar\n" '(?\: ?\B)))))
 998
 999 (ert-deftest test-org/org-link-escape-custom-table-merge ()
1000   "Escape string with custom table merged with default table."
1001   (should
1002    (string=
1003     "%5BF%6F%6F%3A%42ar%0A%5D"
1004     (org-link-escape "[Foo:Bar\n]" '(?\: ?\B ?\o) t))))
1005
1006 (ert-deftest test-org/org-link-unescape-ascii-character ()
1007   "Unescape an ascii character."
1008   (should
1009    (string=
1010     "["
1011     (org-link-unescape "%5B"))))
1012
1013 (ert-deftest test-org/org-link-unescape-ascii-ctrl-character ()
1014   "Unescpae an ascii control character."
1015   (should
1016    (string=
1017     "\n"
1018     (org-link-unescape "%0A"))))
1019
1020 (ert-deftest test-org/org-link-unescape-multibyte-character ()
1021   "Unescape unicode multibyte character."
1022   (should
1023    (string=
1024     "€"
1025     (org-link-unescape "%E2%82%AC"))))
1026
1027 (ert-deftest test-org/org-link-unescape-ascii-extended-char ()
1028   "Unescape old style percent escaped character."
1029   (should
1030    (string=
1031     "àâçèéêîôùû"
1032         (decode-coding-string
1033          (org-link-unescape "%E0%E2%E7%E8%E9%EA%EE%F4%F9%FB") 'latin-1))))
1034
1035 (ert-deftest test-org/org-link-escape-url-with-escaped-char ()
1036   "Escape and unescape a URL that includes an escaped char.
1037 http://article.gmane.org/gmane.emacs.orgmode/21459/"
1038   (should
1039    (string=
1040     "http://some.host.com/form?&id=blah%2Bblah25"
1041     (org-link-unescape
1042      (org-link-escape "http://some.host.com/form?&id=blah%2Bblah25")))))
1043
1044 (ert-deftest test-org/org-link-escape-chars-browser ()
1045   "Test of the constant `org-link-escape-chars-browser'.
1046 See there why this test is a candidate to be removed once Org
1047 drops support for Emacs 24.1 and 24.2."
1048   (should
1049    (string=
1050     (concat "http://lists.gnu.org/archive/cgi-bin/namazu.cgi?query="
1051             "%22Release%208.2%22&idxname=emacs-orgmode")
1052     (org-link-escape-browser ; Do not replace with `url-encode-url',
1053                              ; see docstring above.
1054      (concat "http://lists.gnu.org/archive/cgi-bin/namazu.cgi?query="
1055              "\"Release 8.2\"&idxname=emacs-orgmode")))))
1056
1057 ;;;; Open at point
1058
1059 (ert-deftest test-org/open-at-point-in-property ()
1060   "Does `org-open-at-point' open link in property drawer?"
1061   (should
1062    (org-test-with-temp-text
1063     "* Headline
1064 :PROPERTIES:
1065 :URL: <point>[[info:emacs#Top]]
1066 :END:"
1067     (org-open-at-point) t)))
1068
1069 (ert-deftest test-org/open-at-point-in-comment ()
1070   "Does `org-open-at-point' open link in a commented line?"
1071   (should
1072    (org-test-with-temp-text
1073     "# <point>[[info:emacs#Top]]"
1074     (org-open-at-point) t)))
1075
1076 (ert-deftest test-org/open-at-point/info ()
1077   "Test `org-open-at-point' on info links."
1078   (should
1079    (org-test-with-temp-text
1080     "<point>[[info:emacs#Top]]"
1081     (org-open-at-point)
1082     (and (switch-to-buffer "*info*")
1083          (prog1
1084              (looking-at "\nThe Emacs Editor")
1085            (kill-buffer))))))
1086
1087 \f
1088 ;;; Node Properties
1089
1090 (ert-deftest test-org/accumulated-properties-in-drawers ()
1091   "Ensure properties accumulate in subtree drawers."
1092   (org-test-at-id "75282ba2-f77a-4309-a970-e87c149fe125"
1093     (org-babel-next-src-block)
1094     (should (equal '(2 1) (org-babel-execute-src-block)))))
1095
1096
1097 \f
1098 ;;; Mark Region
1099
1100 (ert-deftest test-org/mark-subtree ()
1101   "Test `org-mark-subtree' specifications."
1102   ;; Error when point is before first headline.
1103   (should-error
1104    (org-test-with-temp-text "Paragraph\n* Headline\nBody"
1105      (progn (transient-mark-mode 1)
1106             (org-mark-subtree))))
1107   ;; Without argument, mark current subtree.
1108   (should
1109    (equal
1110     '(12 32)
1111     (org-test-with-temp-text "* Headline\n** Sub-headline\nBody"
1112       (progn (transient-mark-mode 1)
1113              (forward-line 2)
1114              (org-mark-subtree)
1115              (list (region-beginning) (region-end))))))
1116   ;; With an argument, move ARG up.
1117   (should
1118    (equal
1119     '(1 32)
1120     (org-test-with-temp-text "* Headline\n** Sub-headline\nBody"
1121       (progn (transient-mark-mode 1)
1122              (forward-line 2)
1123              (org-mark-subtree 1)
1124              (list (region-beginning) (region-end))))))
1125   ;; Do not get fooled by inlinetasks.
1126   (when (featurep 'org-inlinetask)
1127     (should
1128      (= 1
1129         (org-test-with-temp-text "* Headline\n*************** Task\nContents"
1130           (progn (transient-mark-mode 1)
1131                  (forward-line 1)
1132                  (let ((org-inlinetask-min-level 15)) (org-mark-subtree))
1133                  (region-beginning)))))))
1134
1135
1136  \f
1137 ;;; Navigation
1138
1139 (ert-deftest test-org/beginning-of-line ()
1140   "Test `org-beginning-of-line' specifications."
1141   ;; Standard test.
1142   (should
1143    (org-test-with-temp-text "Some text\nSome other text"
1144      (progn (org-beginning-of-line) (bolp))))
1145   ;; Standard test with `visual-line-mode'.
1146   (should-not
1147    (org-test-with-temp-text "A long line of text\nSome other text"
1148      (progn (visual-line-mode)
1149             (forward-char 2)
1150             (dotimes (i 1000) (insert "very "))
1151             (org-beginning-of-line)
1152             (bolp))))
1153   ;; At an headline with special movement.
1154   (should
1155    (org-test-with-temp-text "* TODO Headline"
1156      (let ((org-special-ctrl-a/e t))
1157        (org-end-of-line)
1158        (and (progn (org-beginning-of-line) (looking-at "Headline"))
1159             (progn (org-beginning-of-line) (bolp))
1160             (progn (org-beginning-of-line) (looking-at "Headline")))))))
1161
1162 (ert-deftest test-org/end-of-line ()
1163   "Test `org-end-of-line' specifications."
1164   ;; Standard test.
1165   (should
1166    (org-test-with-temp-text "Some text\nSome other text"
1167      (progn (org-end-of-line) (eolp))))
1168   ;; Standard test with `visual-line-mode'.
1169   (should-not
1170    (org-test-with-temp-text "A long line of text\nSome other text"
1171      (progn (visual-line-mode)
1172             (forward-char 2)
1173             (dotimes (i 1000) (insert "very "))
1174             (goto-char (point-min))
1175             (org-end-of-line)
1176             (eolp))))
1177   ;; At an headline with special movement.
1178   (should
1179    (org-test-with-temp-text "* Headline1 :tag:\n"
1180      (let ((org-special-ctrl-a/e t))
1181        (and (progn (org-end-of-line) (looking-at " :tag:"))
1182             (progn (org-end-of-line) (eolp))
1183             (progn (org-end-of-line) (looking-at " :tag:"))))))
1184   ;; At an headline without special movement.
1185   (should
1186    (org-test-with-temp-text "* Headline2 :tag:\n"
1187      (let ((org-special-ctrl-a/e nil))
1188        (and (progn (org-end-of-line) (eolp))
1189             (progn (org-end-of-line) (eolp))))))
1190   ;; At an headline, with reversed movement.
1191   (should
1192    (org-test-with-temp-text "* Headline3 :tag:\n"
1193      (let ((org-special-ctrl-a/e 'reversed)
1194            (this-command last-command))
1195        (and (progn (org-end-of-line) (eolp))
1196             (progn (org-end-of-line) (looking-at " :tag:"))))))
1197   ;; At a block without hidden contents.
1198   (should
1199    (org-test-with-temp-text "#+BEGIN_CENTER\nContents\n#+END_CENTER"
1200      (progn (org-end-of-line) (eolp))))
1201   ;; At a block with hidden contents.
1202   (should-not
1203    (org-test-with-temp-text "#+BEGIN_CENTER\nContents\n#+END_CENTER"
1204      (let ((org-special-ctrl-a/e t))
1205        (org-hide-block-toggle)
1206        (org-end-of-line)
1207        (eobp)))))
1208
1209 (ert-deftest test-org/forward-paragraph ()
1210   "Test `org-forward-paragraph' specifications."
1211   ;; At end of buffer, return an error.
1212   (should-error
1213    (org-test-with-temp-text "Paragraph"
1214      (goto-char (point-max))
1215      (org-forward-paragraph)))
1216   ;; Standard test.
1217   (should
1218    (org-test-with-temp-text "P1\n\nP2\n\nP3"
1219      (org-forward-paragraph)
1220      (looking-at "P2")))
1221   ;; Ignore depth.
1222   (should
1223    (org-test-with-temp-text "#+BEGIN_CENTER\nP1\n#+END_CENTER\nP2"
1224      (org-forward-paragraph)
1225      (looking-at "P1")))
1226   ;; Do not enter elements with invisible contents.
1227   (should
1228    (org-test-with-temp-text "#+BEGIN_CENTER\nP1\n\nP2\n#+END_CENTER\nP3"
1229      (org-hide-block-toggle)
1230      (org-forward-paragraph)
1231      (looking-at "P3")))
1232   ;; On an affiliated keyword, jump to the beginning of the element.
1233   (should
1234    (org-test-with-temp-text "#+name: para\n#+caption: caption\nPara"
1235      (org-forward-paragraph)
1236      (looking-at "Para")))
1237   ;; On an item or a footnote definition, move to the second element
1238   ;; inside, if any.
1239   (should
1240    (org-test-with-temp-text "- Item1\n\n  Paragraph\n- Item2"
1241      (org-forward-paragraph)
1242      (looking-at "  Paragraph")))
1243   (should
1244    (org-test-with-temp-text "[fn:1] Def1\n\nParagraph\n\n[fn:2] Def2"
1245      (org-forward-paragraph)
1246      (looking-at "Paragraph")))
1247   ;; On an item, or a footnote definition, when the first line is
1248   ;; empty, move to the first item.
1249   (should
1250    (org-test-with-temp-text "- \n\n  Paragraph\n- Item2"
1251      (org-forward-paragraph)
1252      (looking-at "  Paragraph")))
1253   (should
1254    (org-test-with-temp-text "[fn:1]\n\nParagraph\n\n[fn:2] Def2"
1255      (org-forward-paragraph)
1256      (looking-at "Paragraph")))
1257   ;; On a table (resp. a property drawer) do not move through table
1258   ;; rows (resp. node properties).
1259   (should
1260    (org-test-with-temp-text "| a | b |\n| c | d |\nParagraph"
1261      (org-forward-paragraph)
1262      (looking-at "Paragraph")))
1263   (should
1264    (org-test-with-temp-text ":PROPERTIES:\n:prop: value\n:END:\nParagraph"
1265      (org-forward-paragraph)
1266      (looking-at "Paragraph")))
1267   ;; On a verse or source block, stop after blank lines.
1268   (should
1269    (org-test-with-temp-text "#+BEGIN_VERSE\nL1\n\nL2\n#+END_VERSE"
1270      (org-forward-paragraph)
1271      (looking-at "L2")))
1272   (should
1273    (org-test-with-temp-text "#+BEGIN_SRC\nL1\n\nL2\n#+END_SRC"
1274      (org-forward-paragraph)
1275      (looking-at "L2"))))
1276
1277 (ert-deftest test-org/backward-paragraph ()
1278   "Test `org-backward-paragraph' specifications."
1279   ;; Error at beginning of buffer.
1280   (should-error
1281    (org-test-with-temp-text "Paragraph"
1282      (org-backward-paragraph)))
1283   ;; Regular test.
1284   (should
1285    (org-test-with-temp-text "P1\n\nP2\n\nP3"
1286      (goto-char (point-max))
1287      (org-backward-paragraph)
1288      (looking-at "P3")))
1289   (should
1290    (org-test-with-temp-text "P1\n\nP2\n\nP3"
1291      (goto-char (point-max))
1292      (beginning-of-line)
1293      (org-backward-paragraph)
1294      (looking-at "P2")))
1295   ;; Ignore depth.
1296   (should
1297    (org-test-with-temp-text "P1\n\n#+BEGIN_CENTER\nP2\n#+END_CENTER\nP3"
1298      (goto-char (point-max))
1299      (beginning-of-line)
1300      (org-backward-paragraph)
1301      (looking-at "P2")))
1302   ;; Ignore invisible elements.
1303   (should
1304    (org-test-with-temp-text "* H1\n  P1\n* H2"
1305      (org-cycle)
1306      (goto-char (point-max))
1307      (beginning-of-line)
1308      (org-backward-paragraph)
1309      (bobp)))
1310   ;; On an affiliated keyword, jump to the first one.
1311   (should
1312    (org-test-with-temp-text "P1\n#+name: n\n#+caption: c1\n#+caption: c2\nP2"
1313      (search-forward "c2")
1314      (org-backward-paragraph)
1315      (looking-at "#\\+name")))
1316   ;; On the second element in an item or a footnote definition, jump
1317   ;; to item or the definition.
1318   (should
1319    (org-test-with-temp-text "- line1\n\n  line2"
1320      (goto-char (point-max))
1321      (beginning-of-line)
1322      (org-backward-paragraph)
1323      (looking-at "- line1")))
1324   (should
1325    (org-test-with-temp-text "[fn:1] line1\n\n  line2"
1326      (goto-char (point-max))
1327      (beginning-of-line)
1328      (org-backward-paragraph)
1329      (looking-at "\\[fn:1\\] line1")))
1330   ;; On a table (resp. a property drawer), ignore table rows
1331   ;; (resp. node properties).
1332   (should
1333    (org-test-with-temp-text "| a | b |\n| c | d |\nP1"
1334      (goto-char (point-max))
1335      (beginning-of-line)
1336      (org-backward-paragraph)
1337      (bobp)))
1338   (should
1339    (org-test-with-temp-text ":PROPERTIES:\n:prop: value\n:END:\nP1"
1340      (goto-char (point-max))
1341      (beginning-of-line)
1342      (org-backward-paragraph)
1343      (bobp)))
1344   ;; On a source or verse block, stop before blank lines.
1345   (should
1346    (org-test-with-temp-text "#+BEGIN_VERSE\nL1\n\nL2\n\nL3\n#+END_VERSE"
1347      (search-forward "L3")
1348      (beginning-of-line)
1349      (org-backward-paragraph)
1350      (looking-at "L2")))
1351   (should
1352    (org-test-with-temp-text "#+BEGIN_SRC\nL1\n\nL2\n\nL3#+END_SRC"
1353      (search-forward "L3")
1354      (beginning-of-line)
1355      (org-backward-paragraph)
1356      (looking-at "L2"))))
1357
1358 (ert-deftest test-org/forward-element ()
1359   "Test `org-forward-element' specifications."
1360   ;; 1. At EOB: should error.
1361   (org-test-with-temp-text "Some text\n"
1362     (goto-char (point-max))
1363     (should-error (org-forward-element)))
1364   ;; 2. Standard move: expected to ignore blank lines.
1365   (org-test-with-temp-text "First paragraph.\n\n\nSecond paragraph."
1366     (org-forward-element)
1367     (should (looking-at (regexp-quote "Second paragraph."))))
1368   ;; 3. Headline tests.
1369   (org-test-with-temp-text "
1370 * Head 1
1371 ** Head 1.1
1372 *** Head 1.1.1
1373 ** Head 1.2"
1374     ;; 3.1. At an headline beginning: move to next headline at the
1375     ;;      same level.
1376     (goto-line 3)
1377     (org-forward-element)
1378     (should (looking-at (regexp-quote "** Head 1.2")))
1379     ;; 3.2. At an headline beginning: move to parent headline if no
1380     ;;      headline at the same level.
1381     (goto-line 3)
1382     (org-forward-element)
1383     (should (looking-at (regexp-quote "** Head 1.2"))))
1384   ;; 4. Greater element tests.
1385   (org-test-with-temp-text
1386       "#+BEGIN_CENTER\nInside.\n#+END_CENTER\n\nOutside."
1387     ;; 4.1. At a greater element: expected to skip contents.
1388     (org-forward-element)
1389     (should (looking-at (regexp-quote "Outside.")))
1390     ;; 4.2. At the end of greater element contents: expected to skip
1391     ;;      to the end of the greater element.
1392     (goto-line 2)
1393     (org-forward-element)
1394     (should (looking-at (regexp-quote "Outside."))))
1395   ;; 5. List tests.
1396   (org-test-with-temp-text "
1397 - item1
1398
1399   - sub1
1400
1401   - sub2
1402
1403   - sub3
1404
1405   Inner paragraph.
1406
1407 - item2
1408
1409 Outside."
1410     ;; 5.1. At list top point: expected to move to the element after
1411     ;;      the list.
1412     (goto-line 2)
1413     (org-forward-element)
1414     (should (looking-at (regexp-quote "Outside.")))
1415     ;; 5.2. Special case: at the first line of a sub-list, but not at
1416     ;;      beginning of line, move to next item.
1417     (goto-line 2)
1418     (forward-char)
1419     (org-forward-element)
1420     (should (looking-at "- item2"))
1421     (goto-line 4)
1422     (forward-char)
1423     (org-forward-element)
1424     (should (looking-at "  - sub2"))
1425     ;; 5.3 At sub-list beginning: expected to move after the sub-list.
1426     (goto-line 4)
1427     (org-forward-element)
1428     (should (looking-at (regexp-quote "  Inner paragraph.")))
1429     ;; 5.4. At sub-list end: expected to move outside the sub-list.
1430     (goto-line 8)
1431     (org-forward-element)
1432     (should (looking-at (regexp-quote "  Inner paragraph.")))
1433     ;; 5.5. At an item: expected to move to next item, if any.
1434     (goto-line 6)
1435     (org-forward-element)
1436     (should (looking-at "  - sub3"))))
1437
1438 (ert-deftest test-org/backward-element ()
1439   "Test `org-backward-element' specifications."
1440   ;; 1. Should error at BOB.
1441   (org-test-with-temp-text "    \nParagraph."
1442     (should-error (org-backward-element)))
1443   ;; 2. Should move at BOB when called on the first element in buffer.
1444   (should
1445    (org-test-with-temp-text "\n#+TITLE: test"
1446      (progn (forward-line)
1447             (org-backward-element)
1448             (bobp))))
1449   ;; 3. Not at the beginning of an element: move at its beginning.
1450   (org-test-with-temp-text "Paragraph1.\n\nParagraph2."
1451     (goto-line 3)
1452     (end-of-line)
1453     (org-backward-element)
1454     (should (looking-at (regexp-quote "Paragraph2."))))
1455   ;; 4. Headline tests.
1456   (org-test-with-temp-text "
1457 * Head 1
1458 ** Head 1.1
1459 *** Head 1.1.1
1460 ** Head 1.2"
1461     ;; 4.1. At an headline beginning: move to previous headline at the
1462     ;;      same level.
1463     (goto-line 5)
1464     (org-backward-element)
1465     (should (looking-at (regexp-quote "** Head 1.1")))
1466     ;; 4.2. At an headline beginning: move to parent headline if no
1467     ;;      headline at the same level.
1468     (goto-line 3)
1469     (org-backward-element)
1470     (should (looking-at (regexp-quote "* Head 1")))
1471     ;; 4.3. At the first top-level headline: should error.
1472     (goto-line 2)
1473     (should-error (org-backward-element)))
1474   ;; 5. At beginning of first element inside a greater element:
1475   ;;    expected to move to greater element's beginning.
1476   (org-test-with-temp-text "Before.\n#+BEGIN_CENTER\nInside.\n#+END_CENTER"
1477     (goto-line 3)
1478     (org-backward-element)
1479     (should (looking-at "#\\+BEGIN_CENTER")))
1480   ;; 6. At the beginning of the first element in a section: should
1481   ;;    move back to headline, if any.
1482   (should
1483    (org-test-with-temp-text "#+TITLE: test\n* Headline\n\nParagraph"
1484      (progn (goto-char (point-max))
1485             (beginning-of-line)
1486             (org-backward-element)
1487             (org-at-heading-p))))
1488   ;; 7. List tests.
1489   (org-test-with-temp-text "
1490 - item1
1491
1492   - sub1
1493
1494   - sub2
1495
1496   - sub3
1497
1498   Inner paragraph.
1499
1500 - item2
1501
1502
1503 Outside."
1504     ;; 7.1. At beginning of sub-list: expected to move to the
1505     ;;      paragraph before it.
1506     (goto-line 4)
1507     (org-backward-element)
1508     (should (looking-at "item1"))
1509     ;; 7.2. At an item in a list: expected to move at previous item.
1510     (goto-line 8)
1511     (org-backward-element)
1512     (should (looking-at "  - sub2"))
1513     (goto-line 12)
1514     (org-backward-element)
1515     (should (looking-at "- item1"))
1516     ;; 7.3. At end of list/sub-list: expected to move to list/sub-list
1517     ;;      beginning.
1518     (goto-line 10)
1519     (org-backward-element)
1520     (should (looking-at "  - sub1"))
1521     (goto-line 15)
1522     (org-backward-element)
1523     (should (looking-at "- item1"))
1524     ;; 7.4. At blank-lines before list end: expected to move to top
1525     ;; item.
1526     (goto-line 14)
1527     (org-backward-element)
1528     (should (looking-at "- item1"))))
1529
1530 (ert-deftest test-org/up-element ()
1531   "Test `org-up-element' specifications."
1532   ;; 1. At BOB or with no surrounding element: should error.
1533   (org-test-with-temp-text "Paragraph."
1534     (should-error (org-up-element)))
1535   (org-test-with-temp-text "* Head1\n* Head2"
1536     (goto-line 2)
1537     (should-error (org-up-element)))
1538   (org-test-with-temp-text "Paragraph1.\n\nParagraph2."
1539     (goto-line 3)
1540     (should-error (org-up-element)))
1541   ;; 2. At an headline: move to parent headline.
1542   (org-test-with-temp-text "* Head1\n** Sub-Head1\n** Sub-Head2"
1543     (goto-line 3)
1544     (org-up-element)
1545     (should (looking-at "\\* Head1")))
1546   ;; 3. Inside a greater element: move to greater element beginning.
1547   (org-test-with-temp-text
1548       "Before.\n#+BEGIN_CENTER\nParagraph1\nParagraph2\n#+END_CENTER\n"
1549     (goto-line 3)
1550     (org-up-element)
1551     (should (looking-at "#\\+BEGIN_CENTER")))
1552   ;; 4. List tests.
1553   (org-test-with-temp-text "* Top
1554 - item1
1555
1556   - sub1
1557
1558   - sub2
1559
1560     Paragraph within sub2.
1561
1562 - item2"
1563     ;; 4.1. Within an item: move to the item beginning.
1564     (goto-line 8)
1565     (org-up-element)
1566     (should (looking-at "  - sub2"))
1567     ;; 4.2. At an item in a sub-list: move to parent item.
1568     (goto-line 4)
1569     (org-up-element)
1570     (should (looking-at "- item1"))
1571     ;; 4.3. At an item in top list: move to beginning of whole list.
1572     (goto-line 10)
1573     (org-up-element)
1574     (should (looking-at "- item1"))
1575     ;; 4.4. Special case.  At very top point: should move to parent of
1576     ;;      list.
1577     (goto-line 2)
1578     (org-up-element)
1579     (should (looking-at "\\* Top"))))
1580
1581 (ert-deftest test-org/down-element ()
1582   "Test `org-down-element' specifications."
1583   ;; Error when the element hasn't got a recursive type.
1584   (org-test-with-temp-text "Paragraph."
1585     (should-error (org-down-element)))
1586   ;; Error when the element has no contents
1587   (org-test-with-temp-text "* Headline"
1588     (should-error (org-down-element)))
1589   ;; When at a plain-list, move to first item.
1590   (org-test-with-temp-text "- Item 1\n  - Item 1.1\n  - Item 2.2"
1591     (goto-line 2)
1592     (org-down-element)
1593     (should (looking-at " - Item 1.1")))
1594   (org-test-with-temp-text "#+NAME: list\n- Item 1"
1595     (org-down-element)
1596     (should (looking-at " Item 1")))
1597   ;; When at a table, move to first row
1598   (org-test-with-temp-text "#+NAME: table\n| a | b |"
1599     (org-down-element)
1600     (should (looking-at " a | b |")))
1601   ;; Otherwise, move inside the greater element.
1602   (org-test-with-temp-text "#+BEGIN_CENTER\nParagraph.\n#+END_CENTER"
1603     (org-down-element)
1604     (should (looking-at "Paragraph"))))
1605
1606 (ert-deftest test-org/drag-element-backward ()
1607   "Test `org-drag-element-backward' specifications."
1608   ;; Standard test.
1609   (should
1610    (equal
1611     "#+key2: val2\n#+key1: val1\n#+key3: val3"
1612     (org-test-with-temp-text "#+key1: val1\n<point>#+key2: val2\n#+key3: val3"
1613       (org-drag-element-backward)
1614       (buffer-string))))
1615   (should
1616    (equal
1617     "#+BEGIN_CENTER\n#+B: 2\n#+A: 1\n#+END_CENTER"
1618     (org-test-with-temp-text
1619         "#+BEGIN_CENTER\n#+A: 1\n<point>#+B: 2\n#+END_CENTER"
1620       (org-drag-element-backward)
1621       (buffer-string))))
1622   ;; Preserve blank lines.
1623   (should
1624    (equal "Paragraph 2\n\n\nPara1\n\nPara3"
1625           (org-test-with-temp-text "Para1\n\n\n<point>Paragraph 2\n\nPara3"
1626             (org-drag-element-backward)
1627             (buffer-string))))
1628   ;; Preserve column.
1629   (should
1630    (org-test-with-temp-text "#+key1: v\n#+key<point>2: v\n#+key3: v"
1631      (org-drag-element-backward)
1632      (org-looking-at-p "2")))
1633   ;; Error when trying to move first element of buffer.
1634   (should-error
1635    (org-test-with-temp-text "Paragraph 1.\n\nParagraph 2."
1636      (org-drag-element-backward)))
1637   ;; Error when trying to swap nested elements.
1638   (should-error
1639    (org-test-with-temp-text "#+BEGIN_CENTER\nTest.\n#+END_CENTER"
1640      (forward-line)
1641      (org-drag-element-backward)))
1642   ;; Error when trying to swap an headline element and a non-headline
1643   ;; element.
1644   (should-error
1645    (org-test-with-temp-text "Test.\n* Head 1"
1646      (forward-line)
1647      (org-drag-element-backward)))
1648   ;; Preserve visibility of elements and their contents.
1649   (should
1650    (equal '((63 . 82) (26 . 48))
1651           (org-test-with-temp-text "
1652 #+BEGIN_CENTER
1653 Text.
1654 #+END_CENTER
1655 - item 1
1656   #+BEGIN_QUOTE
1657   Text.
1658   #+END_QUOTE"
1659             (while (search-forward "BEGIN_" nil t) (org-cycle))
1660             (search-backward "- item 1")
1661             (org-drag-element-backward)
1662             (mapcar (lambda (ov) (cons (overlay-start ov) (overlay-end ov)))
1663                     (overlays-in (point-min) (point-max)))))))
1664
1665 (ert-deftest test-org/drag-element-forward ()
1666   "Test `org-drag-element-forward' specifications."
1667   ;; 1. Error when trying to move first element of buffer.
1668   (org-test-with-temp-text "Paragraph 1.\n\nParagraph 2."
1669     (goto-line 3)
1670     (should-error (org-drag-element-forward)))
1671   ;; 2. Error when trying to swap nested elements.
1672   (org-test-with-temp-text "#+BEGIN_CENTER\nTest.\n#+END_CENTER"
1673     (forward-line)
1674     (should-error (org-drag-element-forward)))
1675   ;; 3. Error when trying to swap a non-headline element and an
1676   ;;    headline.
1677   (org-test-with-temp-text "Test.\n* Head 1"
1678     (should-error (org-drag-element-forward)))
1679   ;; 4. Otherwise, swap elements, preserving column and blank lines
1680   ;;    between elements.
1681   (org-test-with-temp-text "Paragraph 1\n\n\nPara2\n\nPara3"
1682     (search-forward "graph")
1683     (org-drag-element-forward)
1684     (should (equal (buffer-string) "Para2\n\n\nParagraph 1\n\nPara3"))
1685     (should (looking-at " 1")))
1686   ;; 5. Preserve visibility of elements and their contents.
1687   (org-test-with-temp-text "
1688 #+BEGIN_CENTER
1689 Text.
1690 #+END_CENTER
1691 - item 1
1692   #+BEGIN_QUOTE
1693   Text.
1694   #+END_QUOTE"
1695     (while (search-forward "BEGIN_" nil t) (org-cycle))
1696     (search-backward "#+BEGIN_CENTER")
1697     (org-drag-element-forward)
1698     (should
1699      (equal
1700       '((63 . 82) (26 . 48))
1701       (mapcar (lambda (ov) (cons (overlay-start ov) (overlay-end ov)))
1702               (overlays-in (point-min) (point-max)))))))
1703
1704
1705 \f
1706 ;;; Planning
1707
1708 (ert-deftest test-org/timestamp-has-time-p ()
1709   "Test `org-timestamp-has-time-p' specifications."
1710   ;; With time.
1711   (should
1712    (org-test-with-temp-text "<2012-03-29 Thu 16:40>"
1713      (org-timestamp-has-time-p (org-element-context))))
1714   ;; Without time.
1715   (should-not
1716    (org-test-with-temp-text "<2012-03-29 Thu>"
1717      (org-timestamp-has-time-p (org-element-context)))))
1718
1719 (ert-deftest test-org/timestamp-format ()
1720   "Test `org-timestamp-format' specifications."
1721   ;; Regular test.
1722   (should
1723    (equal
1724     "2012-03-29 16:40"
1725     (org-test-with-temp-text "<2012-03-29 Thu 16:40>"
1726       (org-timestamp-format (org-element-context) "%Y-%m-%d %R"))))
1727   ;; Range end.
1728   (should
1729    (equal
1730     "2012-03-29"
1731     (org-test-with-temp-text "[2011-07-14 Thu]--[2012-03-29 Thu]"
1732       (org-timestamp-format (org-element-context) "%Y-%m-%d" t)))))
1733
1734 (ert-deftest test-org/timestamp-split-range ()
1735   "Test `org-timestamp-split-range' specifications."
1736   ;; Extract range start (active).
1737   (should
1738    (equal '(2012 3 29)
1739           (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
1740             (let ((ts (org-timestamp-split-range (org-element-context))))
1741               (mapcar (lambda (p) (org-element-property p ts))
1742                       '(:year-end :month-end :day-end))))))
1743   ;; Extract range start (inactive)
1744   (should
1745    (equal '(2012 3 29)
1746           (org-test-with-temp-text "[2012-03-29 Thu]--[2012-03-30 Fri]"
1747             (let ((ts (org-timestamp-split-range (org-element-context))))
1748               (mapcar (lambda (p) (org-element-property p ts))
1749                       '(:year-end :month-end :day-end))))))
1750   ;; Extract range end (active).
1751   (should
1752    (equal '(2012 3 30)
1753           (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
1754             (let ((ts (org-timestamp-split-range
1755                        (org-element-context) t)))
1756               (mapcar (lambda (p) (org-element-property p ts))
1757                       '(:year-end :month-end :day-end))))))
1758   ;; Extract range end (inactive)
1759   (should
1760    (equal '(2012 3 30)
1761           (org-test-with-temp-text "[2012-03-29 Thu]--[2012-03-30 Fri]"
1762             (let ((ts (org-timestamp-split-range
1763                        (org-element-context) t)))
1764               (mapcar (lambda (p) (org-element-property p ts))
1765                       '(:year-end :month-end :day-end))))))
1766   ;; Return the timestamp if not a range.
1767   (should
1768    (org-test-with-temp-text "[2012-03-29 Thu]"
1769      (let* ((ts-orig (org-element-context))
1770             (ts-copy (org-timestamp-split-range ts-orig)))
1771        (eq ts-orig ts-copy))))
1772   (should
1773    (org-test-with-temp-text "<%%(org-float t 4 2)>"
1774      (let* ((ts-orig (org-element-context))
1775             (ts-copy (org-timestamp-split-range ts-orig)))
1776        (eq ts-orig ts-copy))))
1777   ;; Check that parent is the same when a range was split.
1778   (should
1779    (org-test-with-temp-text "[2012-03-29 Thu]--[2012-03-30 Fri]"
1780      (let* ((ts-orig (org-element-context))
1781             (ts-copy (org-timestamp-split-range ts-orig)))
1782        (eq (org-element-property :parent ts-orig)
1783            (org-element-property :parent ts-copy))))))
1784
1785 (ert-deftest test-org/timestamp-translate ()
1786   "Test `org-timestamp-translate' specifications."
1787   ;; Translate whole date range.
1788   (should
1789    (equal "<29>--<30>"
1790           (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
1791             (let ((org-display-custom-times t)
1792                   (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
1793               (org-timestamp-translate (org-element-context))))))
1794   ;; Translate date range start.
1795   (should
1796    (equal "<29>"
1797           (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
1798             (let ((org-display-custom-times t)
1799                   (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
1800               (org-timestamp-translate (org-element-context) 'start)))))
1801   ;; Translate date range end.
1802   (should
1803    (equal "<30>"
1804           (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
1805             (let ((org-display-custom-times t)
1806                   (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
1807               (org-timestamp-translate (org-element-context) 'end)))))
1808   ;; Translate time range.
1809   (should
1810    (equal "<08>--<16>"
1811           (org-test-with-temp-text "<2012-03-29 Thu 8:30-16:40>"
1812             (let ((org-display-custom-times t)
1813                   (org-time-stamp-custom-formats '("<%d>" . "<%H>")))
1814               (org-timestamp-translate (org-element-context))))))
1815   ;; Translate non-range timestamp.
1816   (should
1817    (equal "<29>"
1818           (org-test-with-temp-text "<2012-03-29 Thu>"
1819             (let ((org-display-custom-times t)
1820                   (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
1821               (org-timestamp-translate (org-element-context))))))
1822   ;; Do not change `diary' timestamps.
1823   (should
1824    (equal "<%%(org-float t 4 2)>"
1825           (org-test-with-temp-text "<%%(org-float t 4 2)>"
1826             (let ((org-display-custom-times t)
1827                   (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
1828               (org-timestamp-translate (org-element-context)))))))
1829
1830
1831 \f
1832 ;;; Radio Targets
1833
1834 (ert-deftest test-org/update-radio-target-regexp ()
1835   "Test `org-update-radio-target-regexp' specifications."
1836   ;; Properly update cache with no previous radio target regexp.
1837   (should
1838    (eq 'link
1839        (org-test-with-temp-text "radio\n\nParagraph\n\nradio"
1840          (save-excursion (goto-char (point-max)) (org-element-context))
1841          (insert "<<<")
1842          (search-forward "o")
1843          (insert ">>>")
1844          (org-update-radio-target-regexp)
1845          (goto-char (point-max))
1846          (org-element-type (org-element-context)))))
1847   ;; Properly update cache with previous radio target regexp.
1848   (should
1849    (eq 'link
1850        (org-test-with-temp-text "radio\n\nParagraph\n\nradio"
1851          (save-excursion (goto-char (point-max)) (org-element-context))
1852          (insert "<<<")
1853          (search-forward "o")
1854          (insert ">>>")
1855          (org-update-radio-target-regexp)
1856          (search-backward "r")
1857          (delete-char 5)
1858          (insert "new")
1859          (org-update-radio-target-regexp)
1860          (goto-char (point-max))
1861          (delete-region (line-beginning-position) (point))
1862          (insert "new")
1863          (org-element-type (org-element-context))))))
1864
1865
1866 \f
1867 ;;; Visibility
1868
1869 (ert-deftest test-org/flag-drawer ()
1870   "Test `org-flag-drawer' specifications."
1871   ;; Hide drawer.
1872   (should
1873    (org-test-with-temp-text ":DRAWER:\ncontents\n:END:"
1874      (org-flag-drawer t)
1875      (get-char-property (line-end-position) 'invisible)))
1876   ;; Show drawer.
1877   (should-not
1878    (org-test-with-temp-text ":DRAWER:\ncontents\n:END:"
1879      (org-flag-drawer t)
1880      (org-flag-drawer nil)
1881      (get-char-property (line-end-position) 'invisible)))
1882   ;; Test optional argument.
1883   (should
1884    (org-test-with-temp-text ":D1:\nc1\n:END:\n\n:D2:\nc2\n:END:"
1885      (let ((drawer (save-excursion (search-forward ":D2")
1886                                    (org-element-at-point))))
1887        (org-flag-drawer t drawer)
1888        (get-char-property (progn (search-forward ":D2") (line-end-position))
1889                           'invisible))))
1890   (should-not
1891    (org-test-with-temp-text ":D1:\nc1\n:END:\n\n:D2:\nc2\n:END:"
1892      (let ((drawer (save-excursion (search-forward ":D2")
1893                                    (org-element-at-point))))
1894        (org-flag-drawer t drawer)
1895        (get-char-property (line-end-position) 'invisible))))
1896   ;; Do not hide fake drawers.
1897   (should-not
1898    (org-test-with-temp-text "#+begin_example\n:D:\nc\n:END:\n#+end_example"
1899      (forward-line 1)
1900      (org-flag-drawer t)
1901      (get-char-property (line-end-position) 'invisible)))
1902   ;; Do not hide incomplete drawers.
1903   (should-not
1904    (org-test-with-temp-text ":D:\nparagraph"
1905      (forward-line 1)
1906      (org-flag-drawer t)
1907      (get-char-property (line-end-position) 'invisible)))
1908   ;; Do not hide drawers when called from final blank lines.
1909   (should-not
1910    (org-test-with-temp-text ":DRAWER:\nA\n:END:\n\n"
1911      (goto-char (point-max))
1912      (org-flag-drawer t)
1913      (goto-char (point-min))
1914      (get-char-property (line-end-position) 'invisible)))
1915   ;; Don't leave point in an invisible part of the buffer when hiding
1916   ;; a drawer away.
1917   (should-not
1918    (org-test-with-temp-text ":DRAWER:\ncontents\n:END:"
1919      (goto-char (point-max))
1920      (org-flag-drawer t)
1921      (get-char-property (point) 'invisible))))
1922
1923 (ert-deftest test-org/hide-block-toggle ()
1924   "Test `org-hide-block-toggle' specifications."
1925   ;; Error when not at a block.
1926   (should-error
1927    (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents"
1928      (org-hide-block-toggle 'off)
1929      (get-char-property (line-end-position) 'invisible)))
1930   ;; Hide block.
1931   (should
1932    (org-test-with-temp-text "#+BEGIN_CENTER\ncontents\n#+END_CENTER"
1933      (org-hide-block-toggle)
1934      (get-char-property (line-end-position) 'invisible)))
1935   (should
1936    (org-test-with-temp-text "#+BEGIN_EXAMPLE\ncontents\n#+END_EXAMPLE"
1937      (org-hide-block-toggle)
1938      (get-char-property (line-end-position) 'invisible)))
1939   ;; Show block unconditionally when optional argument is `off'.
1940   (should-not
1941    (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE"
1942      (org-hide-block-toggle)
1943      (org-hide-block-toggle 'off)
1944      (get-char-property (line-end-position) 'invisible)))
1945   (should-not
1946    (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE"
1947      (org-hide-block-toggle 'off)
1948      (get-char-property (line-end-position) 'invisible)))
1949   ;; Hide block unconditionally when optional argument is non-nil.
1950   (should
1951    (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE"
1952      (org-hide-block-toggle t)
1953      (get-char-property (line-end-position) 'invisible)))
1954   (should
1955    (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE"
1956      (org-hide-block-toggle)
1957      (org-hide-block-toggle t)
1958      (get-char-property (line-end-position) 'invisible)))
1959   ;; Do not hide block when called from final blank lines.
1960   (should-not
1961    (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE\n\n<point>"
1962      (org-hide-block-toggle)
1963      (goto-char (point-min))
1964      (get-char-property (line-end-position) 'invisible)))
1965   ;; Don't leave point in an invisible part of the buffer when hiding
1966   ;; a block away.
1967   (should-not
1968    (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n<point>#+END_QUOTE"
1969      (org-hide-block-toggle)
1970      (get-char-property (point) 'invisible))))
1971
1972 (ert-deftest test-org/hide-block-toggle-maybe ()
1973   "Test `org-hide-block-toggle-maybe' specifications."
1974   (should
1975    (org-test-with-temp-text "#+BEGIN: dynamic\nContents\n#+END:"
1976      (org-hide-block-toggle-maybe)))
1977   (should-not
1978    (org-test-with-temp-text "Paragraph" (org-hide-block-toggle-maybe))))
1979
1980
1981 (provide 'test-org)
1982
1983 ;;; test-org.el ends here