lei q: support mbox locking by default

[public-inbox.git] / t / lei-q-remote-import.t

diff --git a/t/lei-q-remote-import.t b/t/lei-q-remote-import.t
index f73524cf71ce4cea5442186db10c87ece9b66072..4088b6ada1567ed97f7d6f98ba3e0a2e160c474d 100644 (file)
--- a/t/lei-q-remote-import.t
+++ b/t/lei-q-remote-import.t
@@ -46,5 +46,17 @@ test_lei({ tmpdir => $tmpdir }, sub {
        unlink $o or BAIL_OUT $!;
        lei_ok(@cmd);
        ok(-f $o && !-s _, '--no-import-remote did not memoize');
+
+       open my $fh, '>', "$o.lock";
+       $cmd[-1] = 'm:qp@example.com';
+       unlink $o or BAIL_OUT $!;
+       lei_ok(@cmd, '--lock=none');
+       ok(-f $o && -s _, '--lock=none respected');
+       unlink $o or BAIL_OUT $!;
+       ok(!lei(@cmd, '--lock=dotlock,timeout=0.000001'), 'dotlock fails');
+       ok(-f $o && !-s _, 'nothing output on lock failure');
+       unlink "$o.lock" or BAIL_OUT $!;
+       lei_ok(@cmd, '--lock=dotlock,timeout=0.000001',
+               \'succeeds after lock removal');
 });
 done_testing;