Add exit code tests

.github/workflows/test_exit-status.yml

@@ -0,0 +1,54 @@
+name: Test Exit Status of Commands
+
+on:
+  push:
+    branches:
+      - master
+    paths:
+      - 'eask'
+      - '**.yml'
+      - lisp/**
+      - cmds/**
+      - src/**
+      - test/**
+  pull_request:
+    branches:
+      - master
+    paths-ignore:
+    - '**.md'
+  workflow_dispatch:
+
+concurrency:
+  group: ${{ github.workflow }}-${{ github.ref }}
+  cancel-in-progress: true
+
+jobs:
+  test:
+    runs-on: ${{ matrix.os }}
+    strategy:
+      fail-fast: false
+      matrix:
+        os: [ubuntu-latest, macos-latest, windows-latest]
+        emacs-version:
+          - 29.4
+
+    steps:
+    - uses: jcs090218/setup-emacs@master
+      with:
+        version: ${{ matrix.emacs-version }}
+
+    - uses: actions/checkout@v4
+
+    - name: Prepare Eask (Unix)
+      if: matrix.os == 'ubuntu-latest' || matrix.os == 'macos-latest'
+      run: |
+        chmod -R 777 ./
+        .github/scripts/setup-eask
+
+    - name: Prepare Eask (Windows)
+      if: matrix.os == 'windows-latest'
+      run: .github/scripts/setup-eask.ps1
+
+    - name: Testing...
+      run: |
+        make test-exit-status

Makefile

@@ -19,3 +19,22 @@ color:
 
 error:
 	./test/error/run.sh
+
+test-exit-status:
+	./test/exit-status/clean/run.sh
+	./test/exit-status/compile/run.sh
+	./test/exit-status/create/run.sh
+	./test/exit-status/eval/run.sh
+	./test/exit-status/format/run.sh
+	./test/exit-status/generate/run.sh
+	./test/exit-status/install/run.sh
+	./test/exit-status/install-deps/run.sh
+	./test/exit-status/link/run.sh
+	./test/exit-status/lint/run.sh
+	./test/exit-status/load/run.sh
+	./test/exit-status/package/run.sh
+	./test/exit-status/refresh/run.sh
+	./test/exit-status/reinstall/run.sh
+	./test/exit-status/run/run.sh
+	./test/exit-status/test/run.sh
+	./test/exit-status/uninstall/run.sh

test/exit-status/clean/Eask

@@ -0,0 +1 @@
+(package "check-clean" "0.0.1" "mock package")

test/exit-status/clean/mock.el

@@ -0,0 +1,5 @@
+;;;###autoload
+(defun my-ignore-fn ()
+  "Mock for testing"
+  (interactive)
+  (message "foo"))

test/exit-status/clean/run.sh

@@ -0,0 +1,57 @@
+#!/usr/bin/env bash
+
+# Copyright (C) 2022-2024 the Eask authors.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+## Commentary:
+#
+# Tests "clean" command's option handling and error behaviour.
+
+set -e
+
+source ./test/fixtures/home/scripts/testing.sh
+cd $(dirname "$0")
+
+echo "Preparing test"
+# clean elc should work
+eask compile mock.el
+if [ ! -f ./mock.elc ]; then
+    echo "failed to create .elc files"
+    exit 1
+fi
+
+echo "Test clean command"
+
+# partial input
+should_error eask clean
+
+should_run eask clean elc
+
+# dist is write protected
+# FIXME either or both of these should error
+# should_error eask clean dist
+# should_error eask clean dist --strict
+
+# recompile to use for --allow-error
+eask compile mock.el
+
+# FIXME
+# expect that clean dist fails and clean elc succeeds
+# should_error eask clean all --allow-error
+
+# if [ -f ./mock.elc ]; then
+#     echo "expected .elc files to be removed by eask clean all"
+#     exit 1
+# fi

test/exit-status/compile/Eask

@@ -0,0 +1 @@
+(package "check" "0.0.1" "mock package")

test/exit-status/compile/fail.el

@@ -0,0 +1,3 @@
+;; -*- lexical-binding: t -*-
+;; this must fail to compile
+(fail "" (

test/exit-status/compile/mock.el

@@ -0,0 +1,5 @@
+;;;###autoload
+(defun my-ignore-fn ()
+  "Mock for testing"
+  (interactive)
+  (message "foo"))

test/exit-status/compile/run.sh

@@ -0,0 +1,47 @@
+#!/usr/bin/env bash
+
+# Copyright (C) 2022-2024 the Eask authors.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+## Commentary:
+#
+# Tests "compile" command's option handling and error behaviour.
+
+set -e
+
+source ./test/fixtures/home/scripts/testing.sh
+cd $(dirname "$0")
+
+# partial input errors when there are no files
+cd empty
+should_error eask compile
+cd ../
+
+# compiles with a warning
+should_run eask compile mock.el
+
+should_error eask compile --strict mock.el
+
+# --allow-error
+# rest state
+eask clean elc -v 0
+should_error eask compile fail.el
+should_error eask compile --allow-error fail.el mock.el
+
+# ensure mock.el is still compiled
+if [ ! -f mock.elc ]; then
+    echo "fail: expected to see mock.elc"
+    exit 1
+fi

test/exit-status/create/run.sh

@@ -0,0 +1,35 @@
+#!/usr/bin/env bash
+
+# Copyright (C) 2022-2024 the Eask authors.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+## Commentary:
+#
+# Tests "complete" command's error behaviour.
+
+set -e
+
+source ./test/fixtures/home/scripts/testing.sh
+cd $(dirname "$0")
+
+# partial input errors
+should_error eask create
+should_error eask create elpa
+should_error eask create package
+
+# FIXME
+# existing file errors
+# should_error eask create elpa foo
+# should_error eask create package foo

test/exit-status/eval/Eask

@@ -0,0 +1 @@
+(package "check" "0.0.1" "mock package")

test/exit-status/eval/run.sh

@@ -0,0 +1,40 @@
+#!/usr/bin/env bash
+
+# Copyright (C) 2022-2024 the Eask authors.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+## Commentary:
+#
+# Tests "eval" command's option handling and error behaviour.
+
+set -e
+
+source ./test/fixtures/home/scripts/testing.sh
+cd $(dirname "$0")
+
+# partial input
+should_error eask eval
+
+should_run eask eval '(message "hello")'
+
+should_run eask eval '(warn "hello")'
+
+# FIXME
+# should_error eask eval '(warn "hello")' --strict
+
+should_error eask eval '(error "hello")'
+should_error eask eval "(signal 'error \"hello\")"
+# --allow-error doesn't really change anything here
+should_error eask eval '(error "hello")' --allow-error

test/exit-status/fixtures/valid/Eask

@@ -0,0 +1,6 @@
+(package "valid-package" "0.0.1" "mock package that installs cleanly")
+
+(source 'gnu)
+(source 'melpa)
+
+(depends-on "emacs" "28.3")

test/exit-status/fixtures/valid/foo.el

@@ -0,0 +1,6 @@
+(defun foo-nothing (args)
+  "docstring"
+  (interactive "P")
+  )
+
+(provide 'foo)

test/exit-status/fixtures/valid/valid-package-pkg.el

@@ -0,0 +1,2 @@
+(define-package "valid-package" "0.0.1"
+  "mock package that installs cleanly" '((emacs "28.3")))

test/exit-status/format/Eask

@@ -0,0 +1 @@
+(package "check" "0.0.1" "mock package")

test/exit-status/format/fail.el

@@ -0,0 +1,3 @@
+;; -*- lexical-binding: t -*-
+;; this must fail to compile
+(fail "" (

test/exit-status/format/mock.el

@@ -0,0 +1,5 @@
+;;;###autoload
+(defun my-ignore-fn ()
+  "Mock for testing"
+  (interactive)
+  (message "foo"))

test/exit-status/format/run.sh

@@ -0,0 +1,48 @@
+#!/usr/bin/env bash
+
+# Copyright (C) 2022-2024 the Eask authors.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+## Commentary:
+#
+# Tests "format" command's option handling and error behaviour.
+
+set -e
+
+source ./test/fixtures/home/scripts/testing.sh
+cd $(dirname "$0")
+
+# partial input
+should_error eask format
+
+# other commands default to apply to everything
+should_run eask format elfmt mock.el
+should_run eask format elisp-autofmt mock.el
+
+# does anything create elfmt warnings?
+
+should_error eask format elfmt fail.el
+# FIXME
+# should_error eask format elisp-autofmt fail.el
+
+# FIXME throws
+# OUTPUT=$(should_error eask format elfmt --allow-error fail.el mock.el)
+# echo "$OUTPUT"
+# should_match "Total of 1 .*" "$OUTPUT"
+
+# FIXME
+# OUTPUT=$(should_error eask format elisp-autofmt --allow-error fail.el mock.el)
+# echo "$OUTPUT"
+# should_match "Total of 1 .* formatted" "$OUTPUT"

test/exit-status/generate/Eask

@@ -0,0 +1 @@
+(package "check-clean" "0.0.1" "mock package")

test/exit-status/generate/fail.el

@@ -0,0 +1,3 @@
+;; -*- lexical-binding: t -*-
+;; this must fail to compile
+(fail "" (

test/exit-status/generate/mock.el

@@ -0,0 +1,7 @@
+;;;###autoload
+(defun my-ignore-fn ()
+  "Mock for testing"
+  (interactive)
+  (message "foo"))
+
+(provide 'foo)