Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
8b44b628
Commit
8b44b628
authored
Sep 09, 2016
by
Elias Pipping
Browse files
Skip test-program on OpenBSD >=6.0 without wxallowed
parent
1fe2172d
Changes
1
Show whitespace changes
Inline
Side-by-side
test/test-program.script
View file @
8b44b628
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment