X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=t%2F99-kwalitee.t;fp=t%2F99-kwalitee.t;h=0000000000000000000000000000000000000000;hp=4a664573fa9b2090bad47cd5c9343c7b509121ff;hb=f1e6558f19c49b061123a51140c99652c29dd8e0;hpb=090b1ebe0215c10c705b8895bf0c3b3286468068 diff --git a/t/99-kwalitee.t b/t/99-kwalitee.t deleted file mode 100644 index 4a66457..0000000 --- a/t/99-kwalitee.t +++ /dev/null @@ -1,27 +0,0 @@ -#!perl - -use strict; -use warnings; - -use Test::More; - -eval { require Parse::RecDescent; 'Parse::RecDescent'->VERSION('1.967006') } - or plan skip_all => 'Parse::RecDescent version 1.967006 or greater required'; - -eval { require Module::ExtractUse; 'Module::ExtractUse'->VERSION('0.24') } - or plan skip_all => 'Module::ExtractUse version 0.24 or greater required'; - -eval { require Test::Kwalitee; 1 } - or plan skip_all => 'Test::Kwalitee required'; - -SKIP: { - eval { Test::Kwalitee->import(); }; - if (my $err = $@) { - 1 while chomp $err; - require Test::Builder; - my $Test = Test::Builder->new; - my $plan = $Test->has_plan; - $Test->skip_all($err) if not defined $plan or $plan eq 'no_plan'; - skip $err => $plan - $Test->current_test; - } -}