From 2ad581c88c8622ec8f2017b7f265a9b22f18900f Mon Sep 17 00:00:00 2001 From: Sibi Prabakaran Date: Wed, 9 Aug 2023 11:39:38 +0530 Subject: [PATCH] Update tests --- justl.el | 1 + test/justl-test.el | 13 ++++++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/justl.el b/justl.el index ef9d561..34414a7 100644 --- a/justl.el +++ b/justl.el @@ -76,6 +76,7 @@ (require 'compile) (require 'comint) (require 'subr-x) +(require 'tramp) (defgroup justl nil "Justfile customization group." diff --git a/test/justl-test.el b/test/justl-test.el index 589d779..2577adf 100644 --- a/test/justl-test.el +++ b/test/justl-test.el @@ -12,7 +12,7 @@ (should (equal (list "default" "build-cmd" "plan" "push" "push2" "fail" "carriage-return" "color") - (justl--get-recipies)))) + (justl--get-recipies "./justfile")))) (ert-deftest justl--list-to-recipe-test () (should (equal @@ -257,7 +257,8 @@ (justl--wait-till-exit justl--output-process-buffer) (with-current-buffer justl--output-process-buffer (let ((buf-string (buffer-substring-no-properties (point-min) (point-max)))) - (should (s-contains? "planner" buf-string))))) + (should (s-contains? "planner" buf-string)))) + (kill-buffer justl--output-process-buffer)) (ert-deftest justl--execute-interactive-recipe-failure () "Checks justl-exec-recipe-in-dir indrectly (failure case)." @@ -265,7 +266,8 @@ (justl--wait-till-exit justl--output-process-buffer) (with-current-buffer justl--output-process-buffer (let ((buf-string (buffer-substring-no-properties (point-min) (point-max)))) - (should (s-contains? "exited abnormally" buf-string))))) + (should (s-contains? "exited abnormally" buf-string)))) + (kill-buffer justl--output-process-buffer)) (ert-deftest justl--execute-interactive-recipe-multiple-args () "Checks justl-exec-recipe-in-dir indrectly (failure case)." @@ -273,9 +275,10 @@ (justl--wait-till-exit justl--output-process-buffer) (with-current-buffer justl--output-process-buffer (let ((buf-string (buffer-substring-no-properties (point-min) (point-max)))) - (should (s-contains? "ver1" buf-string))))) + (should (s-contains? "ver1" buf-string)))) + (kill-buffer justl--output-process-buffer)) -;; (ert "justl--**") +(ert "justl--**") (provide 'justl-test) ;;; justl-test.el ends here