Regenerate test files

[gitmo/Mouse.git] / author / import-moose-test.pl

diff --git a/author/import-moose-test.pl b/author/import-moose-test.pl
index a0ad424..559b8d3 100644 (file)
--- a/author/import-moose-test.pl
+++ b/author/import-moose-test.pl
@@ -8,12 +8,9 @@ use autodie;
 
 my($moose_dir, $result) = @ARGV;
 unless(defined $moose_dir and -d "$moose_dir/t") {
-    die "Usage: $0 Moose-dir result-dir\n";
-}
-$result //= 'Moose-test';
-if(-e $result) {
-    die "'$result' exists, stopped";
+    die "Usage: $0 Moose-dir [result-dir]\n";
 }
+$result //= 't';
 
 my @tests;
 sub wanted {
@@ -75,6 +72,8 @@ sub copy_as_mouse {
  
     while(<$in>) {
         if($. == 2) {
+            say $out "# This is automatically generated by $0.";
+            say $out "# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!";
             say $out 'use t::lib::MooseCompat;';
         }
         s/\b Class::MOP::([a-z_]+) \b/Mouse::Util::$1/xmsg;