Added unit test for appending of language to returning links

9 years ago · d2ed48a809
parent 7b84568217
commit d2ed48a809
1 changed files with 10 additions and 1 deletions
--- a/test/webpaste-test.el
+++ b/test/webpaste-test.el
@ -110,7 +110,16 @@
    (let ((webpaste/open-in-browser t)(webpaste-test/opened-in-browser nil))
      (webpaste-return-url "https://example.com/")

-      (should (equal webpaste-test/opened-in-browser t)))))
+      (should (equal webpaste-test/opened-in-browser t))))
+
+  ;; Test appending of language to links when returning
+  (let ((webpaste/provider-separators
+         '(("https://example.com/" . "?lang=")))
+        (webpaste/provider-lang-alists
+         '(("https://example.com/" . ((fundamental-mode . "text"))))))
+
+    (should (equal (webpaste-return-url "https://example.com/")
+                   "Added \"https://example.com/?lang=text\" to kill ring."))))