[nongnu] elpa/webpaste 20da215 271/298: Add unit tests for pasting buffer OR region depending on context

[ELPA Syncer]

branch: elpa/webpaste
commit 20da215c5001f37a8caafb9a199efbb10b9d5020
Author: Markus Pettersson <markus.pettersson1998@gmail.com>
Commit: Markus Pettersson <markus.pettersson1998@gmail.com>

    Add unit tests for pasting buffer OR region depending on context
---
 .../unit/test-webpaste-paste-region-and-buffer.el  | 31 ++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/tests/unit/test-webpaste-paste-region-and-buffer.el 
b/tests/unit/test-webpaste-paste-region-and-buffer.el
index 715dbe1..d6928cc 100644
--- a/tests/unit/test-webpaste-paste-region-and-buffer.el
+++ b/tests/unit/test-webpaste-paste-region-and-buffer.el
@@ -81,4 +81,35 @@
             (buffer-substring 10 100)))))
 
 
+(describe
+    "Paste buffer or region, but only choose one at a time depending on 
context"
+
+  (before-each
+    (spy-on 'webpaste-paste-buffer)
+    (spy-on 'webpaste-paste-region))
+
+  (after-each
+    (deactivate-mark))
+
+  (with-temp-buffer
+    (insert-file-contents "README.org")
+
+    (it "can paste entire buffers"
+      ;; Paste buffer
+      (webpaste-paste-buffer-or-region)
+      (expect 'webpaste-paste-buffer :to-have-been-called-times 1)
+      (expect 'webpaste-paste-region :to-have-been-called-times 0))
+
+    (it "can paste selected region"
+      ;; Mock selection of region
+      (set-mark 10)
+      (goto-char 100)
+      (activate-mark)
+
+      ;; Paste region
+      (webpaste-paste-buffer-or-region)
+      (expect 'webpaste-paste-buffer :to-have-been-called-times 0)
+      (expect 'webpaste-paste-region :to-have-been-called-times 1))))
+
+
 ;;; test-webpaste-paste-region-and-buffer.el ends here