diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-18 20:49:43 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-18 20:49:43 +0100 |
| commit | e0e740b28980242db4757c336fdc49d7038eb483 (patch) | |
| tree | ee4598578d27f348811df69e8eadd6e54c8742e2 | |
| parent | 1513f89f7ead6e945378252c1c28721436c784a4 (diff) | |
| download | org-mode-e0e740b28980242db4757c336fdc49d7038eb483.tar.gz | |
ox: Add test for :minlevel parameter in INCLUDE keywords
* testing/lisp/test-ox.el (test-org-export/expand-include): Add test.
| -rw-r--r-- | testing/lisp/test-ox.el | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index 2b5090e..1bf21de 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -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" |