Added test for relocatable fixin

Author: bingos

t/fixin.t

@@ -12,7 +12,7 @@ BEGIN {
 
 use File::Spec;
 
-use Test::More tests => 25;
+use Test::More tests => 28;
 
 use Config;
 use TieOut;
@@ -125,6 +125,21 @@ END
     );
 }
 
+SKIP: {
+    skip "Not relevant on VMS or MSWin32", 6 if $^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'cygwin';
+    local $ENV{PERL_MM_SHEBANG}='relocatable';
+    test_fixin(<<END,
+#!/usr/bin/env perl
+
+foo doo who doo
+END
+    sub {
+        my @lines = @_;
+        like $lines[0], qr[^#!/usr/bin/env perl\s$], "Relocatable perl";
+    }
+    );
+}
+
 SKIP: {
     eval { chmod(0755, "usrbin/interp") }
         or skip "no chmod", 6;