diff options
| author | Eric Wong <e@80x24.org> | 2024-02-01 20:59:48 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2024-02-06 00:39:57 +0000 |
| commit | 885db166cdec5dd0befd46f94f36edb9e786169a (patch) | |
| tree | fe6dfe38b4412cda065850d8d69df7246f3a17ab /t | |
| parent | 58fea974d2857c69e15d974cb62f8cabeeb32792 (diff) | |
| download | public-inbox-885db166cdec5dd0befd46f94f36edb9e786169a.tar.gz | |
The packaged Perl on OpenBSD i386 supports 64-bit file offsets but not 64-bit integer support for 'q' and 'Q' with `pack'. Since servers aren't likely to require lock files larger than 2 GB (we'd need an inbox with >2 billion messages), we can workaround the Perl build limitation with explicit padding. File::FcntlLock isn't packaged for OpenBSD <= 7.4 (but should be in future releases), but I can test i386 OpenBSD on an extremely slow VM. Big endian support can be done, too, but I have no idea if there's 32-bit BE users around nowadays...
Diffstat (limited to 't')
| -rw-r--r-- | t/pop3d_lock.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/pop3d_lock.t b/t/pop3d_lock.t new file mode 100644 index 00000000..fb305f96 --- /dev/null +++ b/t/pop3d_lock.t @@ -0,0 +1,16 @@ +# Copyright (C) all contributors <meta@public-inbox.org> +# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> +use v5.12; +use PublicInbox::TestCommon; +require_mods(qw(DBD::SQLite Net::POP3 :fcntl_lock)); +use autodie; +my $tmpdir = tmpdir; +require_ok 'PublicInbox::POP3D'; +my $pop3d = bless {}, 'PublicInbox::POP3D'; +open $pop3d->{txn_fh}, '+>>', "$tmpdir/txn.lock"; +use Fcntl qw(F_SETLK F_UNLCK F_WRLCK); + +ok $pop3d->_setlk(l_type => F_WRLCK, l_start => 9, l_len => 1), + 'locked file (check with ktrace/strace)'; + +done_testing; |