www: drop --subject from "git send-email" instructions

[public-inbox.git] / t / mbox_lock.t

diff --git a/t/mbox_lock.t b/t/mbox_lock.t
index 3dc3b449cd2338209ff3a59894cfbe5fde8878df..c2fee0d4eb88d056f006480841c497c1ab3e5576 100644 (file)
--- a/t/mbox_lock.t
+++ b/t/mbox_lock.t
@@ -5,6 +5,7 @@ use strict; use v5.10.1; use PublicInbox::TestCommon;
 use POSIX qw(_exit);
 use PublicInbox::DS qw(now);
 use Errno qw(EAGAIN);
+use PublicInbox::OnDestroy;
 use_ok 'PublicInbox::MboxLock';
 my ($tmpdir, $for_destroy) = tmpdir();
 my $f = "$tmpdir/f";
@@ -15,6 +16,17 @@ ok(!-f "$f.lock", 'dotlock gone');
 $mbl = PublicInbox::MboxLock->acq($f, 1, ['none']);
 ok(!-f "$f.lock", 'no dotlock with none');
 undef $mbl;
+{
+       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');
+}
 
 eval {
        PublicInbox::MboxLock->acq($f, 1, ['bogus']);