+
+ open my $lock, '+>', "$cfgfile.lock" or die;
+ @cmd = (getcwd(). '/'. pi_init, 'lock', "$tmpdir/lock",
+ qw(http://example.com/lock lock@example.com));
+ ok(-e "$cfgfile.lock", 'lock exists');
+ my $pid = spawn(\@cmd, undef, $rdr);
+ is(waitpid($pid, 0), $pid, 'lock init failed');
+ is($? >> 8, 255, 'got expected exit code on lock failure');
+ ok(unlink("$cfgfile.lock"),
+ '-init did not unlink lock on failure');