[elpa] externals/gited 86f6564 69/73: gited: Add test for the last fixed bug

[Stefan Monnier]

branch: externals/gited
commit 86f65648adb85f11fe7eb7a9dffd43da25eb7a86
Author: Tino Calancha <tino.calancha@gmail.com>
Commit: Tino Calancha <tino.calancha@gmail.com>

    gited: Add test for the last fixed bug
    
    * packages/gited/gited-tests.el 
(gited-output-buffer-default-directory-test):
    New test.
---
 gited-tests.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gited-tests.el b/gited-tests.el
index fff6de5..8d976c2 100644
--- a/gited-tests.el
+++ b/gited-tests.el
@@ -213,5 +213,25 @@ git diff master foo --."
       (with-specified-completion-branch gited-initial-filename
         (should-not (gited-diff "master"))))))
 
+(ert-deftest gited-output-buffer-default-directory-test ()
+  "Test that `gited-output-buffer' `default-directory' equals 
`gited-top-level-dir'."
+  (skip-unless (executable-find vc-git-program))
+  (let* ((dir (make-temp-file "gited" 'dir))
+         (subdir (expand-file-name "subdir" dir))
+         (new-file (expand-file-name "new-file" subdir))
+         (inhibit-message t)
+         toplevel-dir)
+    (with-gited-repo dir
+      (setq toplevel-dir gited-toplevel-dir)
+      (make-directory subdir)
+      (write-region "hello" nil new-file)
+      (gited-git-command `("add" ,new-file))
+      (gited-git-command `("commit" "-m" "Add new-file inside a subdir"))
+      ;; Create `gited-output-buffer' from subdir; this new buffer must
+      ;; have `default-directory' set to `gited-toplevel-dir'
+      (cd subdir)
+      (with-current-buffer (gited--output-buffer)
+        (should (equal default-directory toplevel-dir))))))
+
 (provide 'gited-tests)
 ;;; gited-tests.el ends here