emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]