fix: Handle Can't find library error

Author: jcs090218

lisp/_prepare.el

@@ -1432,7 +1432,29 @@ This uses function `locate-dominating-file' to look up directory tree."
                  (ignore-errors (make-directory package-user-dir t))
                  (eask--silent (eask-setup-paths))
                  (eask-with-verbosity 'debug (eask--load-config))
-                 (eask--with-hooks ,@body))))))))))
+                 (eask--with-hooks ,@body))))))
+         ;; Report exit stats if any.
+         (eask--handle-exit-status)))))
+
+(defun eask--error-status ()
+  "Return error status."
+  (let ((result))
+    ;; Error.
+    (when eask--has-error-p
+      (push 'error result))
+    ;; Warning.
+    (when eask--has-warn-p
+      (push (if (eask-strict-p)
+                'error
+              'warn)
+            result))
+    ;; No repeat.
+    (delete-dups result)))
+
+(defun eask--handle-exit-status ()
+  "Return non-nil if we should report error for exit status."
+  (when (memq 'error (eask--error-status))
+    (eask--exit 'failure)))
 
 ;;
 ;;; Eask file
@@ -1991,16 +2013,23 @@ Argument ARGS are direct arguments for functions `eask-error' or `eask-warn'."
 (defun eask--trigger-error ()
   "Trigger error event."
   (when (and (not eask--ignore-error-p)
-             (not (eask-checker-p)))  ; Ignore when checking Eask-file.
-    (if (eask-allow-error-p)  ; Trigger error at the right time.
-        (add-hook 'eask-after-command-hook #'eask--exit)
-      (eask--exit))))
+             (not (eask-allow-error-p))
+             ;; Ignore when checking Eask-file.
+             (not (eask-checker-p)))
+    ;; Stop immediately.
+    (eask--exit 'failure)))
 
 (defun eask--error (fnc &rest args)
   "On error.
 
 Arguments FNC and ARGS are used for advice `:around'."
-  (setq eask--has-error-p t)  ; Just a record.
+  ;; Handle https://github.com/emacs-eask/cli/issues/11.
+  (cond ((< emacs-major-version 28)
+         (unless (string-prefix-p "Can't find library " (car args))
+           (setq eask--has-error-p t)))
+        (t
+         ;; Just a record.
+         (setq eask--has-error-p t)))
   (let ((msg (eask--ansi 'error (apply #'format-message args))))
     (unless eask-inhibit-error-message
       (eask--unsilent (eask-msg "%s" msg)))

test/jest/exec.test.js

@@ -1,14 +1,11 @@
-const cmp = require('semver-compare');
 const { emacsVersion, TestContext } = require("./helpers");
 
 describe("exec", () => {
   const ctx = new TestContext("./test/jest/exec");
 
   beforeAll(async () => {
     await ctx.runEask(
-      "install-deps", { timeout: 40000 },
-      // See https://github.com/emacs-eask/cli/issues/11.
-      cmp(await emacsVersion(), "28.1") == -1);
+      "install-deps", { timeout: 40000 });
   });
 
   afterAll(() => ctx.cleanUp());

test/jest/install.test.js

@@ -14,9 +14,7 @@ describe("install and uninstall", () => {
 
     it("installs project package", async () => {
       // creates dist/<pkg>.tar
-      await ctx.runEask("package", { timeout: 40000 },
-                        // See https://github.com/emacs-eask/cli/issues/11.
-                        cmp(await emacsVersion(), "28.1") == -1);
+      await ctx.runEask("package");
       // installs dependencies and generated package
       await ctx.runEask("install");
       const { stderr } = await ctx.runEask("list");
@@ -41,18 +39,13 @@ describe("install and uninstall", () => {
     });
 
     it("uninstalls project package", async () => {
-      await ctx.runEask("uninstall", { timeout: 40000 },
-                        // See https://github.com/emacs-eask/cli/issues/11.
-                        cmp(await emacsVersion(), "28.1") == -1);
+      await ctx.runEask("uninstall");
       const { stderr } = await ctx.runEask("list");
       expect(stderr).not.toMatch(packageName);
     });
 
     it("installs dependencies", async () => {
-      const { stderr } = await ctx.runEask(
-        "install-deps", { timeout: 40000 },
-        // See https://github.com/emacs-eask/cli/issues/11.
-        cmp(await emacsVersion(), "28.1") == -1);
+      const { stderr } = await ctx.runEask("install-deps");
       expect(stderr).not.toMatch(packageName);
     });
 

test/jest/local.test.js

@@ -4,7 +4,6 @@
 // Notice, below we clone a random package (repo) that uses Eask as the
 // dependencies management tool.
 
-const cmp = require('semver-compare');
 const { emacsVersion, TestContext } = require("./helpers");
 
 describe("local", () => {
@@ -15,10 +14,7 @@ describe("local", () => {
   //       this is because of recipe dependencies triggering
   //       "temporary archives" build.
   beforeAll(async () => {
-    await ctx.runEask(
-      "install-deps", { timeout: 40000 },
-      // See https://github.com/emacs-eask/cli/issues/11.
-      cmp(await emacsVersion(), "28.1") == -1);
+    await ctx.runEask("install-deps", { timeout: 40000 });
   });
 
   afterAll(() => ctx.cleanUp());
@@ -84,10 +80,7 @@ describe("local", () => {
 
   describe("Development", () => {
     beforeAll(async () => {
-      await ctx.runEask(
-        "install-deps", { timeout: 40000 },
-        // See https://github.com/emacs-eask/cli/issues/11.
-        cmp(await emacsVersion(), "28.1") == -1)
+      await ctx.runEask("install-deps", { timeout: 40000 });
     });
 
     // this requires install-deps
@@ -123,9 +116,7 @@ describe("local", () => {
 
   describe("Execution", () => {
     beforeAll(async () => {
-      await ctx.runEask("install-deps", { timeout: 40000 },
-                        // See https://github.com/emacs-eask/cli/issues/11.
-                        cmp(await emacsVersion(), "28.1") == -1)
+      await ctx.runEask("install-deps", { timeout: 40000 });
     });
 
     test("eval", async () => {
@@ -212,15 +203,14 @@ describe("local", () => {
   describe("Linting", () => {
     // some lint commands may fail if packages are missing
     beforeAll(async () => {
-      await ctx.runEask("install-deps", { timeout: 40000 },
-                        // See https://github.com/emacs-eask/cli/issues/11.
-                        cmp(await emacsVersion(), "28.1") == -1)
+      await ctx.runEask("install-deps", { timeout: 40000 });
     });
 
     it.each([
       "lint checkdoc",
       "lint declare",
       "lint elint",
+      "lint elisp-lint",
       "lint indent",
       "lint keywords",
       "lint license",
@@ -234,12 +224,6 @@ describe("local", () => {
       await ctx.runEask("lint elsa");
     });
 
-    it("lint elint", async () => {
-      await ctx.runEask("lint elisp-lint", { },
-                        // See https://github.com/emacs-eask/cli/issues/11.
-                        cmp(await emacsVersion(), "28.1") == -1);
-    });
-
     it("lint regexps", async () => {
       if (cmp(await emacsVersion(), "27.1") == 1) {
         await ctx.runEask("lint regexps");

test/jest/outdated-upgrade.test.js

@@ -1,14 +1,10 @@
-const cmp = require('semver-compare');
 const { emacsVersion, TestContext } = require("./helpers");
 
 describe("outdated and upgrade", () => {
   const ctx = new TestContext("./test/jest/outdated-upgrade");
 
   beforeAll(async () => {
-    await ctx.runEask(
-      "install-deps", { timeout: 40000 },
-      // See https://github.com/emacs-eask/cli/issues/11.
-      cmp(await emacsVersion(), "28.1") == -1);
+    await ctx.runEask("install-deps", { timeout: 40000 });
     await ctx.runEask("load make-outdate.el");
   });