From 2cc0df3058466b2e86b55a45f974615a9b7b9ad5 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sun, 25 Sep 2016 19:28:17 -0700 Subject: [PATCH] Add test for issue #32. --- tests/issues.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/tests/issues.lisp b/tests/issues.lisp index 5bf1fb0b7..d709a7191 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))) -- GitLab