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