[nongnu] elpa/pacmacs cf693bef1c 173/472: UTs for pacmacs--levelname-from-filename function

[ELPA Syncer]

branch: elpa/pacmacs
commit cf693bef1c41bc3cded9aed8099d6d7122837dfa
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    UTs for pacmacs--levelname-from-filename function
    
    Hope it will help to catch regressions of #116 if there will be any.
---
 pacmacs-utils.el           | 5 ++---
 test/pacmacs-utils-test.el | 4 ++++
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/pacmacs-utils.el b/pacmacs-utils.el
index 5d6a643bdf..46371219ba 100644
--- a/pacmacs-utils.el
+++ b/pacmacs-utils.el
@@ -78,9 +78,8 @@ side-effects."
     (buffer-string)))
 
 (defun pacmacs--levelname-from-filename (filename)
-  (let ((text filename))
-    (when (string-match "\\(map[0-9]+\\)\\.txt" text)
-      (match-string 1 text))))
+  (when (string-match "\\(map[0-9]+\\)\\.txt" filename)
+    (match-string 1 filename)))
 
 (provide 'pacmacs-utils)
 
diff --git a/test/pacmacs-utils-test.el b/test/pacmacs-utils-test.el
index 378045dce3..642bf7767f 100644
--- a/test/pacmacs-utils-test.el
+++ b/test/pacmacs-utils-test.el
@@ -5,3 +5,7 @@
     (should (equal (list :foo 1
                          :bar 3)
                    plist))))
+
+(ert-deftest pacmacs--levelname-from-filename-test ()
+  (should (equal "map06" (pacmacs--levelname-from-filename "map06.txt")))
+  (should (not (pacmacs--levelname-from-filename "."))))