tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 13:10:33 +02:00
Code Activity

syscalls: Add ‘mode’ parameter to ‘lock-file’.

Browse Source 
* guix/build/syscalls.scm (lock-file): Add ‘mode’ parameter and honor it.
* tests/syscalls.scm ("lock-file + unlock-file"): New test.

Change-Id: I113fb4a8b35dd8782b9c0991574e39a4b4393333
This commit is contained in:
Ludovic Courtès
2024-07-16 11:01:57 +02:00
parent b87b96b9c7
commit 96cd163c14
2 changed files with 22 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tests/syscalls.scm
View File

@@ -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)))