From 68ec0450d1c3f125d7d290958dda6e89b6a0c37e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 7 Apr 2014 18:08:56 +0200 Subject: tests: Avoid buffering in 'fcntl-flock' tests. Partially fixes . * tests/utils.scm ("fcntl-flock wait", "fcntl-flock non-blocking"): Open files in binary mode, with no buffering. --- tests/utils.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests/utils.scm') diff --git a/tests/utils.scm b/tests/utils.scm index 1da847689c..4d2d123c6b 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -176,7 +176,7 @@ (false-if-exception (delete-file temp-file)) (test-equal "fcntl-flock wait" 42 ; the child's exit status - (let ((file (open-file temp-file "w0"))) + (let ((file (open-file temp-file "w0b"))) ;; Acquire an exclusive lock. (fcntl-flock file 'write-lock) (match (primitive-fork) @@ -185,7 +185,7 @@ (const #t) (lambda () ;; Reopen FILE read-only so we can have a read lock. - (let ((file (open-file temp-file "r"))) + (let ((file (open-file temp-file "r0b"))) ;; Wait until we can acquire the lock. (fcntl-flock file 'read-lock) (primitive-exit (read file))) @@ -228,19 +228,19 @@ (read-char input) ;; Open FILE read-only so we can have a read lock. - (let ((file (open-file temp-file "w"))) + (let ((file (open-file temp-file "w0"))) (catch 'flock-error (lambda () ;; This attempt should throw EAGAIN. (fcntl-flock file 'write-lock #:wait? #f)) (lambda (key errno) - (primitive-exit errno)))) + (primitive-exit (pk 'errno errno))))) (primitive-exit -1)) (lambda () (primitive-exit -2)))) (pid (close-port input) - (let ((file (open-file temp-file "w"))) + (let ((file (open-file temp-file "w0"))) ;; Acquire an exclusive lock. (fcntl-flock file 'write-lock) -- cgit v1.2.1