From ac6dc67e6adddfe9d59e8123010ce23dc80cd43a Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Wed, 5 Dec 2012 01:12:50 +0100
Subject: [PATCH] Tidy

---
 lib/Slic3r/Test.pm | 4 ++--
 t/retraction.t     | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Slic3r/Test.pm b/lib/Slic3r/Test.pm
index f0210f4de..ca95d5de4 100644
--- a/lib/Slic3r/Test.pm
+++ b/lib/Slic3r/Test.pm
@@ -58,7 +58,7 @@ has 'E' => (is => 'rw', default => sub {0});
 has 'F' => (is => 'rw', default => sub {0});
 
 our $Verbose = 0;
-my @AXES = qw(X Y Z E F);
+my @AXES = qw(X Y Z E);
 
 sub parse {
     my $self = shift;
@@ -100,7 +100,7 @@ sub parse {
         
         # update coordinates
         if ($command =~ /^(?:G[01]|G92)$/) {
-            for (@AXES) {
+            for (@AXES, 'F') {
                 $self->$_($args{$_}) if exists $args{$_};
             }
         }
diff --git a/t/retraction.t b/t/retraction.t
index bf1beb8f5..d19365ae2 100644
--- a/t/retraction.t
+++ b/t/retraction.t
@@ -44,6 +44,6 @@ $config->set('retract_before_travel',   [3]);
 ok $test->(), 'retraction';
 
 $config->set('retract_restart_extra',   [1]);
-ok $test->(), 'retraction with restart extra length';
+ok $test->(), 'restart extra length';
 
 __END__