From e372372a5d40f0cbdf1a765cd43eb571ad0f8baa Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 21 Dec 2012 15:25:08 +0100
Subject: [PATCH] Bugfix: extra length on restart didn't work correctly for
 negative values. #654

---
 t/retraction.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/retraction.t b/t/retraction.t
index 23192ce89..8ad1fbc79 100644
--- a/t/retraction.t
+++ b/t/retraction.t
@@ -1,4 +1,4 @@
-use Test::More tests => 12;
+use Test::More tests => 16;
 use strict;
 use warnings;
 
@@ -96,6 +96,9 @@ my $retract_tests = sub {
     $conf->set('retract_restart_extra',   [1]);
     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]);
     ok $test->($conf), "lift$descr";
 };