From 26b4d21412b6e8814b51b057fd36cc7c222f2f69 Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Mon, 5 Jun 2017 20:29:23 +0200 Subject: [PATCH] Added test of appending mode name to post data --- ...test-webpaste-default-post-field-lambda.el | 27 +++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 tests/unit/test-webpaste-default-post-field-lambda.el 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