Don't include tests on native traits

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

diff --git a/author/import-moose-test.pl b/author/import-moose-test.pl
index a0ad424..fcb6db8 100644 (file)
--- a/author/import-moose-test.pl
+++ b/author/import-moose-test.pl
@@ -8,15 +8,13 @@ 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 //= 'Moose-t';
 
 my @tests;
 sub wanted {
+    return if /native_traits/;
     (my $mouse_test         = $_) =~ s{\A $moose_dir/t }{$result}xmso;
     (my $mouse_failing_test = $_) =~ s{\A $moose_dir/t }{$result-failing}xmso;
     if( -d $_ ) {
@@ -75,6 +73,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;