[#703] Add test cases based on the issue report

Fuco1 · Mar 4, 2018 · 4095e9e · 4095e9e
1 parent 8efc55c
commit 4095e9e
Showing 1 changed file with 35 additions and 0 deletions.
diff --git a/test/smartparens-delete-selection-test.el b/test/smartparens-delete-selection-test.el
@@ -83,3 +83,38 @@
     (sp-test-with-temp-binding ("d" 'sp-backward-delete-char)
       (execute-kbd-macro "d"))
     (sp-buffer-equals "(fo|ar)")))
+
+;; #703
+(ert-deftest sp-test-delete-selection-mode/empty-sexp/point-before-mark ()
+  (sp-test-delsel "(|
+
+M)"
+    (sp-test-with-temp-binding ("d" 'sp-backward-delete-char)
+      (execute-kbd-macro "d"))
+    (sp-buffer-equals "(|M)")))
+
+(ert-deftest sp-test-delete-selection-mode/empty-sexp/point-after-mark ()
+  (sp-test-delsel "(M
+
+|)"
+    (sp-test-with-temp-binding ("d" 'sp-backward-delete-char)
+      (execute-kbd-macro "d"))
+    (sp-buffer-equals "(M|)")))
+
+(ert-deftest sp-test-delete-selection-mode/nonstrict/empty-sexp/point-before-mark ()
+  (sp-test-delsel "(|
+
+M)"
+    (smartparens-strict-mode -1)
+    (sp-test-with-temp-binding ("d" 'sp-backward-delete-char)
+      (execute-kbd-macro "d"))
+    (sp-buffer-equals "(|M)")))
+
+(ert-deftest sp-test-delete-selection-mode/nonstrict/empty-sexp/point-after-mark ()
+  (sp-test-delsel "(M
+
+|)"
+    (smartparens-strict-mode -1)
+    (sp-test-with-temp-binding ("d" 'sp-backward-delete-char)
+      (execute-kbd-macro "d"))
+    (sp-buffer-equals "(M|)")))