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