test/fixtures/index-writer-lock.sgl

1(import (sigil sqlite) (sigil fs) (sigil path) (sigil process) (sigil io))

2(define db (sqlite-open (path-join (getenv "FOLIO_TEST_ROOT") ".folio-index.db")))

3(unless (sqlite-exec db "BEGIN IMMEDIATE") (error "Cannot hold test writer lock"))

4(display "LOCKED\n")

5(flush-output-port (current-output-port))

6(read-line (current-input-port))

7(sqlite-exec db "ROLLBACK")

8(sqlite-close db)