12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831 |
- ;;; test-org.el --- tests for org.el
- ;; Copyright (c) David Maus
- ;; Authors: David Maus
- ;; This file is not part of GNU Emacs.
- ;; This program is free software; you can redistribute it and/or modify
- ;; it under the terms of the GNU General Public License as published by
- ;; the Free Software Foundation, either version 3 of the License, or
- ;; (at your option) any later version.
- ;; This program is distributed in the hope that it will be useful,
- ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
- ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ;; GNU General Public License for more details.
- ;; You should have received a copy of the GNU General Public License
- ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
- ;;; Comments:
- ;; Template test file for Org-mode tests
- ;;; Code:
- ;;; Comments
- (ert-deftest test-org/toggle-comment ()
- "Test `org-toggle-comment' specifications."
- ;; Simple headline.
- (should
- (equal "* Test"
- (org-test-with-temp-text "* COMMENT Test"
- (org-toggle-comment)
- (buffer-string))))
- (should
- (equal "* COMMENT Test"
- (org-test-with-temp-text "* Test"
- (org-toggle-comment)
- (buffer-string))))
- ;; Headline with a regular keyword.
- (should
- (equal "* TODO Test"
- (org-test-with-temp-text "* TODO COMMENT Test"
- (org-toggle-comment)
- (buffer-string))))
- (should
- (equal "* TODO COMMENT Test"
- (org-test-with-temp-text "* TODO Test"
- (org-toggle-comment)
- (buffer-string))))
- ;; Empty headline.
- (should
- (equal "* "
- (org-test-with-temp-text "* COMMENT"
- (org-toggle-comment)
- (buffer-string))))
- (should
- (equal "* COMMENT"
- (org-test-with-temp-text "* "
- (org-toggle-comment)
- (buffer-string))))
- ;; Headline with a single keyword.
- (should
- (equal "* TODO "
- (org-test-with-temp-text "* TODO COMMENT"
- (org-toggle-comment)
- (buffer-string))))
- (should
- (equal "* TODO COMMENT"
- (org-test-with-temp-text "* TODO"
- (org-toggle-comment)
- (buffer-string))))
- ;; Headline with a keyword, a priority cookie and contents.
- (should
- (equal "* TODO [#A] Headline"
- (org-test-with-temp-text "* TODO [#A] COMMENT Headline"
- (org-toggle-comment)
- (buffer-string))))
- (should
- (equal "* TODO [#A] COMMENT Headline"
- (org-test-with-temp-text "* TODO [#A] Headline"
- (org-toggle-comment)
- (buffer-string)))))
- (ert-deftest test-org/comment-dwim ()
- "Test `comment-dwim' behaviour in an Org buffer."
- ;; No region selected, no comment on current line and line not
- ;; empty: insert comment on line above.
- (should
- (equal "# \nComment"
- (org-test-with-temp-text "Comment"
- (progn (call-interactively 'comment-dwim)
- (buffer-string)))))
- ;; No region selected, no comment on current line and line empty:
- ;; insert comment on this line.
- (should
- (equal "# \nParagraph"
- (org-test-with-temp-text "\nParagraph"
- (progn (call-interactively 'comment-dwim)
- (buffer-string)))))
- ;; No region selected, and a comment on this line: indent it.
- (should
- (equal "* Headline\n # Comment"
- (org-test-with-temp-text "* Headline\n# Comment"
- (progn (forward-line)
- (let ((org-adapt-indentation t))
- (call-interactively 'comment-dwim))
- (buffer-string)))))
- ;; Also recognize single # at column 0 as comments.
- (should
- (equal "# Comment"
- (org-test-with-temp-text "# Comment"
- (progn (forward-line)
- (call-interactively 'comment-dwim)
- (buffer-string)))))
- ;; Region selected and only comments and blank lines within it:
- ;; un-comment all commented lines.
- (should
- (equal "Comment 1\n\nComment 2"
- (org-test-with-temp-text "# Comment 1\n\n# Comment 2"
- (progn
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (call-interactively 'comment-dwim)
- (buffer-string)))))
- ;; Region selected without comments: comment all lines if
- ;; `comment-empty-lines' is non-nil, only non-blank lines otherwise.
- (should
- (equal "# Comment 1\n\n# Comment 2"
- (org-test-with-temp-text "Comment 1\n\nComment 2"
- (progn
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (let ((comment-empty-lines nil))
- (call-interactively 'comment-dwim))
- (buffer-string)))))
- (should
- (equal "# Comment 1\n# \n# Comment 2"
- (org-test-with-temp-text "Comment 1\n\nComment 2"
- (progn
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (let ((comment-empty-lines t))
- (call-interactively 'comment-dwim))
- (buffer-string)))))
- ;; In front of a keyword without region, insert a new comment.
- (should
- (equal "# \n#+KEYWORD: value"
- (org-test-with-temp-text "#+KEYWORD: value"
- (progn (call-interactively 'comment-dwim)
- (buffer-string)))))
- ;; In a source block, use appropriate syntax.
- (should
- (equal " ;; "
- (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n\n#+END_SRC"
- (forward-line)
- (let ((org-edit-src-content-indentation 2))
- (call-interactively 'comment-dwim))
- (buffer-substring-no-properties (line-beginning-position) (point)))))
- (should
- (equal "#+BEGIN_SRC emacs-lisp\n ;; a\n ;; b\n#+END_SRC"
- (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\na\nb\n#+END_SRC"
- (forward-line)
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (forward-line 2)
- (let ((org-edit-src-content-indentation 2))
- (call-interactively 'comment-dwim))
- (buffer-string)))))
- ;;; Date and time analysis
- (ert-deftest test-org/org-read-date ()
- "Test `org-read-date' specifications."
- ;; Parse ISO date with abbreviated year and month.
- (should (equal "2012-03-29 16:40"
- (let ((org-time-was-given t))
- (org-read-date t nil "12-3-29 16:40"))))
- ;; Parse Europeans dates.
- (should (equal "2012-03-29 16:40"
- (let ((org-time-was-given t))
- (org-read-date t nil "29.03.2012 16:40"))))
- ;; Parse Europeans dates without year.
- (should (string-match "2[0-9]\\{3\\}-03-29 16:40"
- (let ((org-time-was-given t))
- (org-read-date t nil "29.03. 16:40")))))
- (ert-deftest test-org/org-parse-time-string ()
- "Test `org-parse-time-string'."
- (should (equal (org-parse-time-string "2012-03-29 16:40")
- '(0 40 16 29 3 2012 nil nil nil)))
- (should (equal (org-parse-time-string "[2012-03-29 16:40]")
- '(0 40 16 29 3 2012 nil nil nil)))
- (should (equal (org-parse-time-string "<2012-03-29 16:40>")
- '(0 40 16 29 3 2012 nil nil nil)))
- (should (equal (org-parse-time-string "<2012-03-29>")
- '(0 0 0 29 3 2012 nil nil nil)))
- (should (equal (org-parse-time-string "<2012-03-29>" t)
- '(0 nil nil 29 3 2012 nil nil nil))))
- ;;; Drawers
- (ert-deftest test-org/insert-property-drawer ()
- "Test `org-insert-property-drawer' specifications."
- ;; Error before first headline.
- (should-error (org-test-with-temp-text "" (org-insert-property-drawer)))
- ;; Insert drawer right after headline if there is no planning line,
- ;; or after it otherwise.
- (should
- (equal "* H\n:PROPERTIES:\n:END:\nParagraph"
- (org-test-with-temp-text "* H\nParagraph<point>"
- (let ((org-adapt-indentation nil)) (org-insert-property-drawer))
- (buffer-string))))
- (should
- (equal "* H\nDEADLINE: <2014-03-04 tue.>\n:PROPERTIES:\n:END:\nParagraph"
- (org-test-with-temp-text
- "* H\nDEADLINE: <2014-03-04 tue.>\nParagraph<point>"
- (let ((org-adapt-indentation nil)) (org-insert-property-drawer))
- (buffer-string))))
- ;; Indent inserted drawer.
- (should
- (equal "* H\n :PROPERTIES:\n :END:\nParagraph"
- (org-test-with-temp-text "* H\nParagraph<point>"
- (let ((org-adapt-indentation t)) (org-insert-property-drawer))
- (buffer-string))))
- ;; Handle insertion at eob.
- (should
- (equal "* H\n:PROPERTIES:\n:END:\n"
- (org-test-with-temp-text "* H"
- (let ((org-adapt-indentation nil)) (org-insert-property-drawer))
- (buffer-string))))
- ;; Skip inlinetasks before point.
- (when (featurep 'org-inlinetask)
- (should
- (equal "* H\n:PROPERTIES:\n:END:\n*************** I\n*************** END\nP"
- (org-test-with-temp-text
- "* H\n*************** I\n*************** END\nP<point>"
- (let ((org-adapt-indentation nil)
- (org-inlinetask-min-level 15))
- (org-insert-property-drawer))
- (buffer-string)))))
- ;; Correctly set drawer in an inlinetask.
- (when (featurep 'org-inlinetask)
- (should
- (equal "* H\n*************** I\n:PROPERTIES:\n:END:\nP\n*************** END"
- (org-test-with-temp-text
- "* H\n*************** I\nP<point>\n*************** END"
- (let ((org-adapt-indentation nil)
- (org-inlinetask-min-level 15))
- (org-insert-property-drawer))
- (buffer-string))))))
- ;;; Filling
- (ert-deftest test-org/fill-paragraph ()
- "Test `org-fill-paragraph' specifications."
- ;; At an Org table, align it.
- (should
- (equal "| a |\n"
- (org-test-with-temp-text "|a|"
- (org-fill-paragraph)
- (buffer-string))))
- (should
- (equal "#+name: table\n| a |\n"
- (org-test-with-temp-text "#+name: table\n| a |"
- (org-fill-paragraph)
- (buffer-string))))
- ;; At a paragraph, preserve line breaks.
- (org-test-with-temp-text "some \\\\\nlong\ntext"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (should (equal (buffer-string) "some \\\\\nlong text"))))
- ;; Correctly fill a paragraph when point is at its very end.
- (should
- (equal "A B"
- (org-test-with-temp-text "A\nB"
- (let ((fill-column 20))
- (goto-char (point-max))
- (org-fill-paragraph)
- (buffer-string)))))
- ;; Correctly fill the last paragraph of a greater element.
- (should
- (equal "#+BEGIN_CENTER\n- 012345\n 789\n#+END_CENTER"
- (org-test-with-temp-text "#+BEGIN_CENTER\n- 012345 789\n#+END_CENTER"
- (let ((fill-column 8))
- (forward-line)
- (end-of-line)
- (org-fill-paragraph)
- (buffer-string)))))
- ;; Correctly fill an element in a narrowed buffer.
- (should
- (equal "01234\n6"
- (org-test-with-temp-text "01234 6789"
- (let ((fill-column 5))
- (narrow-to-region 1 8)
- (org-fill-paragraph)
- (buffer-string)))))
- ;; Handle `adaptive-fill-regexp' in paragraphs.
- (should
- (equal "> a b"
- (org-test-with-temp-text "> a\n> b"
- (let ((fill-column 5)
- (adaptive-fill-regexp "[ \t]*>+[ \t]*"))
- (org-fill-paragraph)
- (buffer-string)))))
- ;; Special case: Fill first paragraph when point is at an item or
- ;; a plain-list or a footnote reference.
- (should
- (equal "- A B"
- (org-test-with-temp-text "- A\n B"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (buffer-string)))))
- (should
- (equal "[fn:1] A B"
- (org-test-with-temp-text "[fn:1] A\nB"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (buffer-string)))))
- (org-test-with-temp-text "#+BEGIN_VERSE\nSome \\\\\nlong\ntext\n#+END_VERSE"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (should (equal (buffer-string)
- "#+BEGIN_VERSE\nSome \\\\\nlong\ntext\n#+END_VERSE"))))
- ;; Fill contents of `comment-block' elements.
- (should
- (equal
- (org-test-with-temp-text "#+BEGIN_COMMENT\nSome\ntext\n#+END_COMMENT"
- (let ((fill-column 20))
- (forward-line)
- (org-fill-paragraph)
- (buffer-string)))
- "#+BEGIN_COMMENT\nSome text\n#+END_COMMENT"))
- ;; Fill `comment' elements.
- (should
- (equal " # A B"
- (org-test-with-temp-text " # A\n # B"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (buffer-string)))))
- ;; Do not mix consecutive comments when filling one of them.
- (should
- (equal "# A B\n\n# C"
- (org-test-with-temp-text "# A\n# B\n\n# C"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (buffer-string)))))
- ;; Use commented empty lines as separators when filling comments.
- (should
- (equal "# A B\n#\n# C"
- (org-test-with-temp-text "# A\n# B\n#\n# C"
- (let ((fill-column 20))
- (org-fill-paragraph)
- (buffer-string)))))
- ;; Handle `adaptive-fill-regexp' in comments.
- (should
- (equal "# > a b"
- (org-test-with-temp-text "# > a\n# > b"
- (let ((fill-column 20)
- (adaptive-fill-regexp "[ \t]*>+[ \t]*"))
- (org-fill-paragraph)
- (buffer-string)))))
- ;; Do nothing at affiliated keywords.
- (org-test-with-temp-text "#+NAME: para\nSome\ntext."
- (let ((fill-column 20))
- (org-fill-paragraph)
- (should (equal (buffer-string) "#+NAME: para\nSome\ntext."))))
- ;; Do not move point after table when filling a table.
- (should-not
- (org-test-with-temp-text "| a | b |\n| c | d |\n"
- (forward-char)
- (org-fill-paragraph)
- (eobp))))
- (ert-deftest test-org/auto-fill-function ()
- "Test auto-filling features."
- ;; Auto fill paragraph.
- (should
- (equal "12345\n7890"
- (org-test-with-temp-text "12345 7890"
- (let ((fill-column 5))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- ;; Auto fill first paragraph in an item.
- (should
- (equal "- 12345\n 7890"
- (org-test-with-temp-text "- 12345 7890"
- (let ((fill-column 7))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- ;; Auto fill paragraph when `adaptive-fill-regexp' matches.
- (should
- (equal "> 12345\n 7890"
- (org-test-with-temp-text "> 12345 7890"
- (let ((fill-column 10)
- (adaptive-fill-regexp "[ \t]*>+[ \t]*")
- (adaptive-fill-first-line-regexp "\\`[ ]*\\'"))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- (should
- (equal "> 12345\n> 12345\n> 7890"
- (org-test-with-temp-text "> 12345\n> 12345 7890"
- (let ((fill-column 10)
- (adaptive-fill-regexp "[ \t]*>+[ \t]*"))
- (goto-char (point-max))
- (org-auto-fill-function)
- (buffer-string)))))
- (should-not
- (equal " 12345\n *12345\n *12345"
- (org-test-with-temp-text " 12345\n *12345 12345"
- (let ((fill-column 10)
- (adaptive-fill-regexp "[ \t]*>+[ \t]*"))
- (goto-char (point-max))
- (org-auto-fill-function)
- (buffer-string)))))
- ;; Auto fill comments.
- (should
- (equal " # 12345\n # 7890"
- (org-test-with-temp-text " # 12345 7890"
- (let ((fill-column 10))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- ;; A hash within a line isn't a comment.
- (should-not
- (equal "12345 # 7890\n# 1"
- (org-test-with-temp-text "12345 # 7890 1"
- (let ((fill-column 12))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- ;; Correctly interpret empty prefix.
- (should-not
- (equal "# a\n# b\nRegular\n# paragraph"
- (org-test-with-temp-text "# a\n# b\nRegular paragraph"
- (let ((fill-column 12))
- (end-of-line 3)
- (org-auto-fill-function)
- (buffer-string)))))
- ;; Comment block: auto fill contents.
- (should
- (equal "#+BEGIN_COMMENT\n12345\n7890\n#+END_COMMENT"
- (org-test-with-temp-text "#+BEGIN_COMMENT\n12345 7890\n#+END_COMMENT"
- (let ((fill-column 5))
- (forward-line)
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- (should
- (equal "#+BEGIN_COMMENT\n12345\n7890\n#+END_COMMENT"
- (org-test-with-temp-text "#+BEGIN_COMMENT\n12345 7890\n#+END_COMMENT"
- (let ((fill-column 5))
- (forward-line)
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- ;; Do not fill if a new item could be created.
- (should-not
- (equal "12345\n- 90"
- (org-test-with-temp-text "12345 - 90"
- (let ((fill-column 5))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- ;; Do not fill if a line break could be introduced.
- (should-not
- (equal "123\\\\\n7890"
- (org-test-with-temp-text "123\\\\ 7890"
- (let ((fill-column 6))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string)))))
- ;; Do not fill affiliated keywords.
- (should-not
- (equal "#+ATTR_LATEX: ABC\nDEFGHIJKL"
- (org-test-with-temp-text "#+ATTR_LATEX: ABC DEFGHIJKL"
- (let ((fill-column 20))
- (end-of-line)
- (org-auto-fill-function)
- (buffer-string))))))
- ;;; Indentation
- (ert-deftest test-org/indent-line ()
- "Test `org-indent-line' specifications."
- ;; Do not indent footnote definitions or headlines.
- (should
- (zerop
- (org-test-with-temp-text "* H"
- (org-indent-line)
- (org-get-indentation))))
- (should
- (zerop
- (org-test-with-temp-text "[fn:1] fn"
- (let ((org-adapt-indentation t)) (org-indent-line))
- (org-get-indentation))))
- ;; Do not indent before first headline.
- (should
- (zerop
- (org-test-with-temp-text ""
- (org-indent-line)
- (org-get-indentation))))
- ;; Indent according to headline level otherwise, unless
- ;; `org-adapt-indentation' is nil.
- (should
- (= 2
- (org-test-with-temp-text "* H\nA"
- (forward-line)
- (let ((org-adapt-indentation t)) (org-indent-line))
- (org-get-indentation))))
- (should
- (= 2
- (org-test-with-temp-text "* H\n\nA"
- (forward-line)
- (let ((org-adapt-indentation t)) (org-indent-line))
- (org-get-indentation))))
- (should
- (zerop
- (org-test-with-temp-text "* H\nA"
- (forward-line)
- (let ((org-adapt-indentation nil)) (org-indent-line))
- (org-get-indentation))))
- ;; Indenting preserves point position.
- (should
- (org-test-with-temp-text "* H\nAB"
- (forward-line)
- (forward-char)
- (let ((org-adapt-indentation t)) (org-indent-line))
- (looking-at "B")))
- ;; Do not change indentation at an item.
- (should
- (= 1
- (org-test-with-temp-text "* H\n - A"
- (forward-line)
- (let ((org-adapt-indentation t)) (org-indent-line))
- (org-get-indentation))))
- ;; On blank lines at the end of a list, indent like last element
- ;; within it if the line is still in the list. Otherwise, indent
- ;; like the whole list.
- (should
- (= 4
- (org-test-with-temp-text "* H\n- A\n - AA\n"
- (goto-char (point-max))
- (let ((org-adapt-indentation t)) (org-indent-line))
- (org-get-indentation))))
- (should
- (zerop
- (org-test-with-temp-text "* H\n- A\n - AA\n\n\n\n"
- (goto-char (point-max))
- (let ((org-adapt-indentation t)) (org-indent-line))
- (org-get-indentation))))
- ;; Likewise, on a blank line at the end of a footnote definition,
- ;; indent at column 0 if line belongs to the definition. Otherwise,
- ;; indent like the definition itself.
- (should
- (zerop
- (org-test-with-temp-text "* H\n[fn:1] Definition\n"
- (goto-char (point-max))
- (let ((org-adapt-indentation t)) (org-indent-line))
- (org-get-indentation))))
- (should
- (zerop
- (org-test-with-temp-text "* H\n[fn:1] Definition\n\n\n\n"
- (goto-char (point-max))
- (let ((org-adapt-indentation t)) (org-indent-line))
- (org-get-indentation))))
- ;; After the end of the contents of a greater element, indent like
- ;; the beginning of the element.
- (should
- (= 1
- (org-test-with-temp-text " #+BEGIN_CENTER\n Contents\n#+END_CENTER"
- (forward-line 2)
- (org-indent-line)
- (org-get-indentation))))
- ;; At the first line of an element, indent like previous element's
- ;; first line, ignoring footnotes definitions and inline tasks, or
- ;; according to parent.
- (should
- (= 2
- (org-test-with-temp-text "A\n\n B\n\nC"
- (goto-char (point-max))
- (org-indent-line)
- (org-get-indentation))))
- (should
- (= 1
- (org-test-with-temp-text " A\n\n[fn:1] B\n\n\nC"
- (goto-char (point-max))
- (org-indent-line)
- (org-get-indentation))))
- (should
- (= 1
- (org-test-with-temp-text " #+BEGIN_CENTER\n Contents\n#+END_CENTER"
- (forward-line 1)
- (org-indent-line)
- (org-get-indentation))))
- ;; Within code part of a source block, use language major mode if
- ;; `org-src-tab-acts-natively' is non-nil. Otherwise, indent
- ;; according to line above.
- (should
- (= 6
- (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
- (forward-line 2)
- (let ((org-src-tab-acts-natively t)
- (org-edit-src-content-indentation 0))
- (org-indent-line))
- (org-get-indentation))))
- (should
- (= 1
- (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
- (forward-line 2)
- (let ((org-src-tab-acts-natively nil)
- (org-edit-src-content-indentation 0))
- (org-indent-line))
- (org-get-indentation))))
- ;; Otherwise, indent like the first non-blank line above.
- (should
- (zerop
- (org-test-with-temp-text "#+BEGIN_CENTER\nline1\n\n line2\n#+END_CENTER"
- (forward-line 3)
- (org-indent-line)
- (org-get-indentation))))
- ;; Align node properties according to `org-property-format'. Handle
- ;; nicely empty values.
- (should
- (equal "* H\n:PROPERTIES:\n:key: value\n:END:"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n<point>:key: value\n:END:"
- (let ((org-property-format "%-10s %s")) (org-indent-line))
- (buffer-string))))
- (should
- (equal "* H\n:PROPERTIES:\n:key:\n:END:"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n<point>:key:\n:END:"
- (let ((org-property-format "%-10s %s")) (org-indent-line))
- (buffer-string)))))
- (ert-deftest test-org/indent-region ()
- "Test `org-indent-region' specifications."
- ;; Indent paragraph.
- (should
- (equal "A\nB\nC"
- (org-test-with-temp-text " A\nB\n C"
- (org-indent-region (point-min) (point-max))
- (buffer-string))))
- ;; Indent greater elements along with their contents.
- (should
- (equal "#+BEGIN_CENTER\nA\nB\n#+END_CENTER"
- (org-test-with-temp-text "#+BEGIN_CENTER\n A\n B\n#+END_CENTER"
- (org-indent-region (point-min) (point-max))
- (buffer-string))))
- ;; Ignore contents of verse blocks and example blocks.
- (should
- (equal "#+BEGIN_VERSE\n A\n B\n#+END_VERSE"
- (org-test-with-temp-text "#+BEGIN_VERSE\n A\n B\n#+END_VERSE"
- (org-indent-region (point-min) (point-max))
- (buffer-string))))
- (should
- (equal "#+BEGIN_EXAMPLE\n A\n B\n#+END_EXAMPLE"
- (org-test-with-temp-text "#+BEGIN_EXAMPLE\n A\n B\n#+END_EXAMPLE"
- (org-indent-region (point-min) (point-max))
- (buffer-string))))
- ;; Indent according to mode if `org-src-tab-acts-natively' is
- ;; non-nil. Otherwise, do not indent code at all.
- (should
- (equal "#+BEGIN_SRC emacs-lisp\n(and A\n B)\n#+END_SRC"
- (org-test-with-temp-text
- "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
- (let ((org-src-tab-acts-natively t)
- (org-edit-src-content-indentation 0))
- (org-indent-region (point-min) (point-max)))
- (buffer-string))))
- (should
- (equal "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
- (org-test-with-temp-text
- "#+BEGIN_SRC emacs-lisp\n (and A\nB)\n#+END_SRC"
- (let ((org-src-tab-acts-natively nil)
- (org-edit-src-content-indentation 0))
- (org-indent-region (point-min) (point-max)))
- (buffer-string))))
- ;; Align node properties according to `org-property-format'. Handle
- ;; nicely empty values.
- (should
- (equal "* H\n:PROPERTIES:\n:key: value\n:END:"
- (org-test-with-temp-text "* H\n<point>:PROPERTIES:\n:key: value\n:END:"
- (let ((org-property-format "%-10s %s")
- (org-adapt-indentation nil))
- (org-indent-region (point) (point-max)))
- (buffer-string))))
- (should
- (equal "* H\n:PROPERTIES:\n:key:\n:END:"
- (org-test-with-temp-text "* H\n<point>:PROPERTIES:\n:key:\n:END:"
- (let ((org-property-format "%-10s %s")
- (org-adapt-indentation nil))
- (org-indent-region (point) (point-max)))
- (buffer-string))))
- ;; Indent plain lists.
- (should
- (equal "- A\n B\n - C\n\n D"
- (org-test-with-temp-text "- A\n B\n - C\n\n D"
- (org-indent-region (point-min) (point-max))
- (buffer-string))))
- (should
- (equal "- A\n\n- B"
- (org-test-with-temp-text " - A\n\n - B"
- (org-indent-region (point-min) (point-max))
- (buffer-string))))
- ;; Indent footnote definitions.
- (should
- (equal "[fn:1] Definition\n\nDefinition"
- (org-test-with-temp-text "[fn:1] Definition\n\n Definition"
- (org-indent-region (point-min) (point-max))
- (buffer-string))))
- ;; Special case: Start indenting on a blank line.
- (should
- (equal "\nParagraph"
- (org-test-with-temp-text "\n Paragraph"
- (org-indent-region (point-min) (point-max))
- (buffer-string)))))
- ;;; 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 item insert an item, in this case above.
- (should
- (org-test-with-temp-text ":MYDRAWER:\n- a\n:END:"
- (forward-line)
- (org-meta-return)
- (beginning-of-line)
- (looking-at "- $"))))
- (ert-deftest test-org/insert-heading ()
- "Test `org-insert-heading' specifications."
- ;; FIXME: Test coverage is incomplete yet.
- ;;
- ;; In an empty buffer, insert a new headline.
- (should
- (equal "* "
- (org-test-with-temp-text ""
- (org-insert-heading)
- (buffer-string))))
- ;; At the beginning of a line, turn it into a headline
- (should
- (equal "* P"
- (org-test-with-temp-text "<point>P"
- (org-insert-heading)
- (buffer-string))))
- ;; In the middle of a line, split the line if allowed, otherwise,
- ;; insert the headline at its end.
- (should
- (equal "Para\n* graph"
- (org-test-with-temp-text "Para<point>graph"
- (let ((org-M-RET-may-split-line '((default . t))))
- (org-insert-heading))
- (buffer-string))))
- (should
- (equal "Paragraph\n* "
- (org-test-with-temp-text "Para<point>graph"
- (let ((org-M-RET-may-split-line '((default . nil))))
- (org-insert-heading))
- (buffer-string))))
- ;; Corner case: correctly insert a headline after an empty one.
- (should
- (equal "* \n* "
- (org-test-with-temp-text "* <point>"
- (org-insert-heading)
- (buffer-string)))))
- (ert-deftest test-org/insert-todo-heading-respect-content ()
- "Test `org-insert-todo-heading-respect-content' specifications."
- ;; Create a TODO heading.
- (should
- (org-test-with-temp-text "* H1\n Body"
- (org-insert-todo-heading-respect-content)
- (nth 2 (org-heading-components))))
- ;; Add headline at the end of the first subtree
- (should
- (org-test-with-temp-text "* H1\nH1Body\n** H2\nH2Body"
- (search-forward "H1Body")
- (org-insert-todo-heading-respect-content)
- (and (eobp) (org-at-heading-p))))
- ;; In a list, do not create a new item.
- (should
- (org-test-with-temp-text "* H\n- an item\n- another one"
- (search-forward "an ")
- (org-insert-todo-heading-respect-content)
- (and (eobp) (org-at-heading-p)))))
- ;;; Fixed-Width Areas
- (ert-deftest test-org/toggle-fixed-width ()
- "Test `org-toggle-fixed-width' specifications."
- ;; No region: Toggle on fixed-width marker in paragraphs.
- (should
- (equal ": A"
- (org-test-with-temp-text "A"
- (org-toggle-fixed-width)
- (buffer-string))))
- ;; No region: Toggle off fixed-width markers in fixed-width areas.
- (should
- (equal "A"
- (org-test-with-temp-text ": A"
- (org-toggle-fixed-width)
- (buffer-string))))
- ;; No region: Toggle on marker in blank lines after elements or just
- ;; after a headline.
- (should
- (equal "* H\n: "
- (org-test-with-temp-text "* H\n"
- (forward-line)
- (org-toggle-fixed-width)
- (buffer-string))))
- (should
- (equal "#+BEGIN_EXAMPLE\nContents\n#+END_EXAMPLE\n: "
- (org-test-with-temp-text "#+BEGIN_EXAMPLE\nContents\n#+END_EXAMPLE\n"
- (goto-char (point-max))
- (org-toggle-fixed-width)
- (buffer-string))))
- ;; No region: Toggle on marker in front of one line elements (e.g.,
- ;; headlines, clocks)
- (should
- (equal ": * Headline"
- (org-test-with-temp-text "* Headline"
- (org-toggle-fixed-width)
- (buffer-string))))
- (should
- (equal ": #+KEYWORD: value"
- (org-test-with-temp-text "#+KEYWORD: value"
- (org-toggle-fixed-width)
- (buffer-string))))
- ;; No region: error in other situations.
- (should-error
- (org-test-with-temp-text "#+BEGIN_EXAMPLE\n: A\n#+END_EXAMPLE"
- (forward-line)
- (org-toggle-fixed-width)
- (buffer-string)))
- ;; No region: Indentation is preserved.
- (should
- (equal "- A\n : B"
- (org-test-with-temp-text "- A\n B"
- (forward-line)
- (org-toggle-fixed-width)
- (buffer-string))))
- ;; Region: If it contains only fixed-width elements and blank lines,
- ;; toggle off fixed-width markup.
- (should
- (equal "A\n\nB"
- (org-test-with-temp-text ": A\n\n: B"
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (org-toggle-fixed-width)
- (buffer-string))))
- ;; Region: If it contains anything else, toggle on fixed-width but
- ;; not on fixed-width areas.
- (should
- (equal ": A\n: \n: B\n: \n: C"
- (org-test-with-temp-text "A\n\n: B\n\nC"
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (org-toggle-fixed-width)
- (buffer-string))))
- ;; Region: Ignore blank lines at its end, unless it contains only
- ;; such lines.
- (should
- (equal ": A\n\n"
- (org-test-with-temp-text "A\n\n"
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (org-toggle-fixed-width)
- (buffer-string))))
- (should
- (equal ": \n: \n"
- (org-test-with-temp-text "\n\n"
- (transient-mark-mode 1)
- (push-mark (point) t t)
- (goto-char (point-max))
- (org-toggle-fixed-width)
- (buffer-string)))))
- ;;; Headline
- (ert-deftest test-org/in-commented-heading-p ()
- "Test `org-in-commented-heading-p' specifications."
- ;; Commented headline.
- (should
- (org-test-with-temp-text "* COMMENT Headline\nBody"
- (goto-char (point-max))
- (org-in-commented-heading-p)))
- ;; Commented ancestor.
- (should
- (org-test-with-temp-text "* COMMENT Headline\n** Level 2\nBody"
- (goto-char (point-max))
- (org-in-commented-heading-p)))
- ;; Comment keyword is case-sensitive.
- (should-not
- (org-test-with-temp-text "* Comment Headline\nBody"
- (goto-char (point-max))
- (org-in-commented-heading-p)))
- ;; Keyword is standalone.
- (should-not
- (org-test-with-temp-text "* COMMENTHeadline\nBody"
- (goto-char (point-max))
- (org-in-commented-heading-p)))
- ;; Optional argument.
- (should-not
- (org-test-with-temp-text "* COMMENT Headline\n** Level 2\nBody"
- (goto-char (point-max))
- (org-in-commented-heading-p t))))
- ;;; Keywords
- (ert-deftest test-org/set-regexps-and-options ()
- "Test `org-set-regexps-and-options' specifications."
- ;; TAGS keyword.
- (should
- (equal '(("A" . ?a) ("B") ("C"))
- (org-test-with-temp-text "#+TAGS: A(a) B C"
- (org-mode-restart)
- org-tag-alist)))
- (should
- (equal '(("A") (:newline) ("B"))
- (org-test-with-temp-text "#+TAGS: A\n#+TAGS: B"
- (org-mode-restart)
- org-tag-alist)))
- (should
- (equal '((:startgroup) ("A") ("B") (:endgroup) ("C"))
- (org-test-with-temp-text "#+TAGS: { A B } C"
- (org-mode-restart)
- org-tag-alist)))
- (should
- (equal '((:startgroup) ("A") (:grouptags) ("B") ("C") (:endgroup))
- (org-test-with-temp-text "#+TAGS: { A : B C }"
- (org-mode-restart)
- org-tag-alist)))
- (should
- (equal '(("A" "B" "C"))
- (org-test-with-temp-text "#+TAGS: { A : B C }"
- (org-mode-restart)
- org-tag-groups-alist)))
- ;; FILETAGS keyword.
- (should
- (equal '("A" "B" "C")
- (org-test-with-temp-text "#+FILETAGS: :A:B:C:"
- (org-mode-restart)
- org-file-tags)))
- ;; PROPERTY keyword. Property names are case-insensitive.
- (should
- (equal "foo=1"
- (org-test-with-temp-text "#+PROPERTY: var foo=1"
- (org-mode-restart)
- (cdr (assoc "var" org-file-properties)))))
- (should
- (equal
- "foo=1 bar=2"
- (org-test-with-temp-text "#+PROPERTY: var foo=1\n#+PROPERTY: var+ bar=2"
- (org-mode-restart)
- (cdr (assoc "var" org-file-properties)))))
- (should
- (equal
- "foo=1 bar=2"
- (org-test-with-temp-text "#+PROPERTY: var foo=1\n#+PROPERTY: VAR+ bar=2"
- (org-mode-restart)
- (cdr (assoc "var" org-file-properties)))))
- ;; ARCHIVE keyword.
- (should
- (equal "%s_done::"
- (org-test-with-temp-text "#+ARCHIVE: %s_done::"
- (org-mode-restart)
- org-archive-location)))
- ;; CATEGORY keyword.
- (should
- (eq 'test
- (org-test-with-temp-text "#+CATEGORY: test"
- (org-mode-restart)
- org-category)))
- (should
- (equal "test"
- (org-test-with-temp-text "#+CATEGORY: test"
- (org-mode-restart)
- (cdr (assoc "CATEGORY" org-file-properties)))))
- ;; COLUMNS keyword.
- (should
- (equal "%25ITEM %TAGS %PRIORITY %TODO"
- (org-test-with-temp-text "#+COLUMNS: %25ITEM %TAGS %PRIORITY %TODO"
- (org-mode-restart)
- org-columns-default-format)))
- ;; CONSTANTS keyword. Constants names are case sensitive.
- (should
- (equal '("299792458." "3.14")
- (org-test-with-temp-text "#+CONSTANTS: c=299792458. pi=3.14"
- (org-mode-restart)
- (mapcar
- (lambda (n) (cdr (assoc n org-table-formula-constants-local)))
- '("c" "pi")))))
- (should
- (equal "3.14"
- (org-test-with-temp-text "#+CONSTANTS: pi=22/7 pi=3.14"
- (org-mode-restart)
- (cdr (assoc "pi" org-table-formula-constants-local)))))
- (should
- (equal "22/7"
- (org-test-with-temp-text "#+CONSTANTS: PI=22/7 pi=3.14"
- (org-mode-restart)
- (cdr (assoc "PI" org-table-formula-constants-local)))))
- ;; LINK keyword.
- (should
- (equal
- '("url1" "url2")
- (org-test-with-temp-text "#+LINK: a url1\n#+LINK: b url2"
- (org-mode-restart)
- (mapcar (lambda (abbrev) (cdr (assoc abbrev org-link-abbrev-alist-local)))
- '("a" "b")))))
- ;; PRIORITIES keyword. Incomplete priorities sets are ignored.
- (should
- (equal
- '(?X ?Z ?Y)
- (org-test-with-temp-text "#+PRIORITIES: X Z Y"
- (org-mode-restart)
- (list org-highest-priority org-lowest-priority org-default-priority))))
- (should
- (equal
- '(?A ?C ?B)
- (org-test-with-temp-text "#+PRIORITIES: X Z"
- (org-mode-restart)
- (list org-highest-priority org-lowest-priority org-default-priority))))
- ;; STARTUP keyword.
- (should
- (equal '(t t)
- (org-test-with-temp-text "#+STARTUP: fold odd"
- (org-mode-restart)
- (list org-startup-folded org-odd-levels-only))))
- ;; TODO keywords.
- (should
- (equal '(("A" "B") ("C"))
- (org-test-with-temp-text "#+TODO: A B | C"
- (org-mode-restart)
- (list org-not-done-keywords org-done-keywords))))
- (should
- (equal '(("A" "C") ("B" "D"))
- (org-test-with-temp-text "#+TODO: A | B\n#+TODO: C | D"
- (org-mode-restart)
- (list org-not-done-keywords org-done-keywords))))
- (should
- (equal '(("A" "B") ("C"))
- (org-test-with-temp-text "#+TYP_TODO: A B | C"
- (org-mode-restart)
- (list org-not-done-keywords org-done-keywords))))
- (should
- (equal '((:startgroup) ("A" . ?a) (:endgroup))
- (org-test-with-temp-text "#+TODO: A(a)"
- (org-mode-restart)
- org-todo-key-alist)))
- (should
- (equal '(("D" note nil) ("C" time nil) ("B" note time))
- (org-test-with-temp-text "#+TODO: A(a) B(b@/!) | C(c!) D(d@)"
- (org-mode-restart)
- org-todo-log-states)))
- ;; Enter SETUPFILE keyword.
- (should
- (equal "1"
- (org-test-with-temp-text
- (format "#+SETUPFILE: \"%s/examples/setupfile.org\"" org-test-dir)
- (org-mode-restart)
- (cdr (assoc "a" org-file-properties))))))
- ;;; Links
- ;;;; Coderefs
- (ert-deftest test-org/coderef ()
- "Test coderef links specifications."
- (should
- (org-test-with-temp-text "
- #+BEGIN_SRC emacs-lisp
- \(+ 1 1) (ref:sc)
- #+END_SRC
- \[[(sc)]]"
- (goto-char (point-max))
- (org-open-at-point)
- (looking-at "(ref:sc)"))))
- ;;;; Custom ID
- (ert-deftest test-org/custom-id ()
- "Test custom ID links specifications."
- (should
- (org-test-with-temp-text
- "* H1\n:PROPERTIES:\n:CUSTOM_ID: custom\n:END:\n* H2\n[[#custom]]"
- (goto-char (point-max))
- (org-open-at-point)
- (org-looking-at-p "\\* H1"))))
- ;;;; Fuzzy Links
- ;; Fuzzy links [[text]] encompass links to a target (<<text>>), to
- ;; a named element (#+name: text) and to headlines (* Text).
- (ert-deftest test-org/fuzzy-links ()
- "Test fuzzy links specifications."
- ;; Fuzzy link goes in priority to a matching target.
- (should
- (org-test-with-temp-text "#+NAME: Test\n|a|b|\n<<Test>>\n* Test\n[[Test]]"
- (goto-line 5)
- (org-open-at-point)
- (looking-at "<<Test>>")))
- ;; Then fuzzy link points to an element with a given name.
- (should
- (org-test-with-temp-text "Test\n#+NAME: Test\n|a|b|\n* Test\n[[Test]]"
- (goto-line 5)
- (org-open-at-point)
- (looking-at "#\\+NAME: Test")))
- ;; A target still lead to a matching headline otherwise.
- (should
- (org-test-with-temp-text "* Head1\n* Head2\n*Head3\n[[Head2]]"
- (goto-line 4)
- (org-open-at-point)
- (looking-at "\\* Head2")))
- ;; With a leading star in link, enforce heading match.
- (should
- (org-test-with-temp-text "* Test\n<<Test>>\n[[*Test]]"
- (goto-line 3)
- (org-open-at-point)
- (looking-at "\\* Test")))
- ;; Correctly un-hexify fuzzy links.
- (should
- (org-test-with-temp-text "* With space\n[[*With%20space][With space]]"
- (goto-char (point-max))
- (org-open-at-point)
- (bobp))))
- ;;;; Link Escaping
- (ert-deftest test-org/org-link-escape-ascii-character ()
- "Escape an ascii character."
- (should
- (string=
- "%5B"
- (org-link-escape "["))))
- (ert-deftest test-org/org-link-escape-ascii-ctrl-character ()
- "Escape an ascii control character."
- (should
- (string=
- "%09"
- (org-link-escape "\t"))))
- (ert-deftest test-org/org-link-escape-multibyte-character ()
- "Escape an unicode multibyte character."
- (should
- (string=
- "%E2%82%AC"
- (org-link-escape "€"))))
- (ert-deftest test-org/org-link-escape-custom-table ()
- "Escape string with custom character table."
- (should
- (string=
- "Foo%3A%42ar%0A"
- (org-link-escape "Foo:Bar\n" '(?\: ?\B)))))
- (ert-deftest test-org/org-link-escape-custom-table-merge ()
- "Escape string with custom table merged with default table."
- (should
- (string=
- "%5BF%6F%6F%3A%42ar%0A%5D"
- (org-link-escape "[Foo:Bar\n]" '(?\: ?\B ?\o) t))))
- (ert-deftest test-org/org-link-unescape-ascii-character ()
- "Unescape an ascii character."
- (should
- (string=
- "["
- (org-link-unescape "%5B"))))
- (ert-deftest test-org/org-link-unescape-ascii-ctrl-character ()
- "Unescpae an ascii control character."
- (should
- (string=
- "\n"
- (org-link-unescape "%0A"))))
- (ert-deftest test-org/org-link-unescape-multibyte-character ()
- "Unescape unicode multibyte character."
- (should
- (string=
- "€"
- (org-link-unescape "%E2%82%AC"))))
- (ert-deftest test-org/org-link-unescape-ascii-extended-char ()
- "Unescape old style percent escaped character."
- (should
- (string=
- "àâçèéêîôùû"
- (decode-coding-string
- (org-link-unescape "%E0%E2%E7%E8%E9%EA%EE%F4%F9%FB") 'latin-1))))
- (ert-deftest test-org/org-link-escape-url-with-escaped-char ()
- "Escape and unescape a URL that includes an escaped char.
- http://article.gmane.org/gmane.emacs.orgmode/21459/"
- (should
- (string=
- "http://some.host.com/form?&id=blah%2Bblah25"
- (org-link-unescape
- (org-link-escape "http://some.host.com/form?&id=blah%2Bblah25")))))
- (ert-deftest test-org/org-link-escape-chars-browser ()
- "Test of the constant `org-link-escape-chars-browser'.
- See there why this test is a candidate to be removed once Org
- drops support for Emacs 24.1 and 24.2."
- (should
- (string=
- (concat "http://lists.gnu.org/archive/cgi-bin/namazu.cgi?query="
- "%22Release%208.2%22&idxname=emacs-orgmode")
- (org-link-escape-browser ; Do not replace with `url-encode-url',
- ; see docstring above.
- (concat "http://lists.gnu.org/archive/cgi-bin/namazu.cgi?query="
- "\"Release 8.2\"&idxname=emacs-orgmode")))))
- ;;;; Open at point
- (ert-deftest test-org/open-at-point-in-property ()
- "Does `org-open-at-point' open link in property drawer?"
- (should
- (org-test-with-temp-text
- "* Headline
- :PROPERTIES:
- :URL: <point>[[info:emacs#Top]]
- :END:"
- (org-open-at-point) t)))
- (ert-deftest test-org/open-at-point-in-comment ()
- "Does `org-open-at-point' open link in a commented line?"
- (should
- (org-test-with-temp-text
- "# <point>[[info:emacs#Top]]"
- (org-open-at-point) t)))
- (ert-deftest test-org/open-at-point/info ()
- "Test `org-open-at-point' on info links."
- (should
- (org-test-with-temp-text
- "<point>[[info:emacs#Top]]"
- (org-open-at-point)
- (and (switch-to-buffer "*info*")
- (prog1
- (looking-at "\nThe Emacs Editor")
- (kill-buffer))))))
- ;;; Node Properties
- (ert-deftest test-org/accumulated-properties-in-drawers ()
- "Ensure properties accumulate in subtree drawers."
- (org-test-at-id "75282ba2-f77a-4309-a970-e87c149fe125"
- (org-babel-next-src-block)
- (should (equal '(2 1) (org-babel-execute-src-block)))))
- (ert-deftest test-org/custom-properties ()
- "Test custom properties specifications."
- ;; Standard test.
- (should
- (let ((org-custom-properties '("FOO")))
- (org-test-with-temp-text "* H\n:PROPERTIES:\n<point>:FOO: val\n:END:\n"
- (org-toggle-custom-properties-visibility)
- (org-invisible-p2))))
- ;; Properties are case-insensitive.
- (should
- (let ((org-custom-properties '("FOO")))
- (org-test-with-temp-text "* H\n:PROPERTIES:\n<point>:foo: val\n:END:\n"
- (org-toggle-custom-properties-visibility)
- (org-invisible-p2))))
- (should
- (let ((org-custom-properties '("foo")))
- (org-test-with-temp-text "* H\n:PROPERTIES:\n<point>:FOO: val\n:END:\n"
- (org-toggle-custom-properties-visibility)
- (org-invisible-p2))))
- ;; Multiple custom properties in the same drawer.
- (should
- (let ((org-custom-properties '("FOO" "BAR")))
- (org-test-with-temp-text
- "* H\n:PROPERTIES:\n<point>:FOO: val\n:P: 1\n:BAR: baz\n:END:\n"
- (org-toggle-custom-properties-visibility)
- (and (org-invisible-p2)
- (not (progn (forward-line) (org-invisible-p2)))
- (progn (forward-line) (org-invisible-p2))))))
- ;; Hide custom properties with an empty value.
- (should
- (let ((org-custom-properties '("FOO")))
- (org-test-with-temp-text "* H\n:PROPERTIES:\n<point>:FOO:\n:END:\n"
- (org-toggle-custom-properties-visibility)
- (org-invisible-p2))))
- ;; Do not hide fake properties.
- (should-not
- (let ((org-custom-properties '("FOO")))
- (org-test-with-temp-text ":FOO: val\n"
- (org-toggle-custom-properties-visibility)
- (org-invisible-p2))))
- (should-not
- (let ((org-custom-properties '("A")))
- (org-test-with-temp-text
- "* H\n:PROPERTIES:\n:A: 1\n:END:\n\n:PROPERTIES:\n<point>:A: 2\n:END:"
- (org-toggle-custom-properties-visibility)
- (org-invisible-p2)))))
- ;;; Mark Region
- (ert-deftest test-org/mark-subtree ()
- "Test `org-mark-subtree' specifications."
- ;; Error when point is before first headline.
- (should-error
- (org-test-with-temp-text "Paragraph\n* Headline\nBody"
- (progn (transient-mark-mode 1)
- (org-mark-subtree))))
- ;; Without argument, mark current subtree.
- (should
- (equal
- '(12 32)
- (org-test-with-temp-text "* Headline\n** Sub-headline\nBody"
- (progn (transient-mark-mode 1)
- (forward-line 2)
- (org-mark-subtree)
- (list (region-beginning) (region-end))))))
- ;; With an argument, move ARG up.
- (should
- (equal
- '(1 32)
- (org-test-with-temp-text "* Headline\n** Sub-headline\nBody"
- (progn (transient-mark-mode 1)
- (forward-line 2)
- (org-mark-subtree 1)
- (list (region-beginning) (region-end))))))
- ;; Do not get fooled by inlinetasks.
- (when (featurep 'org-inlinetask)
- (should
- (= 1
- (org-test-with-temp-text "* Headline\n*************** Task\nContents"
- (progn (transient-mark-mode 1)
- (forward-line 1)
- (let ((org-inlinetask-min-level 15)) (org-mark-subtree))
- (region-beginning)))))))
-
- ;;; 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.
- (should
- (org-test-with-temp-text "Some text\nSome other text"
- (progn (org-end-of-line) (eolp))))
- ;; 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 "))
- (goto-char (point-min))
- (org-end-of-line)
- (eolp))))
- ;; At an headline with special movement.
- (should
- (org-test-with-temp-text "* Headline1 :tag:\n"
- (let ((org-special-ctrl-a/e t))
- (and (progn (org-end-of-line) (looking-at " :tag:"))
- (progn (org-end-of-line) (eolp))
- (progn (org-end-of-line) (looking-at " :tag:"))))))
- ;; At an headline without special movement.
- (should
- (org-test-with-temp-text "* Headline2 :tag:\n"
- (let ((org-special-ctrl-a/e nil))
- (and (progn (org-end-of-line) (eolp))
- (progn (org-end-of-line) (eolp))))))
- ;; At an headline, with reversed movement.
- (should
- (org-test-with-temp-text "* Headline3 :tag:\n"
- (let ((org-special-ctrl-a/e 'reversed)
- (this-command last-command))
- (and (progn (org-end-of-line) (eolp))
- (progn (org-end-of-line) (looking-at " :tag:"))))))
- ;; At a block without hidden contents.
- (should
- (org-test-with-temp-text "#+BEGIN_CENTER\nContents\n#+END_CENTER"
- (progn (org-end-of-line) (eolp))))
- ;; At a block with hidden contents.
- (should-not
- (org-test-with-temp-text "#+BEGIN_CENTER\nContents\n#+END_CENTER"
- (let ((org-special-ctrl-a/e t))
- (org-hide-block-toggle)
- (org-end-of-line)
- (eobp)))))
- (ert-deftest test-org/forward-paragraph ()
- "Test `org-forward-paragraph' specifications."
- ;; At end of buffer, return an error.
- (should-error
- (org-test-with-temp-text "Paragraph"
- (goto-char (point-max))
- (org-forward-paragraph)))
- ;; Standard test.
- (should
- (org-test-with-temp-text "P1\n\nP2\n\nP3"
- (org-forward-paragraph)
- (looking-at "P2")))
- ;; Ignore depth.
- (should
- (org-test-with-temp-text "#+BEGIN_CENTER\nP1\n#+END_CENTER\nP2"
- (org-forward-paragraph)
- (looking-at "P1")))
- ;; Do not enter elements with invisible contents.
- (should
- (org-test-with-temp-text "#+BEGIN_CENTER\nP1\n\nP2\n#+END_CENTER\nP3"
- (org-hide-block-toggle)
- (org-forward-paragraph)
- (looking-at "P3")))
- ;; On an affiliated keyword, jump to the beginning of the element.
- (should
- (org-test-with-temp-text "#+name: para\n#+caption: caption\nPara"
- (org-forward-paragraph)
- (looking-at "Para")))
- ;; On an item or a footnote definition, move to the second element
- ;; inside, if any.
- (should
- (org-test-with-temp-text "- Item1\n\n Paragraph\n- Item2"
- (org-forward-paragraph)
- (looking-at " Paragraph")))
- (should
- (org-test-with-temp-text "[fn:1] Def1\n\nParagraph\n\n[fn:2] Def2"
- (org-forward-paragraph)
- (looking-at "Paragraph")))
- ;; On an item, or a footnote definition, when the first line is
- ;; empty, move to the first item.
- (should
- (org-test-with-temp-text "- \n\n Paragraph\n- Item2"
- (org-forward-paragraph)
- (looking-at " Paragraph")))
- (should
- (org-test-with-temp-text "[fn:1]\n\nParagraph\n\n[fn:2] Def2"
- (org-forward-paragraph)
- (looking-at "Paragraph")))
- ;; On a table (resp. a property drawer) do not move through table
- ;; rows (resp. node properties).
- (should
- (org-test-with-temp-text "| a | b |\n| c | d |\nParagraph"
- (org-forward-paragraph)
- (looking-at "Paragraph")))
- (should
- (org-test-with-temp-text
- "* H\n<point>:PROPERTIES:\n:prop: value\n:END:\nParagraph"
- (org-forward-paragraph)
- (looking-at "Paragraph")))
- ;; On a verse or source block, stop after blank lines.
- (should
- (org-test-with-temp-text "#+BEGIN_VERSE\nL1\n\nL2\n#+END_VERSE"
- (org-forward-paragraph)
- (looking-at "L2")))
- (should
- (org-test-with-temp-text "#+BEGIN_SRC\nL1\n\nL2\n#+END_SRC"
- (org-forward-paragraph)
- (looking-at "L2"))))
- (ert-deftest test-org/backward-paragraph ()
- "Test `org-backward-paragraph' specifications."
- ;; Error at beginning of buffer.
- (should-error
- (org-test-with-temp-text "Paragraph"
- (org-backward-paragraph)))
- ;; Regular test.
- (should
- (org-test-with-temp-text "P1\n\nP2\n\nP3"
- (goto-char (point-max))
- (org-backward-paragraph)
- (looking-at "P3")))
- (should
- (org-test-with-temp-text "P1\n\nP2\n\nP3"
- (goto-char (point-max))
- (beginning-of-line)
- (org-backward-paragraph)
- (looking-at "P2")))
- ;; Ignore depth.
- (should
- (org-test-with-temp-text "P1\n\n#+BEGIN_CENTER\nP2\n#+END_CENTER\nP3"
- (goto-char (point-max))
- (beginning-of-line)
- (org-backward-paragraph)
- (looking-at "P2")))
- ;; Ignore invisible elements.
- (should
- (org-test-with-temp-text "* H1\n P1\n* H2"
- (org-cycle)
- (goto-char (point-max))
- (beginning-of-line)
- (org-backward-paragraph)
- (bobp)))
- ;; On an affiliated keyword, jump to the first one.
- (should
- (org-test-with-temp-text "P1\n#+name: n\n#+caption: c1\n#+caption: c2\nP2"
- (search-forward "c2")
- (org-backward-paragraph)
- (looking-at "#\\+name")))
- ;; On the second element in an item or a footnote definition, jump
- ;; to item or the definition.
- (should
- (org-test-with-temp-text "- line1\n\n line2"
- (goto-char (point-max))
- (beginning-of-line)
- (org-backward-paragraph)
- (looking-at "- line1")))
- (should
- (org-test-with-temp-text "[fn:1] line1\n\n line2"
- (goto-char (point-max))
- (beginning-of-line)
- (org-backward-paragraph)
- (looking-at "\\[fn:1\\] line1")))
- ;; On a table (resp. a property drawer), ignore table rows
- ;; (resp. node properties).
- (should
- (org-test-with-temp-text "| a | b |\n| c | d |\nP1"
- (goto-char (point-max))
- (beginning-of-line)
- (org-backward-paragraph)
- (bobp)))
- (should
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:prop: value\n:END:\n<point>P1"
- (org-backward-paragraph)
- (looking-at ":PROPERTIES:")))
- ;; On a source or verse block, stop before blank lines.
- (should
- (org-test-with-temp-text "#+BEGIN_VERSE\nL1\n\nL2\n\nL3\n#+END_VERSE"
- (search-forward "L3")
- (beginning-of-line)
- (org-backward-paragraph)
- (looking-at "L2")))
- (should
- (org-test-with-temp-text "#+BEGIN_SRC\nL1\n\nL2\n\nL3#+END_SRC"
- (search-forward "L3")
- (beginning-of-line)
- (org-backward-paragraph)
- (looking-at "L2"))))
- (ert-deftest test-org/forward-element ()
- "Test `org-forward-element' specifications."
- ;; 1. At EOB: should error.
- (org-test-with-temp-text "Some text\n"
- (goto-char (point-max))
- (should-error (org-forward-element)))
- ;; 2. Standard move: expected to ignore blank lines.
- (org-test-with-temp-text "First paragraph.\n\n\nSecond paragraph."
- (org-forward-element)
- (should (looking-at (regexp-quote "Second paragraph."))))
- ;; 3. Headline tests.
- (org-test-with-temp-text "
- * Head 1
- ** Head 1.1
- *** Head 1.1.1
- ** Head 1.2"
- ;; 3.1. At an headline beginning: move to next headline at the
- ;; same level.
- (goto-line 3)
- (org-forward-element)
- (should (looking-at (regexp-quote "** Head 1.2")))
- ;; 3.2. At an headline beginning: move to parent headline if no
- ;; headline at the same level.
- (goto-line 3)
- (org-forward-element)
- (should (looking-at (regexp-quote "** Head 1.2"))))
- ;; 4. Greater element tests.
- (org-test-with-temp-text
- "#+BEGIN_CENTER\nInside.\n#+END_CENTER\n\nOutside."
- ;; 4.1. At a greater element: expected to skip contents.
- (org-forward-element)
- (should (looking-at (regexp-quote "Outside.")))
- ;; 4.2. At the end of greater element contents: expected to skip
- ;; to the end of the greater element.
- (goto-line 2)
- (org-forward-element)
- (should (looking-at (regexp-quote "Outside."))))
- ;; 5. List tests.
- (org-test-with-temp-text "
- - item1
- - sub1
- - sub2
- - sub3
- Inner paragraph.
- - item2
- Outside."
- ;; 5.1. At list top point: expected to move to the element after
- ;; the list.
- (goto-line 2)
- (org-forward-element)
- (should (looking-at (regexp-quote "Outside.")))
- ;; 5.2. Special case: at the first line of a sub-list, but not at
- ;; beginning of line, move to next item.
- (goto-line 2)
- (forward-char)
- (org-forward-element)
- (should (looking-at "- item2"))
- (goto-line 4)
- (forward-char)
- (org-forward-element)
- (should (looking-at " - sub2"))
- ;; 5.3 At sub-list beginning: expected to move after the sub-list.
- (goto-line 4)
- (org-forward-element)
- (should (looking-at (regexp-quote " Inner paragraph.")))
- ;; 5.4. At sub-list end: expected to move outside the sub-list.
- (goto-line 8)
- (org-forward-element)
- (should (looking-at (regexp-quote " Inner paragraph.")))
- ;; 5.5. At an item: expected to move to next item, if any.
- (goto-line 6)
- (org-forward-element)
- (should (looking-at " - sub3"))))
- (ert-deftest test-org/backward-element ()
- "Test `org-backward-element' specifications."
- ;; 1. Should error at BOB.
- (org-test-with-temp-text " \nParagraph."
- (should-error (org-backward-element)))
- ;; 2. Should move at BOB when called on the first element in buffer.
- (should
- (org-test-with-temp-text "\n#+TITLE: test"
- (progn (forward-line)
- (org-backward-element)
- (bobp))))
- ;; 3. Not at the beginning of an element: move at its beginning.
- (org-test-with-temp-text "Paragraph1.\n\nParagraph2."
- (goto-line 3)
- (end-of-line)
- (org-backward-element)
- (should (looking-at (regexp-quote "Paragraph2."))))
- ;; 4. Headline tests.
- (org-test-with-temp-text "
- * Head 1
- ** Head 1.1
- *** Head 1.1.1
- ** Head 1.2"
- ;; 4.1. At an headline beginning: move to previous headline at the
- ;; same level.
- (goto-line 5)
- (org-backward-element)
- (should (looking-at (regexp-quote "** Head 1.1")))
- ;; 4.2. At an headline beginning: move to parent headline if no
- ;; headline at the same level.
- (goto-line 3)
- (org-backward-element)
- (should (looking-at (regexp-quote "* Head 1")))
- ;; 4.3. At the first top-level headline: should error.
- (goto-line 2)
- (should-error (org-backward-element)))
- ;; 5. At beginning of first element inside a greater element:
- ;; expected to move to greater element's beginning.
- (org-test-with-temp-text "Before.\n#+BEGIN_CENTER\nInside.\n#+END_CENTER"
- (goto-line 3)
- (org-backward-element)
- (should (looking-at "#\\+BEGIN_CENTER")))
- ;; 6. At the beginning of the first element in a section: should
- ;; move back to headline, if any.
- (should
- (org-test-with-temp-text "#+TITLE: test\n* Headline\n\nParagraph"
- (progn (goto-char (point-max))
- (beginning-of-line)
- (org-backward-element)
- (org-at-heading-p))))
- ;; 7. List tests.
- (org-test-with-temp-text "
- - item1
- - sub1
- - sub2
- - sub3
- Inner paragraph.
- - item2
- Outside."
- ;; 7.1. At beginning of sub-list: expected to move to the
- ;; paragraph before it.
- (goto-line 4)
- (org-backward-element)
- (should (looking-at "item1"))
- ;; 7.2. At an item in a list: expected to move at previous item.
- (goto-line 8)
- (org-backward-element)
- (should (looking-at " - sub2"))
- (goto-line 12)
- (org-backward-element)
- (should (looking-at "- item1"))
- ;; 7.3. At end of list/sub-list: expected to move to list/sub-list
- ;; beginning.
- (goto-line 10)
- (org-backward-element)
- (should (looking-at " - sub1"))
- (goto-line 15)
- (org-backward-element)
- (should (looking-at "- item1"))
- ;; 7.4. At blank-lines before list end: expected to move to top
- ;; item.
- (goto-line 14)
- (org-backward-element)
- (should (looking-at "- item1"))))
- (ert-deftest test-org/up-element ()
- "Test `org-up-element' specifications."
- ;; 1. At BOB or with no surrounding element: should error.
- (org-test-with-temp-text "Paragraph."
- (should-error (org-up-element)))
- (org-test-with-temp-text "* Head1\n* Head2"
- (goto-line 2)
- (should-error (org-up-element)))
- (org-test-with-temp-text "Paragraph1.\n\nParagraph2."
- (goto-line 3)
- (should-error (org-up-element)))
- ;; 2. At an headline: move to parent headline.
- (org-test-with-temp-text "* Head1\n** Sub-Head1\n** Sub-Head2"
- (goto-line 3)
- (org-up-element)
- (should (looking-at "\\* Head1")))
- ;; 3. Inside a greater element: move to greater element beginning.
- (org-test-with-temp-text
- "Before.\n#+BEGIN_CENTER\nParagraph1\nParagraph2\n#+END_CENTER\n"
- (goto-line 3)
- (org-up-element)
- (should (looking-at "#\\+BEGIN_CENTER")))
- ;; 4. List tests.
- (org-test-with-temp-text "* Top
- - item1
- - sub1
- - sub2
- Paragraph within sub2.
- - item2"
- ;; 4.1. Within an item: move to the item beginning.
- (goto-line 8)
- (org-up-element)
- (should (looking-at " - sub2"))
- ;; 4.2. At an item in a sub-list: move to parent item.
- (goto-line 4)
- (org-up-element)
- (should (looking-at "- item1"))
- ;; 4.3. At an item in top list: move to beginning of whole list.
- (goto-line 10)
- (org-up-element)
- (should (looking-at "- item1"))
- ;; 4.4. Special case. At very top point: should move to parent of
- ;; list.
- (goto-line 2)
- (org-up-element)
- (should (looking-at "\\* Top"))))
- (ert-deftest test-org/down-element ()
- "Test `org-down-element' specifications."
- ;; Error when the element hasn't got a recursive type.
- (org-test-with-temp-text "Paragraph."
- (should-error (org-down-element)))
- ;; Error when the element has no contents
- (org-test-with-temp-text "* Headline"
- (should-error (org-down-element)))
- ;; When at a plain-list, move to first item.
- (org-test-with-temp-text "- Item 1\n - Item 1.1\n - Item 2.2"
- (goto-line 2)
- (org-down-element)
- (should (looking-at " - Item 1.1")))
- (org-test-with-temp-text "#+NAME: list\n- Item 1"
- (org-down-element)
- (should (looking-at " Item 1")))
- ;; When at a table, move to first row
- (org-test-with-temp-text "#+NAME: table\n| a | b |"
- (org-down-element)
- (should (looking-at " a | b |")))
- ;; Otherwise, move inside the greater element.
- (org-test-with-temp-text "#+BEGIN_CENTER\nParagraph.\n#+END_CENTER"
- (org-down-element)
- (should (looking-at "Paragraph"))))
- (ert-deftest test-org/drag-element-backward ()
- "Test `org-drag-element-backward' specifications."
- ;; Standard test.
- (should
- (equal
- "#+key2: val2\n#+key1: val1\n#+key3: val3"
- (org-test-with-temp-text "#+key1: val1\n<point>#+key2: val2\n#+key3: val3"
- (org-drag-element-backward)
- (buffer-string))))
- (should
- (equal
- "#+BEGIN_CENTER\n#+B: 2\n#+A: 1\n#+END_CENTER"
- (org-test-with-temp-text
- "#+BEGIN_CENTER\n#+A: 1\n<point>#+B: 2\n#+END_CENTER"
- (org-drag-element-backward)
- (buffer-string))))
- ;; Preserve blank lines.
- (should
- (equal "Paragraph 2\n\n\nPara1\n\nPara3"
- (org-test-with-temp-text "Para1\n\n\n<point>Paragraph 2\n\nPara3"
- (org-drag-element-backward)
- (buffer-string))))
- ;; Preserve column.
- (should
- (org-test-with-temp-text "#+key1: v\n#+key<point>2: v\n#+key3: v"
- (org-drag-element-backward)
- (org-looking-at-p "2")))
- ;; Error when trying to move first element of buffer.
- (should-error
- (org-test-with-temp-text "Paragraph 1.\n\nParagraph 2."
- (org-drag-element-backward)))
- ;; Error when trying to swap nested elements.
- (should-error
- (org-test-with-temp-text "#+BEGIN_CENTER\nTest.\n#+END_CENTER"
- (forward-line)
- (org-drag-element-backward)))
- ;; Error when trying to swap an headline element and a non-headline
- ;; element.
- (should-error
- (org-test-with-temp-text "Test.\n* Head 1"
- (forward-line)
- (org-drag-element-backward)))
- ;; Preserve visibility of elements and their contents.
- (should
- (equal '((63 . 82) (26 . 48))
- (org-test-with-temp-text "
- #+BEGIN_CENTER
- Text.
- #+END_CENTER
- - item 1
- #+BEGIN_QUOTE
- Text.
- #+END_QUOTE"
- (while (search-forward "BEGIN_" nil t) (org-cycle))
- (search-backward "- item 1")
- (org-drag-element-backward)
- (mapcar (lambda (ov) (cons (overlay-start ov) (overlay-end ov)))
- (overlays-in (point-min) (point-max)))))))
- (ert-deftest test-org/drag-element-forward ()
- "Test `org-drag-element-forward' specifications."
- ;; 1. Error when trying to move first element of buffer.
- (org-test-with-temp-text "Paragraph 1.\n\nParagraph 2."
- (goto-line 3)
- (should-error (org-drag-element-forward)))
- ;; 2. Error when trying to swap nested elements.
- (org-test-with-temp-text "#+BEGIN_CENTER\nTest.\n#+END_CENTER"
- (forward-line)
- (should-error (org-drag-element-forward)))
- ;; 3. Error when trying to swap a non-headline element and an
- ;; headline.
- (org-test-with-temp-text "Test.\n* Head 1"
- (should-error (org-drag-element-forward)))
- ;; 4. Otherwise, swap elements, preserving column and blank lines
- ;; between elements.
- (org-test-with-temp-text "Paragraph 1\n\n\nPara2\n\nPara3"
- (search-forward "graph")
- (org-drag-element-forward)
- (should (equal (buffer-string) "Para2\n\n\nParagraph 1\n\nPara3"))
- (should (looking-at " 1")))
- ;; 5. Preserve visibility of elements and their contents.
- (org-test-with-temp-text "
- #+BEGIN_CENTER
- Text.
- #+END_CENTER
- - item 1
- #+BEGIN_QUOTE
- Text.
- #+END_QUOTE"
- (while (search-forward "BEGIN_" nil t) (org-cycle))
- (search-backward "#+BEGIN_CENTER")
- (org-drag-element-forward)
- (should
- (equal
- '((63 . 82) (26 . 48))
- (mapcar (lambda (ov) (cons (overlay-start ov) (overlay-end ov)))
- (overlays-in (point-min) (point-max)))))))
- ;;; Outline structure
- (ert-deftest test-org/demote ()
- "Test `org-demote' specifications."
- ;; Add correct number of stars according to `org-odd-levels-only'.
- (should
- (= 2
- (org-test-with-temp-text "* H"
- (let ((org-odd-levels-only nil)) (org-demote))
- (org-current-level))))
- (should
- (= 3
- (org-test-with-temp-text "* H"
- (let ((org-odd-levels-only t)) (org-demote))
- (org-current-level))))
- ;; When `org-auto-align-tags' is non-nil, move tags accordingly.
- (should
- (org-test-with-temp-text "* H :tag:"
- (let ((org-tags-column 10)
- (org-auto-align-tags t)
- (org-odd-levels-only nil))
- (org-demote))
- (org-move-to-column 10)
- (org-looking-at-p ":tag:$")))
- (should-not
- (org-test-with-temp-text "* H :tag:"
- (let ((org-tags-column 10)
- (org-auto-align-tags nil)
- (org-odd-levels-only nil))
- (org-demote))
- (org-move-to-column 10)
- (org-looking-at-p ":tag:$")))
- ;; When `org-adapt-indentation' is non-nil, always indent planning
- ;; info and property drawers accordingly.
- (should
- (= 3
- (org-test-with-temp-text "* H\n SCHEDULED: <2014-03-04 tue.>"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-demote))
- (forward-line)
- (org-get-indentation))))
- (should
- (= 3
- (org-test-with-temp-text "* H\n :PROPERTIES:\n :FOO: Bar\n :END:"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-demote))
- (forward-line)
- (org-get-indentation))))
- (should-not
- (= 3
- (org-test-with-temp-text "* H\n SCHEDULED: <2014-03-04 tue.>"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation nil))
- (org-demote))
- (forward-line)
- (org-get-indentation))))
- ;; When `org-adapt-indentation' is non-nil, shift all lines in
- ;; section accordingly. Ignore, however, footnote definitions and
- ;; inlinetasks boundaries.
- (should
- (= 3
- (org-test-with-temp-text "* H\n Paragraph"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-demote))
- (forward-line)
- (org-get-indentation))))
- (should
- (= 2
- (org-test-with-temp-text "* H\n Paragraph"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation nil))
- (org-demote))
- (forward-line)
- (org-get-indentation))))
- (should
- (zerop
- (org-test-with-temp-text "* H\n[fn:1] Definition."
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-demote))
- (forward-line)
- (org-get-indentation))))
- (should
- (= 3
- (org-test-with-temp-text "* H\n[fn:1] Def.\n\n\n After def."
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-demote))
- (goto-char (point-max))
- (org-get-indentation))))
- (when (featurep 'org-inlinetask)
- (should
- (zerop
- (let ((org-inlinetask-min-level 5)
- (org-adapt-indentation t))
- (org-test-with-temp-text "* H\n***** I\n***** END"
- (org-demote)
- (forward-line)
- (org-get-indentation))))))
- (when (featurep 'org-inlinetask)
- (should
- (= 3
- (let ((org-inlinetask-min-level 5)
- (org-adapt-indentation t))
- (org-test-with-temp-text "* H\n***** I\n Contents\n***** END"
- (org-demote)
- (forward-line 2)
- (org-get-indentation)))))))
- (ert-deftest test-org/promote ()
- "Test `org-promote' specifications."
- ;; Return an error if headline is to be promoted to level 0, unless
- ;; `org-allow-promoting-top-level-subtree' is non-nil, in which case
- ;; headline becomes a comment.
- (should-error
- (org-test-with-temp-text "* H"
- (let ((org-allow-promoting-top-level-subtree nil)) (org-promote))))
- (should
- (equal "# H"
- (org-test-with-temp-text "* H"
- (let ((org-allow-promoting-top-level-subtree t)) (org-promote))
- (buffer-string))))
- ;; Remove correct number of stars according to
- ;; `org-odd-levels-only'.
- (should
- (= 2
- (org-test-with-temp-text "*** H"
- (let ((org-odd-levels-only nil)) (org-promote))
- (org-current-level))))
- (should
- (= 1
- (org-test-with-temp-text "*** H"
- (let ((org-odd-levels-only t)) (org-promote))
- (org-current-level))))
- ;; When `org-auto-align-tags' is non-nil, move tags accordingly.
- (should
- (org-test-with-temp-text "** H :tag:"
- (let ((org-tags-column 10)
- (org-auto-align-tags t)
- (org-odd-levels-only nil))
- (org-promote))
- (org-move-to-column 10)
- (org-looking-at-p ":tag:$")))
- (should-not
- (org-test-with-temp-text "** H :tag:"
- (let ((org-tags-column 10)
- (org-auto-align-tags nil)
- (org-odd-levels-only nil))
- (org-promote))
- (org-move-to-column 10)
- (org-looking-at-p ":tag:$")))
- ;; When `org-adapt-indentation' is non-nil, always indent planning
- ;; info and property drawers.
- (should
- (= 2
- (org-test-with-temp-text "** H\n SCHEDULED: <2014-03-04 tue.>"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-promote))
- (forward-line)
- (org-get-indentation))))
- (should
- (= 2
- (org-test-with-temp-text "** H\n :PROPERTIES:\n :FOO: Bar\n :END:"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-promote))
- (forward-line)
- (org-get-indentation))))
- (should-not
- (= 2
- (org-test-with-temp-text "** H\n SCHEDULED: <2014-03-04 tue.>"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation nil))
- (org-promote))
- (forward-line)
- (org-get-indentation))))
- ;; When `org-adapt-indentation' is non-nil, shift all lines in
- ;; section accordingly. Ignore, however, footnote definitions and
- ;; inlinetasks boundaries.
- (should
- (= 2
- (org-test-with-temp-text "** H\n Paragraph"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-promote))
- (forward-line)
- (org-get-indentation))))
- (should-not
- (= 2
- (org-test-with-temp-text "** H\n Paragraph"
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation nil))
- (org-promote))
- (forward-line)
- (org-get-indentation))))
- (should
- (= 2
- (org-test-with-temp-text "** H\n Paragraph\n[fn:1] Definition."
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-promote))
- (forward-line)
- (org-get-indentation))))
- (when (featurep 'org-inlinetask)
- (should
- (zerop
- (let ((org-inlinetask-min-level 5)
- (org-adapt-indentation t))
- (org-test-with-temp-text "** H\n***** I\n***** END"
- (org-promote)
- (forward-line)
- (org-get-indentation))))))
- (when (featurep 'org-inlinetask)
- (should
- (= 2
- (let ((org-inlinetask-min-level 5)
- (org-adapt-indentation t))
- (org-test-with-temp-text "** H\n***** I\n Contents\n***** END"
- (org-promote)
- (forward-line 2)
- (org-get-indentation))))))
- ;; Give up shifting if it would break document's structure
- ;; otherwise.
- (should
- (= 3
- (org-test-with-temp-text "** H\n Paragraph\n [fn:1] Def."
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-promote))
- (forward-line)
- (org-get-indentation))))
- (should
- (= 3
- (org-test-with-temp-text "** H\n Paragraph\n * list."
- (let ((org-odd-levels-only nil)
- (org-adapt-indentation t))
- (org-promote))
- (forward-line)
- (org-get-indentation)))))
- ;;; Planning
- (ert-deftest test-org/timestamp-has-time-p ()
- "Test `org-timestamp-has-time-p' specifications."
- ;; With time.
- (should
- (org-test-with-temp-text "<2012-03-29 Thu 16:40>"
- (org-timestamp-has-time-p (org-element-context))))
- ;; Without time.
- (should-not
- (org-test-with-temp-text "<2012-03-29 Thu>"
- (org-timestamp-has-time-p (org-element-context)))))
- (ert-deftest test-org/timestamp-format ()
- "Test `org-timestamp-format' specifications."
- ;; Regular test.
- (should
- (equal
- "2012-03-29 16:40"
- (org-test-with-temp-text "<2012-03-29 Thu 16:40>"
- (org-timestamp-format (org-element-context) "%Y-%m-%d %R"))))
- ;; Range end.
- (should
- (equal
- "2012-03-29"
- (org-test-with-temp-text "[2011-07-14 Thu]--[2012-03-29 Thu]"
- (org-timestamp-format (org-element-context) "%Y-%m-%d" t)))))
- (ert-deftest test-org/timestamp-split-range ()
- "Test `org-timestamp-split-range' specifications."
- ;; Extract range start (active).
- (should
- (equal '(2012 3 29)
- (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
- (let ((ts (org-timestamp-split-range (org-element-context))))
- (mapcar (lambda (p) (org-element-property p ts))
- '(:year-end :month-end :day-end))))))
- ;; Extract range start (inactive)
- (should
- (equal '(2012 3 29)
- (org-test-with-temp-text "[2012-03-29 Thu]--[2012-03-30 Fri]"
- (let ((ts (org-timestamp-split-range (org-element-context))))
- (mapcar (lambda (p) (org-element-property p ts))
- '(:year-end :month-end :day-end))))))
- ;; Extract range end (active).
- (should
- (equal '(2012 3 30)
- (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
- (let ((ts (org-timestamp-split-range
- (org-element-context) t)))
- (mapcar (lambda (p) (org-element-property p ts))
- '(:year-end :month-end :day-end))))))
- ;; Extract range end (inactive)
- (should
- (equal '(2012 3 30)
- (org-test-with-temp-text "[2012-03-29 Thu]--[2012-03-30 Fri]"
- (let ((ts (org-timestamp-split-range
- (org-element-context) t)))
- (mapcar (lambda (p) (org-element-property p ts))
- '(:year-end :month-end :day-end))))))
- ;; Return the timestamp if not a range.
- (should
- (org-test-with-temp-text "[2012-03-29 Thu]"
- (let* ((ts-orig (org-element-context))
- (ts-copy (org-timestamp-split-range ts-orig)))
- (eq ts-orig ts-copy))))
- (should
- (org-test-with-temp-text "<%%(org-float t 4 2)>"
- (let* ((ts-orig (org-element-context))
- (ts-copy (org-timestamp-split-range ts-orig)))
- (eq ts-orig ts-copy))))
- ;; Check that parent is the same when a range was split.
- (should
- (org-test-with-temp-text "[2012-03-29 Thu]--[2012-03-30 Fri]"
- (let* ((ts-orig (org-element-context))
- (ts-copy (org-timestamp-split-range ts-orig)))
- (eq (org-element-property :parent ts-orig)
- (org-element-property :parent ts-copy))))))
- (ert-deftest test-org/timestamp-translate ()
- "Test `org-timestamp-translate' specifications."
- ;; Translate whole date range.
- (should
- (equal "<29>--<30>"
- (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
- (let ((org-display-custom-times t)
- (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
- (org-timestamp-translate (org-element-context))))))
- ;; Translate date range start.
- (should
- (equal "<29>"
- (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
- (let ((org-display-custom-times t)
- (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
- (org-timestamp-translate (org-element-context) 'start)))))
- ;; Translate date range end.
- (should
- (equal "<30>"
- (org-test-with-temp-text "<2012-03-29 Thu>--<2012-03-30 Fri>"
- (let ((org-display-custom-times t)
- (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
- (org-timestamp-translate (org-element-context) 'end)))))
- ;; Translate time range.
- (should
- (equal "<08>--<16>"
- (org-test-with-temp-text "<2012-03-29 Thu 8:30-16:40>"
- (let ((org-display-custom-times t)
- (org-time-stamp-custom-formats '("<%d>" . "<%H>")))
- (org-timestamp-translate (org-element-context))))))
- ;; Translate non-range timestamp.
- (should
- (equal "<29>"
- (org-test-with-temp-text "<2012-03-29 Thu>"
- (let ((org-display-custom-times t)
- (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
- (org-timestamp-translate (org-element-context))))))
- ;; Do not change `diary' timestamps.
- (should
- (equal "<%%(org-float t 4 2)>"
- (org-test-with-temp-text "<%%(org-float t 4 2)>"
- (let ((org-display-custom-times t)
- (org-time-stamp-custom-formats '("<%d>" . "<%d>")))
- (org-timestamp-translate (org-element-context)))))))
- ;;; Property API
- (ert-deftest test-org/buffer-property-keys ()
- "Test `org-buffer-property-keys' specifications."
- ;; Retrieve properties accross siblings.
- (should
- (equal '("A" "B")
- (org-test-with-temp-text "
- * H1
- :PROPERTIES:
- :A: 1
- :END:
- * H2
- :PROPERTIES:
- :B: 1
- :END:"
- (org-buffer-property-keys))))
- ;; Retrieve properties accross children.
- (should
- (equal '("A" "B")
- (org-test-with-temp-text "
- * H1
- :PROPERTIES:
- :A: 1
- :END:
- ** H2
- :PROPERTIES:
- :B: 1
- :END:"
- (org-buffer-property-keys))))
- ;; Retrieve muliple properties in the same drawer.
- (should
- (equal '("A" "B")
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:B: 2\n:END:"
- (org-buffer-property-keys))))
- ;; Ignore extension symbol in property name.
- (should
- (equal '("A")
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:A+: 2\n:END:"
- (org-buffer-property-keys))))
- ;; With non-nil COLUMNS, extract property names from columns.
- (should
- (equal '("A" "B")
- (org-test-with-temp-text "#+COLUMNS: %25ITEM %A %20B"
- (org-buffer-property-keys nil nil t))))
- (should
- (equal '("A" "B" "COLUMNS")
- (org-test-with-temp-text
- "* H\n:PROPERTIES:\n:COLUMNS: %25ITEM %A %20B\n:END:"
- (org-buffer-property-keys nil nil t)))))
- (ert-deftest test-org/property-values ()
- "Test `org-property-values' specifications."
- ;; Regular test.
- (should
- (equal '("2" "1")
- (org-test-with-temp-text
- "* H\n:PROPERTIES:\n:A: 1\n:END:\n* H\n:PROPERTIES:\n:A: 2\n:END:"
- (org-property-values "A"))))
- ;; Ignore empty values.
- (should-not
- (org-test-with-temp-text
- "* H1\n:PROPERTIES:\n:A:\n:END:\n* H2\n:PROPERTIES:\n:A: \n:END:"
- (org-property-values "A")))
- ;; Take into consideration extended values.
- (should
- (equal '("1 2")
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:A+: 2\n:END:"
- (org-property-values "A")))))
- (ert-deftest test-org/entry-delete ()
- "Test `org-entry-delete' specifications."
- ;; Regular test.
- (should
- (string-match
- " *:PROPERTIES:\n *:B: +2\n *:END:"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:B: 2\n:END:"
- (org-entry-delete (point) "A")
- (buffer-string))))
- ;; When last property is removed, remove the property drawer.
- (should-not
- (string-match
- ":PROPERTIES:"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\nParagraph"
- (org-entry-delete (point) "A")
- (buffer-string)))))
- (ert-deftest test-org/entry-get ()
- "Test `org-entry-get' specifications."
- ;; Regular test.
- (should
- (equal "1"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:"
- (org-entry-get (point) "A"))))
- ;; Ignore case.
- (should
- (equal "1"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:"
- (org-entry-get (point) "a"))))
- ;; Handle extended values, both before and after base value.
- (should
- (equal "1 2 3"
- (org-test-with-temp-text
- "* H\n:PROPERTIES:\n:A+: 2\n:A: 1\n:A+: 3\n:END:"
- (org-entry-get (point) "A"))))
- ;; Empty values are returned as the empty string.
- (should
- (equal ""
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A:\n:END:"
- (org-entry-get (point) "A"))))
- ;; Special nil value. If LITERAL-NIL is non-nil, return "nil",
- ;; otherwise, return nil.
- (should-not
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: nil\n:END:"
- (org-entry-get (point) "A")))
- (should
- (equal "nil"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: nil\n:END:"
- (org-entry-get (point) "A" nil t))))
- ;; Return nil when no property is found, independently on the
- ;; LITERAL-NIL argument.
- (should-not
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:"
- (org-entry-get (point) "B")))
- (should-not
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:"
- (org-entry-get (point) "B" nil t)))
- ;; Handle inheritance, when allowed.
- (should
- (equal
- "1"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\n** <point>H2"
- (org-entry-get (point) "A" t))))
- (should
- (equal
- "1"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\n** <point>H2"
- (let ((org-use-property-inheritance t))
- (org-entry-get (point) "A" 'selective)))))
- (should-not
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\n** <point>H2"
- (let ((org-use-property-inheritance nil))
- (org-entry-get (point) "A" 'selective)))))
- (ert-deftest test-org/entry-properties ()
- "Test `org-entry-properties' specifications."
- ;; Get "ITEM" property.
- (should
- (equal "* H"
- (org-test-with-temp-text "* TODO H"
- (cdr (assoc "ITEM" (org-entry-properties nil "ITEM"))))))
- ;; Get "TODO" property.
- (should
- (equal "TODO"
- (org-test-with-temp-text "* TODO H"
- (cdr (assoc "TODO" (org-entry-properties nil "TODO"))))))
- (should-not
- (org-test-with-temp-text "* H"
- (assoc "TODO" (org-entry-properties nil "TODO"))))
- ;; Get "PRIORITY" property.
- (should
- (equal "A"
- (org-test-with-temp-text "* [#A] H"
- (cdr (assoc "PRIORITY" (org-entry-properties nil "PRIORITY"))))))
- (should-not
- (org-test-with-temp-text "* H"
- (assoc "PRIORITY" (org-entry-properties nil "PRIORITY"))))
- ;; Get "FILE" property.
- (should
- (org-test-with-temp-text-in-file "* H\nParagraph"
- (org-file-equal-p (cdr (assoc "FILE" (org-entry-properties nil "FILE")))
- (buffer-file-name))))
- (should-not
- (org-test-with-temp-text "* H\nParagraph"
- (cdr (assoc "FILE" (org-entry-properties nil "FILE")))))
- ;; Get "TAGS" property.
- (should
- (equal ":tag1:tag2:"
- (org-test-with-temp-text "* H :tag1:tag2:"
- (cdr (assoc "TAGS" (org-entry-properties nil "TAGS"))))))
- (should-not
- (org-test-with-temp-text "* H"
- (cdr (assoc "TAGS" (org-entry-properties nil "TAGS")))))
- ;; Get "ALLTAGS" property.
- (should
- (equal ":tag1:tag2:"
- (org-test-with-temp-text "* H :tag1:\n<point>** H2 :tag2:"
- (cdr (assoc "ALLTAGS" (org-entry-properties nil "ALLTAGS"))))))
- (should-not
- (org-test-with-temp-text "* H"
- (cdr (assoc "ALLTAGS" (org-entry-properties nil "ALLTAGS")))))
- ;; Get "BLOCKED" property.
- (should
- (equal "t"
- (org-test-with-temp-text "* Blocked\n** DONE one\n** TODO two"
- (let ((org-enforce-todo-dependencies t)
- (org-blocker-hook
- '(org-block-todo-from-children-or-siblings-or-parent)))
- (cdr (assoc "BLOCKED" (org-entry-properties nil "BLOCKED")))))))
- (should
- (equal ""
- (org-test-with-temp-text "* Blocked\n** DONE one\n** DONE two"
- (let ((org-enforce-todo-dependencies t))
- (cdr (assoc "BLOCKED" (org-entry-properties nil "BLOCKED")))))))
- ;; Get "CLOSED", "DEADLINE" and "SCHEDULED" properties.
- (should
- (equal
- "[2012-03-29 thu.]"
- (org-test-with-temp-text "* H\nCLOSED: [2012-03-29 thu.]"
- (cdr (assoc "CLOSED" (org-entry-properties nil "CLOSED"))))))
- (should-not
- (org-test-with-temp-text "* H"
- (cdr (assoc "CLOSED" (org-entry-properties nil "CLOSED")))))
- (should
- (equal
- "<2014-03-04 tue.>"
- (org-test-with-temp-text "* H\nDEADLINE: <2014-03-04 tue.>"
- (cdr (assoc "DEADLINE" (org-entry-properties nil "DEADLINE"))))))
- (should-not
- (org-test-with-temp-text "* H"
- (cdr (assoc "DEADLINE" (org-entry-properties nil "DEADLINE")))))
- (should
- (equal
- "<2014-03-04 tue.>"
- (org-test-with-temp-text "* H\nSCHEDULED: <2014-03-04 tue.>"
- (cdr (assoc "SCHEDULED" (org-entry-properties nil "SCHEDULED"))))))
- (should-not
- (org-test-with-temp-text "* H"
- (cdr (assoc "SCHEDULED" (org-entry-properties nil "SCHEDULED")))))
- ;; Get "CATEGORY"
- (should
- (equal "cat"
- (org-test-with-temp-text "#+CATEGORY: cat\n<point>* H"
- (cdr (assoc "CATEGORY" (org-entry-properties nil "CATEGORY"))))))
- (should
- (equal "cat"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:CATEGORY: cat\n:END:"
- (cdr (assoc "CATEGORY" (org-entry-properties nil "CATEGORY"))))))
- ;; Get standard properties.
- (should
- (equal "1"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:"
- (cdr (assoc "A" (org-entry-properties nil 'standard))))))
- ;; Handle extended properties.
- (should
- (equal "1 2 3"
- (org-test-with-temp-text
- "* H\n:PROPERTIES:\n:A+: 2\n:A: 1\n:A+: 3\n:END:"
- (cdr (assoc "A" (org-entry-properties nil 'standard))))))
- (should
- (equal "1 2 3"
- (org-test-with-temp-text
- "* H\n:PROPERTIES:\n:A+: 2\n:A: 1\n:a+: 3\n:END:"
- (cdr (assoc "A" (org-entry-properties nil 'standard))))))
- ;; Ignore forbidden (special) properties.
- (should-not
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:TODO: foo\n:END:"
- (cdr (assoc "TODO" (org-entry-properties nil 'standard))))))
- (ert-deftest test-org/entry-put ()
- "Test `org-entry-put' specifications."
- ;; Error when not a string or nil.
- (should-error
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:test: 1\n:END:"
- (org-entry-put 1 "test" 2)))
- ;; Set "TODO" property.
- (should
- (string-match (regexp-quote " TODO H")
- (org-test-with-temp-text "#+TODO: TODO | DONE\n<point>* H"
- (org-entry-put (point) "TODO" "TODO")
- (buffer-string))))
- (should
- (string-match (regexp-quote "* H")
- (org-test-with-temp-text "#+TODO: TODO | DONE\n<point>* H"
- (org-entry-put (point) "TODO" nil)
- (buffer-string))))
- ;; Set "PRIORITY" property.
- (should
- (equal "* [#A] H"
- (org-test-with-temp-text "* [#B] H"
- (org-entry-put (point) "PRIORITY" "A")
- (buffer-string))))
- (should
- (equal "* H"
- (org-test-with-temp-text "* [#B] H"
- (org-entry-put (point) "PRIORITY" nil)
- (buffer-string))))
- ;; Set "SCHEDULED" property.
- (should
- (string-match "* H\n *SCHEDULED: <2014-03-04 .*?>"
- (org-test-with-temp-text "* H"
- (org-entry-put (point) "SCHEDULED" "2014-03-04")
- (buffer-string))))
- (should
- (string= "* H\n"
- (org-test-with-temp-text "* H\nSCHEDULED: <2014-03-04 tue.>"
- (org-entry-put (point) "SCHEDULED" nil)
- (buffer-string))))
- (should
- (string-match "* H\n *SCHEDULED: <2014-03-03 .*?>"
- (org-test-with-temp-text "* H\nSCHEDULED: <2014-03-04 tue.>"
- (org-entry-put (point) "SCHEDULED" "earlier")
- (buffer-string))))
- (should
- (string-match "^ *SCHEDULED: <2014-03-05 .*?>"
- (org-test-with-temp-text "* H\nSCHEDULED: <2014-03-04 tue.>"
- (org-entry-put (point) "SCHEDULED" "later")
- (buffer-string))))
- ;; Set "DEADLINE" property.
- (should
- (string-match "^ *DEADLINE: <2014-03-04 .*?>"
- (org-test-with-temp-text "* H"
- (org-entry-put (point) "DEADLINE" "2014-03-04")
- (buffer-string))))
- (should
- (string= "* H\n"
- (org-test-with-temp-text "* H\nDEADLINE: <2014-03-04 tue.>"
- (org-entry-put (point) "DEADLINE" nil)
- (buffer-string))))
- (should
- (string-match "^ *DEADLINE: <2014-03-03 .*?>"
- (org-test-with-temp-text "* H\nDEADLINE: <2014-03-04 tue.>"
- (org-entry-put (point) "DEADLINE" "earlier")
- (buffer-string))))
- (should
- (string-match "^ *DEADLINE: <2014-03-05 .*?>"
- (org-test-with-temp-text "* H\nDEADLINE: <2014-03-04 tue.>"
- (org-entry-put (point) "DEADLINE" "later")
- (buffer-string))))
- ;; Regular properties, with or without pre-existing drawer.
- (should
- (string-match "^ *:A: +2$"
- (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:"
- (org-entry-put (point) "A" "2")
- (buffer-string))))
- (should
- (string-match "^ *:A: +1$"
- (org-test-with-temp-text "* H"
- (org-entry-put (point) "A" "1")
- (buffer-string))))
- ;; Special case: two consecutive headlines.
- (should
- (string-match "\\* A\n *:PROPERTIES:"
- (org-test-with-temp-text "* A\n** B"
- (org-entry-put (point) "A" "1")
- (buffer-string)))))
- ;;; Radio Targets
- (ert-deftest test-org/update-radio-target-regexp ()
- "Test `org-update-radio-target-regexp' specifications."
- ;; Properly update cache with no previous radio target regexp.
- (should
- (eq 'link
- (org-test-with-temp-text "radio\n\nParagraph\n\nradio"
- (save-excursion (goto-char (point-max)) (org-element-context))
- (insert "<<<")
- (search-forward "o")
- (insert ">>>")
- (org-update-radio-target-regexp)
- (goto-char (point-max))
- (org-element-type (org-element-context)))))
- ;; Properly update cache with previous radio target regexp.
- (should
- (eq 'link
- (org-test-with-temp-text "radio\n\nParagraph\n\nradio"
- (save-excursion (goto-char (point-max)) (org-element-context))
- (insert "<<<")
- (search-forward "o")
- (insert ">>>")
- (org-update-radio-target-regexp)
- (search-backward "r")
- (delete-char 5)
- (insert "new")
- (org-update-radio-target-regexp)
- (goto-char (point-max))
- (delete-region (line-beginning-position) (point))
- (insert "new")
- (org-element-type (org-element-context))))))
- ;;; Visibility
- (ert-deftest test-org/flag-drawer ()
- "Test `org-flag-drawer' specifications."
- ;; Hide drawer.
- (should
- (org-test-with-temp-text ":DRAWER:\ncontents\n:END:"
- (org-flag-drawer t)
- (get-char-property (line-end-position) 'invisible)))
- ;; Show drawer.
- (should-not
- (org-test-with-temp-text ":DRAWER:\ncontents\n:END:"
- (org-flag-drawer t)
- (org-flag-drawer nil)
- (get-char-property (line-end-position) 'invisible)))
- ;; Test optional argument.
- (should
- (org-test-with-temp-text ":D1:\nc1\n:END:\n\n:D2:\nc2\n:END:"
- (let ((drawer (save-excursion (search-forward ":D2")
- (org-element-at-point))))
- (org-flag-drawer t drawer)
- (get-char-property (progn (search-forward ":D2") (line-end-position))
- 'invisible))))
- (should-not
- (org-test-with-temp-text ":D1:\nc1\n:END:\n\n:D2:\nc2\n:END:"
- (let ((drawer (save-excursion (search-forward ":D2")
- (org-element-at-point))))
- (org-flag-drawer t drawer)
- (get-char-property (line-end-position) 'invisible))))
- ;; Do not hide fake drawers.
- (should-not
- (org-test-with-temp-text "#+begin_example\n:D:\nc\n:END:\n#+end_example"
- (forward-line 1)
- (org-flag-drawer t)
- (get-char-property (line-end-position) 'invisible)))
- ;; Do not hide incomplete drawers.
- (should-not
- (org-test-with-temp-text ":D:\nparagraph"
- (forward-line 1)
- (org-flag-drawer t)
- (get-char-property (line-end-position) 'invisible)))
- ;; Do not hide drawers when called from final blank lines.
- (should-not
- (org-test-with-temp-text ":DRAWER:\nA\n:END:\n\n"
- (goto-char (point-max))
- (org-flag-drawer t)
- (goto-char (point-min))
- (get-char-property (line-end-position) 'invisible)))
- ;; Don't leave point in an invisible part of the buffer when hiding
- ;; a drawer away.
- (should-not
- (org-test-with-temp-text ":DRAWER:\ncontents\n:END:"
- (goto-char (point-max))
- (org-flag-drawer t)
- (get-char-property (point) 'invisible))))
- (ert-deftest test-org/hide-block-toggle ()
- "Test `org-hide-block-toggle' specifications."
- ;; Error when not at a block.
- (should-error
- (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents"
- (org-hide-block-toggle 'off)
- (get-char-property (line-end-position) 'invisible)))
- ;; Hide block.
- (should
- (org-test-with-temp-text "#+BEGIN_CENTER\ncontents\n#+END_CENTER"
- (org-hide-block-toggle)
- (get-char-property (line-end-position) 'invisible)))
- (should
- (org-test-with-temp-text "#+BEGIN_EXAMPLE\ncontents\n#+END_EXAMPLE"
- (org-hide-block-toggle)
- (get-char-property (line-end-position) 'invisible)))
- ;; Show block unconditionally when optional argument is `off'.
- (should-not
- (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE"
- (org-hide-block-toggle)
- (org-hide-block-toggle 'off)
- (get-char-property (line-end-position) 'invisible)))
- (should-not
- (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE"
- (org-hide-block-toggle 'off)
- (get-char-property (line-end-position) 'invisible)))
- ;; Hide block unconditionally when optional argument is non-nil.
- (should
- (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE"
- (org-hide-block-toggle t)
- (get-char-property (line-end-position) 'invisible)))
- (should
- (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE"
- (org-hide-block-toggle)
- (org-hide-block-toggle t)
- (get-char-property (line-end-position) 'invisible)))
- ;; Do not hide block when called from final blank lines.
- (should-not
- (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n#+END_QUOTE\n\n<point>"
- (org-hide-block-toggle)
- (goto-char (point-min))
- (get-char-property (line-end-position) 'invisible)))
- ;; Don't leave point in an invisible part of the buffer when hiding
- ;; a block away.
- (should-not
- (org-test-with-temp-text "#+BEGIN_QUOTE\ncontents\n<point>#+END_QUOTE"
- (org-hide-block-toggle)
- (get-char-property (point) 'invisible))))
- (ert-deftest test-org/hide-block-toggle-maybe ()
- "Test `org-hide-block-toggle-maybe' specifications."
- (should
- (org-test-with-temp-text "#+BEGIN: dynamic\nContents\n#+END:"
- (org-hide-block-toggle-maybe)))
- (should-not
- (org-test-with-temp-text "Paragraph" (org-hide-block-toggle-maybe))))
- (provide 'test-org)
- ;;; test-org.el ends here
|