2 # Copyright (C) 2021 all contributors <meta@public-inbox.org>
3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
7 use PublicInbox::TestCommon;
9 require_ok 'PublicInbox::LeiOverview';
11 my $ovv = bless {}, 'PublicInbox::LeiOverview';
12 $ovv->ovv_out_lk_init;
13 my $lock_path = $ovv->{lock_path};
14 ok(-f $lock_path, 'lock init');
16 ok(!-f $lock_path, 'lock DESTROY');
18 $ovv = bless {}, 'PublicInbox::LeiOverview';
19 $ovv->ovv_out_lk_init;
20 $lock_path = $ovv->{lock_path};
21 ok(-f $lock_path, 'lock init #2');
22 my $pid = fork // BAIL_OUT "fork $!";
27 is(waitpid($pid, 0), $pid, 'child exited');
28 is($?, 0, 'no error in child process');
29 ok(-f $lock_path, 'lock was not destroyed by child');
31 ok(!-f $lock_path, 'lock DESTROY #2');