use warnings FATAL => 'all';
use File::Path qw(mkpath);
use File::Find;
+use File::Basename qw(basename dirname);
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 {
- (my $mouse_test = $_) =~ s{\A $moose_dir/t }{$result}xmso;
- (my $mouse_failing_test = $_) =~ s{\A $moose_dir/t }{$result-failing}xmso;
+ return if /native_traits/;
+ my $file = $_;
+ (my $basename = basename($file)) =~ s/Moose/Mouse/g;
+ $file = dirname($file) . '/' . $basename;
+ (my $test = $file) =~ s{\A $moose_dir/t }{$result}xmso;
+ (my $failing_test = $file) =~ s{\A $moose_dir/t }{$result-failing}xmso;
if( -d $_ ) {
- mkpath [$mouse_test, $mouse_failing_test];
+ mkpath [$test, $failing_test];
return;
}
- copy_as_mouse($_ => $mouse_test);
- push @tests, [$mouse_test, $mouse_failing_test]
- if $mouse_test =~/\.t\z/xms;
+ copy_as_mouse($_ => $test);
+ push @tests, [$test, $failing_test]
+ if $file =~/\.t\z/xms;
return;
}
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;
- s/\b Class::MOP \b /Mouse::Meta/xmsg;
- s/\b Moose \b/Mouse/xmsg;
+ s/ Class::MOP::([a-z_]+) /Mouse::Util::$1/xmsg;
+ s/ Class::MOP /Mouse::Meta/xmsg;
+ s/ Moose /Mouse/xmsg;
# make classes simple
s{\b(Mouse::Meta::TypeConstraint)::\w+ }{$1}xmsg;