X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=t%2F99-kwalitee.t;fp=t%2F99-kwalitee.t;h=0000000000000000000000000000000000000000;hb=78542c24d6df1be5fc665375d6daa35ea5dbc2c5;hp=2de8e0b7450179f870ff09ce7ad81e8491e25748;hpb=a76f00e22fd80312f10e8bf44bf8343b4e4d78e6;p=perl%2Fmodules%2Fre-engine-Hooks.git diff --git a/t/99-kwalitee.t b/t/99-kwalitee.t deleted file mode 100644 index 2de8e0b..0000000 --- a/t/99-kwalitee.t +++ /dev/null @@ -1,29 +0,0 @@ -#!perl - -use strict; -use warnings; - -use Test::More; - -use lib 't/lib'; -use VPIT::TestHelpers; - -my $guard = VPIT::TestHelpers::Guard->new( - sub { unlink for glob 'Debian_CPANTS.txt*' } -); - -load_or_skip_all('Parse::RecDescent', '1.967006'); -load_or_skip_all('Module::ExtractUse', '0.24' ); -load_or_skip_all('Test::Kwalitee', '1.01' ); - -SKIP: { - eval { Test::Kwalitee->import(tests => [ '-use_strict' ]); }; - 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; - } -}