[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 93b81d4: gited: Add test for the last fixed bug
From: |
Tino Calancha |
Subject: |
[elpa] master 93b81d4: gited: Add test for the last fixed bug |
Date: |
Sat, 7 Sep 2019 03:01:48 -0400 (EDT) |
branch: master
commit 93b81d4b45031109059c2c75c423616669ef0c02
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>
gited: Add test for the last fixed bug
* packages/gited/gited-tests.el
(gited-output-buffer-default-directory-test):
New test.
---
packages/gited/gited-tests.el | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
diff --git a/packages/gited/gited-tests.el b/packages/gited/gited-tests.el
index fff6de5..8d976c2 100644
--- a/packages/gited/gited-tests.el
+++ b/packages/gited/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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 93b81d4: gited: Add test for the last fixed bug,
Tino Calancha <=