[nongnu] elpa/webpaste 26b4d21 192/298: Added test of appending mode name to post data

[ELPA Syncer]

branch: elpa/webpaste
commit 26b4d21412b6e8814b51b057fd36cc7c222f2f69
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>

    Added test of appending mode name to post data
---
 .../test-webpaste-default-post-field-lambda.el     | 27 ++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/tests/unit/test-webpaste-default-post-field-lambda.el 
b/tests/unit/test-webpaste-default-post-field-lambda.el
new file mode 100644
index 0000000..d59e5c5
--- /dev/null
+++ b/tests/unit/test-webpaste-default-post-field-lambda.el
@@ -0,0 +1,27 @@
+;;; test-webpaste-default-post-field-lambda.el --- Tests for webpaste
+;;; Commentary:
+;;; Code:
+
+(load "tests/load-undercover.el")
+(require 'webpaste)
+
+(describe
+ "Default post field lambda"
+ (it
+  "can add language and text as post data"
+
+  (let ((post-lambda (webpaste-providers-default-post-field-lambda))
+        (major-mode 'fundamental-mode)
+        (webpaste-provider-lang-alists '(("https://example.com/"; . 
((fundamental-mode . "text"))))))
+    (let ((post-data (funcall post-lambda
+                              :text "my text"
+                              :post-field "content"
+                              :provider-uri "https://example.com/";
+                              :post-lang-field-name "lang"
+                              :post-data '(("duration" . "1 day")))))
+      (expect post-data
+              :to-equal
+              '(("lang" . "text") ("content" . "my text") ("duration" . "1 
day")))))))
+
+
+;;; test-webpaste-default-post-field-lambda.el ends here