]> git.vpit.fr Git - perl/modules/Scope-Upper.git/blob - t/99-kwalitee.t
t/59-unwind-threads.t should always run at least one test
[perl/modules/Scope-Upper.git] / t / 99-kwalitee.t
1 #!perl
2
3 use strict;
4 use warnings;
5
6 use Test::More;
7
8 eval { require Test::Kwalitee; };
9 plan(skip_all => 'Test::Kwalitee not installed') if $@;
10
11 SKIP: {
12  eval { Test::Kwalitee->import(); };
13  if (my $err = $@) {
14   1 while chomp $err;
15   require Test::Builder;
16   my $Test = Test::Builder->new;
17   my $plan = $Test->has_plan;
18   $Test->skip_all($err) if not defined $plan or $plan eq 'no_plan';
19   skip $err => $plan - $Test->current_test;
20  }
21 }