瀏覽代碼

ox: Add test for :minlevel parameter in INCLUDE keywords

* testing/lisp/test-ox.el (test-org-export/expand-include): Add test.
Nicolas Goaziou 12 年之前
父節點
當前提交
e0e740b289
共有 1 個文件被更改,包括 18 次插入6 次删除
  1. 18 6
      testing/lisp/test-ox.el

+ 18 - 6
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"