Bugfix: extra length on restart didn't work correctly for negative values. #654

This commit is contained in:
Alessandro Ranellucci 2012-12-21 15:25:08 +01:00
parent 8cd8e8b209
commit e372372a5d

View File

@ -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";
}; };