diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-07-16 11:01:57 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-08-21 00:52:38 +0200 |
| commit | 96cd163c14e68c66c6a4cf0b18261fc454f8c1ba (patch) | |
| tree | 9678f821b0dfc3b7a105b5503e1f9abfca03985e /tests/syscalls.scm | |
| parent | b87b96b9c7a2c5f34c34d69559cdee236ca50ec2 (diff) | |
| download | guix-96cd163c14e68c66c6a4cf0b18261fc454f8c1ba.tar.gz guix-96cd163c14e68c66c6a4cf0b18261fc454f8c1ba.zip | |
syscalls: Add ‘mode’ parameter to ‘lock-file’.
* guix/build/syscalls.scm (lock-file): Add ‘mode’ parameter and honor it.
* tests/syscalls.scm ("lock-file + unlock-file"): New test.
Change-Id: I113fb4a8b35dd8782b9c0991574e39a4b4393333
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 7cf67c060d..13f4f11721 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -383,6 +383,19 @@ (close-port file) result))))))))) +(test-equal "lock-file + unlock-file" + 'hello + (call-with-temporary-directory + (lambda (directory) + (let* ((file (in-vicinity directory "lock")) + (out (lock-file file #:wait? #f))) + (display "hello" out) + (unlock-file out) + (let* ((in (lock-file file "r0")) + (content (read in))) + (unlock-file in) + content))))) + (test-equal "set-thread-name" "Syscall Test" (let ((name (thread-name))) |