Commit 5694552f authored by Robert Goldman's avatar Robert Goldman
Browse files

Mark xfails on ABCL.

1. test-around-compile w/ lambda
2. test-run-program-unix PID retrieval
parent 9ecfb2fa
Pipeline #4526 passed with stage
......@@ -21,4 +21,6 @@
(funcall thunk)))
:components ((:file "test")))
(load-system 'test-around-compile-lambda :force t)
(assert-equal 10 (funcall 'add10 1)) ;; add10 must have been compiled in base 16
(with-expected-failure (#+abcl (and (uiop:version= (lisp-implementation-version) "1.8.0")
"ABCL version 1.8.0"))
(assert-equal 10 (funcall 'add10 1))) ;; add10 must have been compiled in base 16
......@@ -522,11 +522,18 @@
(define-test
"basic functionality"
(let* ((process-info (launch-program "./sleeper.sh 12 1"))
(pid (process-info-pid process-info)))
(handle-result "obtainable and plausible?"
(and (numberp pid) (plusp pid)))
(wait-process process-info)))
(with-expected-failure (#+abcl
(or
(and (eq (uiop:operating-system) :linux)
(uiop:version= (lisp-implementation-version) "1.8.0"))
(not (eq (uiop:operating-system) :linux))))
(let* ((process-info (launch-program "./sleeper.sh 12 1"))
(pid (process-info-pid process-info)))
(handle-result "obtainable and plausible?"
(and (numberp pid) (plusp pid)))
(wait-process process-info))))
(new-test-suite "wait-process")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment