X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=tool%2Fcreate-moose-compatibility-tests.pl;h=950836466f3afd4ee281c19c41521d256b8dc193;hb=f43060b65ad710abc58ab3e1f4288a71deb00ec6;hp=6289344394114eee18fec8542d8b9b4955440748;hpb=b3d7fe461bce3b65114098e44a120024dcc1fb97;p=gitmo%2FMouse.git diff --git a/tool/create-moose-compatibility-tests.pl b/tool/create-moose-compatibility-tests.pl index 6289344..9508364 100644 --- a/tool/create-moose-compatibility-tests.pl +++ b/tool/create-moose-compatibility-tests.pl @@ -6,13 +6,12 @@ use File::Path (); 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", @@ -52,7 +51,7 @@ File::Find::find( 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);