From 0b5a8336386801d6460e687ab199a47aae87cd32 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Thu, 5 Oct 2017 01:22:29 +0200
Subject: [PATCH] org/org: add tests for +org/insert-item

---
 modules/org/org/test/autoload-org.el | 42 ++++++++++++++++++++++++++++
 modules/org/org/test/org.el          |  5 ++++
 2 files changed, 47 insertions(+)
 create mode 100644 modules/org/org/test/autoload-org.el
 create mode 100644 modules/org/org/test/org.el

diff --git a/modules/org/org/test/autoload-org.el b/modules/org/org/test/autoload-org.el
new file mode 100644
index 000000000..d9ac443d0
--- /dev/null
+++ b/modules/org/org/test/autoload-org.el
@@ -0,0 +1,42 @@
+;; -*- no-byte-compile: t; -*-
+;;; org/org/test/autoload-org.el
+
+(defmacro should-org-buffer! (source expected &rest body)
+  `(should-buffer! ,source ,expected
+     (org-mode)
+     ,@body))
+
+
+;; `+org/insert-item'
+(def-test! insert-item-h1
+  "Should append/prepend new first-level headers with an extra newline."
+  (should-org-buffer! ("* {0}Header") ("* Header\n\n* {|}")
+    (+org/insert-item 'below))
+  (should-org-buffer! ("* {0}Header") ("* {|}\n\n* Header")
+    (+org/insert-item 'above)))
+
+(def-test! insert-item-h2
+  "Should append/prepend new second-level (and higher) headers without an extra
+newline."
+  (should-org-buffer! ("** {0}Header") ("** Header\n** {|}")
+    (+org/insert-item 'below))
+  (should-org-buffer! ("** {0}Header") ("** {|}\n** Header")
+    (+org/insert-item 'above)))
+
+(def-test! insert-item-plain-list
+  "Should append/prepend new second-level (and higher) headers without an extra
+newline."
+  (should-org-buffer! ("+ {0}List item") ("+ List item\n+ {|}")
+    (+org/insert-item 'below))
+  (should-org-buffer! ("+ {0}List item"
+                       "  + Sub item")
+                      ("+ List item"
+                       "  + Sub item"
+                       "+ {|}")
+    (+org/insert-item 'below))
+  (should-org-buffer! ("+ {0}List item"
+                       "+ Next item")
+                      ("+ List item"
+                       "+ {|}"
+                       "+ Next item")
+    (+org/insert-item 'below)))
diff --git a/modules/org/org/test/org.el b/modules/org/org/test/org.el
new file mode 100644
index 000000000..d91044ff9
--- /dev/null
+++ b/modules/org/org/test/org.el
@@ -0,0 +1,5 @@
+;;; org/org/test/org.el -*- lexical-binding: t; -*-
+
+(when (featurep 'org) (unload-feature 'org t))
+(require! :org org)
+(require 'org (locate-library "org" nil doom--package-load-path))