diff --git a/tests/issues.lisp b/tests/issues.lisp index 5bf1fb0b7e28d5ba1b27ca440e643b9d078e2873..d709a71910c4cae2e5aeca42c6ac2e950dc1c1fb 100644 --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -315,3 +315,9 @@ (:tag :issues) (let* ((test-file #.(merge-pathnames #p"resources/issue-24.lisp" cl:*load-pathname*))) (assert-true (compile-file test-file :load t)))) + +(define-test issue.32 + (:tag :issues) + (assert-error 'kernel:simple-program-error + (ext:run-program "cat" nil + :before-execve t)))