I see two 'fcntl-lock' related failures with current master on an i686
Debian Wheezy system with Debian's Guile 2.0.5 package. See below for
the relevant excerpts from utils.log.
Mark
--8<---------------cut here---------------start------------->8---
Test begin:
test-name: "fcntl-flock wait"
source-file: "tests/utils.scm"
source-line: 177
source-form: (test-equal "fcntl-flock wait" 42 (let ((file (open-file
temp-file "w0"))) (fcntl-flock file (quote write-lock)) (match (primitive-fork)
(0 (dynamic-wind (const #t) (lambda () (let ((file (open-file temp-file "r")))
(fcntl-flock file (quote read-lock)) (primitive-exit (read file)))
(primitive-exit 1)) (lambda () (primitive-exit 2)))) (pid (display "hello,
world!" file) (force-output file) (sleep 1) (seek file 0 SEEK_SET)
(truncate-file file 0) (write 42 file) (force-output file) (fcntl-flock file
(quote unlock)) (match (waitpid pid) ((_ . status) (let ((result
(status:exit-val status))) (close-port file) result)))))))
Test end:
result-kind: fail
actual-value: 2
expected-value: 42
--8<---------------cut here---------------end--------------->8---
--8<---------------cut here---------------start------------->8---
Test begin:
test-name: "fcntl-flock non-blocking"
source-file: "tests/utils.scm"
source-line: 216
source-form: (test-equal "fcntl-flock non-blocking" EAGAIN (match (pipe)
((input . output) (match (primitive-fork) (0 (dynamic-wind (const #t) (lambda
() (close-port output) (read-char input) (let ((file (open-file temp-file
"w"))) (catch (quote flock-error) (lambda () (fcntl-flock file (quote
write-lock) #:wait? #f)) (lambda (key errno) (primitive-exit errno))))
(primitive-exit -1)) (lambda () (primitive-exit -2)))) (pid (close-port input)
(let ((file (open-file temp-file "w"))) (fcntl-flock file (quote write-lock))
(write (quote green-light) output) (force-output output) (match (waitpid pid)
((_ . status) (let ((result (status:exit-val status))) (fcntl-flock file (quote
unlock)) (close-port file) result)))))))))
t) (lambda () (close-port output) (read-char input) (let ((file (open-file
temp-file "w"))) (catch (quote flock-error) (lambda () (fcntl-flock file (quote
write-lock) #:wait? #f)) (lambda (key errno) (primitive-exit errno))))
(primitive-exit -1)) (lambda () (primitive-exit -2)))) (pid (close-port input)
(let ((file (open-file temp-file "w"))) (fcntl-flock file (quote write-lock))
(write (quote green-light) output) (force-output output) (match (waitpid pid)
((_ . status) (let ((result (status:exit-val status))) (fcntl-flock file (quote
unlock)) (close-port file) result)))))))))
Test end:
result-kind: fail
actual-value: 0
expected-value: 11
--8<---------------cut here---------------end--------------->8---
