use File::Spec ();
use File::Basename ();
-print "Creating compatibility tests in xt/compatibility/* ...\n";
+print "Creating compatibility tests in xt/compat/* ...\n";
-File::Path::rmtree(File::Spec->catfile('xt', 'compatibility'));
+File::Path::rmtree(File::Spec->catfile('xt', 'compat'));
# some test does not pass... currently skip it.
my %SKIP_TEST = (
- '016-trigger.t' => "trigger's argument is incompatble :(",
'810-isa-or.t' => "Mouse has a bug",
'052-undefined-type-in-union.t' => "Mouse accepts undefined type as a member of union types",
my $dirname = File::Basename::dirname($_);
- my $tmpdir = File::Spec->catfile('xt', 'compatibility', $dirname);
+ my $tmpdir = File::Spec->catfile('xt', 'compat', $dirname);
File::Path::mkpath($tmpdir);
my $tmpfile = File::Spec->catfile($tmpdir, $basename);
};
$src =~ s/Mouse::(?:Util::)?is_class_loaded/Class::MOP::is_class_loaded/g;
$src =~ s/Mouse::(?:Util::)?load_class/Class::MOP::load_class/g;
- $src =~ s/Mouse:::Util::class_of/Class::MOP::class_of/g;
+ $src =~ s/Mouse::Util::class_of/Class::MOP::class_of/g;
$src =~ s/Mouse/Moose/g;
$src;
};