diff --git a/test/test-program.script b/test/test-program.script index fb48fabc7fe90941cb395a03a4234ce42820e2e6..1d7bb6713770ff6c7f3cf863709be123521809ab 100644 --- a/test/test-program.script +++ b/test/test-program.script @@ -5,6 +5,20 @@ (DBG "Creating images is not supported on your CL implementation") (leave-test "Skipping test" 0)) +#+(and sbcl openbsd) +(let ((version (run-program "uname -r" :output '(:string :stripped t)))) + (when (version-satisfies version "6.0") + (DBG "Running on OpenBSD >=6.0. Checking this partition for wxallowed.") + (let* ((df-line (second (uiop:run-program + (list "df" "-P" (native-namestring *build-directory*)) + :output :lines))) + (device (first (split-string df-line)))) + (dolist (mount-line (uiop:run-program "mount" :output :lines)) + (let ((mount-device (first (split-string mount-line)))) + (when (and (string= device mount-device) + (not (search "wxallowed" mount-line))) + (leave-test "Skipping test: wxallowed not set" 0))))))) + (assert (find-system :hello-world-example)) ;; Try to load lisp-invocation from xcvb