tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox: Add test for :minlevel parameter in INCLUDE keywords 

* testing/lisp/test-ox.el (test-org-export/expand-include): Add test.
This commit is contained in:
Nicolas Goaziou 2013-02-18 20:49:43 +01:00
parent 1513f89f7e
commit e0e740b289
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
testing/lisp/test-ox.el
View File

@ -485,12 +485,24 @@ body\n")))
(should (equal (buffer-string)
"Small Org file with an include keyword.\n")))
;; Insertion with constraints on headlines level.
(org-test-with-temp-text
(format
"* Top heading\n#+INCLUDE: \"%s/examples/include.org\" :lines \"9-\""
org-test-dir)
(org-export-expand-include-keyword)
(should (equal (buffer-string) "* Top heading\n** Heading\nbody\n")))
(should
(equal
"* Top heading\n** Heading\nbody\n"
(org-test-with-temp-text
(format
"* Top heading\n#+INCLUDE: \"%s/examples/include.org\" :lines \"9-\""
org-test-dir)
(org-export-expand-include-keyword)
(buffer-string))))
(should
(equal
"* Top heading\n* Heading\nbody\n"
(org-test-with-temp-text
(format
"* Top heading\n#+INCLUDE: \"%s/examples/include.org\" :lines \"9-\" :minlevel 1"
org-test-dir)
(org-export-expand-include-keyword)
(buffer-string))))
;; Inclusion within an example block.
(org-test-with-temp-text
(format "#+INCLUDE: \"%s/examples/include.org\" :lines \"1-2\" example"