[nongnu] elpa/webpaste 2c399a0 243/298: Tests: Add unit tests for shebangs to override major-mode

[ELPA Syncer]

branch: elpa/webpaste
commit 2c399a0f80bc488312035e3f8a34288cb5988f2b
Author: Elis Hirwing <elis@hirwing.se>
Commit: Elis Hirwing <elis@hirwing.se>

    Tests: Add unit tests for shebangs to override major-mode
---
 tests/unit/test-webpaste-get-language.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/tests/unit/test-webpaste-get-language.el 
b/tests/unit/test-webpaste-get-language.el
index eb2ee81..17d9e4a 100644
--- a/tests/unit/test-webpaste-get-language.el
+++ b/tests/unit/test-webpaste-get-language.el
@@ -27,6 +27,19 @@
     ;; contains a bash shebang.
     (expect (webpaste--get-shebang-lang-mode)
             :to-equal
-            'bash-mode))))
+            'bash-mode)))
+
+ (it
+  "will use shebangs before major-mode"
+
+  ;; Setup.
+  (let ((major-mode 'fundamental-mode)
+        (webpaste--provider-lang-alists '(("https://example.com/"; .
+                                           ((fundamental-mode . "text")
+                                            (bash-mode . "bash"))))))
+
+    (expect (webpaste--get-buffer-language "https://example.com/";)
+            :to-equal
+            "bash"))))
 
 ;;; test-webpaste-get-language.el ends here