From e0e740b28980242db4757c336fdc49d7038eb483 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 18 Feb 2013 20:49:43 +0100 Subject: [PATCH] ox: Add test for :minlevel parameter in INCLUDE keywords * testing/lisp/test-ox.el (test-org-export/expand-include): Add test. --- testing/lisp/test-ox.el | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index 2b5090eff..1bf21ded9 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" -- 2.11.4.GIT