[elpa] externals/ivy-hydra c1a61dc 084/395: ivy-test.el (ivy-empty-directory-open): Test opening empty directory

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit c1a61dc8dc593a3b783349c37725a0e8c1c93032
Author: Spenser Truex <web@spensertruex.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    ivy-test.el (ivy-empty-directory-open): Test opening empty directory
    
    Test counsel-find-file and ivy's read-directory name opening an empty
    directory without input.
    Re #2368
    Fixes #2373
---
 ivy-test.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/ivy-test.el b/ivy-test.el
index d5b34f1..fb6d849 100644
--- a/ivy-test.el
+++ b/ivy-test.el
@@ -27,6 +27,7 @@
 ;;; Code:
 
 (defvar require-features nil)
+(defvar ivy-empty "tests/find-file/empty-dir/")
 
 (defadvice require (before ivy-tests-require-hook (feature &rest _) activate)
   "Record the requires into `require-features'."
@@ -983,6 +984,12 @@ will bring the behavior in line with the newer Emacsen."
 
 (ert-deftest ivy-read-directory-name ()
   (ivy-mode 1)
+  (unless (file-exists-p ivy-empty)
+    (make-directory ivy-empty))
+  (should (equal (expand-file-name ivy-empty)
+                 (ivy-with
+                  '(read-directory-name "cd: " ivy-empty nil t)
+                  "RET")))
   (should
    (equal (expand-file-name "/tmp/")
           (ivy-with
@@ -1460,6 +1467,15 @@ a buffer visiting a file."
                   "C-n C-m")
                  2)))
 
+(ert-deftest ivy-empty-directory-open ()
+  (unless (file-exists-p ivy-empty)
+    (make-directory ivy-empty))
+  (should (string= (file-relative-name
+                    (ivy-with '(counsel-find-file)
+                              "RET"
+                              :dir ivy-empty))
+                   ivy-empty)))
+
 (defun ivy-test-run-tests ()
   (let ((test-sets
          '(