Преглед на файлове

org-num: Add tests

* testing/lisp/test-org-num.el (test-org-num/skip-numbering): Add
tests. This is a followup to 40474827eade4ab4d3667b4dde5f0833562c7b87.
Nicolas Goaziou преди 4 години
родител
ревизия
66537267eb
променени са 1 файла, в които са добавени 19 реда и са изтрити 0 реда
  1. 19 0
      testing/lisp/test-org-num.el

+ 19 - 0
testing/lisp/test-org-num.el

@@ -154,6 +154,25 @@
           (org-test-with-temp-text
               "* H1\n:PROPERTIES:\n:UNNUMBERED: t\n:END:\n** H2"
             (let ((org-num-skip-unnumbered t)) (org-num-mode 1))
+            (mapcar (lambda (o) (overlay-get o 'after-string))
+                    (overlays-in (point-min) (point-max))))))
+  ;; Do not choke on empty headlines.
+  (should
+   (equal '("1 ")
+          (org-test-with-temp-text "* "
+            (let ((org-num-skip-commented t)) (org-num-mode 1))
+            (mapcar (lambda (o) (overlay-get o 'after-string))
+                    (overlays-in (point-min) (point-max))))))
+  (should
+   (equal '("1 ")
+          (org-test-with-temp-text "* "
+            (let ((org-num-skip-unnumbered t)) (org-num-mode 1))
+            (mapcar (lambda (o) (overlay-get o 'after-string))
+                    (overlays-in (point-min) (point-max))))))
+  (should
+   (equal '("1 ")
+          (org-test-with-temp-text "* "
+            (let ((org-num-skip-footnotes t)) (org-num-mode 1))
             (mapcar (lambda (o) (overlay-get o 'after-string))
                     (overlays-in (point-min) (point-max)))))))