- @cmd = (pi_init, 'clist', '-V2', "$tmpdir/clist",
- qw(http://example.com/clist clist@example.com));
- quiet_fail(\@cmd, 'attempting to init V2 from V1 fails');
+ $cmd = [ '-init', 'clist', '-V2', "$tmpdir/clist",
+ qw(http://example.com/clist clist@example.com) ];
+ quiet_fail($cmd, 'attempting to init V2 from V1 fails');
+ ok(!-e "$cfgfile.lock", 'no lock leftover after init');
+
+ open my $lock, '+>', "$cfgfile.lock" or die;
+ $cmd = [ '-init', 'lock', "$tmpdir/lock",
+ qw(http://example.com/lock lock@example.com) ];
+ ok(-e "$cfgfile.lock", 'lock exists');
+
+ # this calls exit():
+ my $err = '';
+ ok(!run_script($cmd, undef, {2 => \$err}), 'lock init failed');
+ is($? >> 8, 255, 'got expected exit code on lock failure');
+ ok(unlink("$cfgfile.lock"),
+ '-init did not unlink lock on failure');