Add test for target that fails

psibi · Jun 25, 2022 · 42048cc · 42048cc
1 parent 0c0b852
commit 42048cc
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/test/justfile b/test/justfile
@@ -17,3 +17,7 @@ plan:
 
 push2 version1 version2:
     echo {{version1}} {{version2}}
+
+# A target that will fail
+fail:
+    exit 1
diff --git a/test/justl-test.el b/test/justl-test.el
@@ -10,7 +10,7 @@
 
 (ert-deftest justl--get-recipies-test ()
   (should (equal
-           (list "default" "build-cmd" "plan" "push" "push2")
+           (list "default" "build-cmd" "plan" "push" "push2" "fail")
            (justl--get-recipies))))
 
 (ert-deftest justl--list-to-recipe-test ()
@@ -189,6 +189,18 @@
   (kill-buffer (justl--buffer-name))
   (kill-buffer justl--output-process-buffer))
 
+(ert-deftest justl--fail-recipe ()
+  (justl)
+  (with-current-buffer (justl--buffer-name)
+    (search-forward "fail")
+    (justl-exec-recipe)
+    (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))))
+  (kill-buffer (justl--buffer-name))
+  (kill-buffer justl--output-process-buffer))
+
 (ert-deftest justl--find-justfiles-check ()
   (should (equal (f-filename (justl--find-justfiles default-directory)) "justfile")))
 
@@ -199,7 +211,7 @@
     (should (member (list "push" nil) recipies))
     (should (member (list "push2" nil) recipies))))
 
-;; (ert "justl--**")
+(ert "justl--**")
 
 (provide 'justl-test)
 ;;; justl-test.el ends here