Bugfix: extra length on restart didn't work correctly for negative values. #654
This commit is contained in:
parent
8cd8e8b209
commit
e372372a5d
@ -1,4 +1,4 @@
|
|||||||
use Test::More tests => 12;
|
use Test::More tests => 16;
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
@ -96,6 +96,9 @@ my $retract_tests = sub {
|
|||||||
$conf->set('retract_restart_extra', [1]);
|
$conf->set('retract_restart_extra', [1]);
|
||||||
ok $test->($conf), "restart extra length$descr";
|
ok $test->($conf), "restart extra length$descr";
|
||||||
|
|
||||||
|
$conf->set('retract_restart_extra', [-1]);
|
||||||
|
ok $test->($conf), "negative restart extra length$descr";
|
||||||
|
|
||||||
$conf->set('retract_lift', [1]);
|
$conf->set('retract_lift', [1]);
|
||||||
ok $test->($conf), "lift$descr";
|
ok $test->($conf), "lift$descr";
|
||||||
};
|
};
|
||||||
|
Loading…
Reference in New Issue
Block a user