+{
+ opendir my $cur, '.' or BAIL_OUT $!;
+ my $od = PublicInbox::OnDestroy->new(sub { chdir $cur });
+ chdir $tmpdir or BAIL_OUT;
+ my $abs = "$tmpdir/rel.lock";
+ my $rel = PublicInbox::MboxLock->acq('rel', 1, ['dotlock']);
+ chdir '/' or BAIL_OUT;
+ ok(-f $abs, 'lock with abs path created');
+ undef $rel;
+ ok(!-f $abs, 'lock gone despite being in the wrong dir');
+}