[nongnu] elpa/webpaste ca539eb 101/298: Rename and update tests for provider priority

[ELPA Syncer]

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

    Rename and update tests for provider priority
    
     - Rename webpaste--get-provider-priority to
       webpaste/get-provider-priority
     - Make the two tests one for better naming but same coverage
---
 test/webpaste-test.el | 27 ++++++++++++++-------------
 webpaste.el           |  4 ++--
 2 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/test/webpaste-test.el b/test/webpaste-test.el
index dabfe70..622fdf4 100644
--- a/test/webpaste-test.el
+++ b/test/webpaste-test.el
@@ -15,28 +15,29 @@
 
 
 
-(ert-deftest webpaste--autopupulate-provider-priority ()
-  "Test autopopulate of webpaste-provider-priority."
+(ert-deftest webpaste-test/get-provider-priority ()
+  "Test how it populates webpaste/get-provider-priority."
 
+  ;;; Test autopopulation of list based on providers avaliable
+  ;; Prepare variables
   (setq-default webpaste-provider-priority nil)
   (setq-default webpaste-providers-alist
-                (list (list "provider1" "lamba")
-                      (list "provider2" "lamba")
-                      (list "provider3" "lamba")))
+                (list (list "provider1" "lambda")
+                      (list "provider2" "lambda")
+                      (list "provider3" "lambda")))
 
-  (should (equal (webpaste--get-provider-priority)
-                 '("provider1" "provider2" "provider3"))))
-
-
-
-(ert-deftest webpaste--static-provider-priority ()
-  "Test static configuration of webpaste-provider-priority."
+  ;; Do test
+  (should (equal (webpaste/get-provider-priority)
+                 '("provider1" "provider2" "provider3")))
 
+  ;;; Test static population of provider priority
+  ;; Prepare variables
   (setq-default webpaste-provider-priority
                 '("provider2" "provider1" "provider3"))
   (setq-default webpaste-providers-alist '())
 
-  (should (equal (webpaste--get-provider-priority)
+  ;; Do test
+  (should (equal (webpaste/get-provider-priority)
                  '("provider2" "provider1" "provider3"))))
 
 
diff --git a/webpaste.el b/webpaste.el
index 13351d8..2147333 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -167,7 +167,7 @@ return it to the user."
                  :value-type (sexp :tag "webpaste-provider macro definition 
for the provider")))
 
 
-(defun webpaste--get-provider-priority ()
+(defun webpaste/get-provider-priority ()
   "Return provider priority."
 
   ;; Populate webpaste-provider-priority if needed
@@ -216,7 +216,7 @@ When we run out of providers to try, it will restart since
 
   ;; Populate tested providers for this request if needed
   (if (eq webpaste-tested-providers nil)
-      (setq webpaste-tested-providers (webpaste--get-provider-priority)))
+      (setq webpaste-tested-providers (webpaste/get-provider-priority)))
 
   ;; Get name of provider at the top of the list
   (let ((provider-name (car webpaste-tested-providers)))