]> git.vpit.fr Git - perl/modules/Mac-NSGetExecutablePath.git/blob - t/lib/VPIT/TestHelpers.pm
3d545e887a78dbdccb62c79c423618bbd12a0629
[perl/modules/Mac-NSGetExecutablePath.git] / t / lib / VPIT / TestHelpers.pm
1 package VPIT::TestHelpers;
2
3 use strict;
4 use warnings;
5
6 my %exports = (
7  load_or_skip     => \&load_or_skip,
8  load_or_skip_all => \&load_or_skip_all,
9  skip_all         => \&skip_all,
10 );
11
12 sub import {
13  my $pkg = caller;
14
15  while (my ($name, $code) = each %exports) {
16   no strict 'refs';
17   *{$pkg.'::'.$name} = $code;
18  }
19 }
20
21 my $test_sub = sub {
22  my $sub = shift;
23
24  my $stash;
25  if ($INC{'Test/Leaner.pm'}) {
26   $stash = \%Test::Leaner::;
27  } else {
28   require Test::More;
29   $stash = \%Test::More::;
30  }
31
32  my $glob = $stash->{$sub};
33  return $glob ? *$glob{CODE} : undef;
34 };
35
36 sub skip { $test_sub->('skip')->(@_) }
37
38 sub skip_all { $test_sub->('plan')->(skip_all => $_[0]) }
39
40 sub diag {
41  my $diag = $test_sub->('diag');
42  $diag->($_) for @_;
43 }
44
45 our $TODO;
46 local $TODO;
47
48 sub load {
49  my ($pkg, $ver, $imports) = @_;
50
51  my $spec = $ver && $ver !~ /^[0._]*$/ ? "$pkg $ver" : $pkg;
52  my $err;
53
54  local $@;
55  if (eval "use $spec (); 1") {
56   $ver = do { no strict 'refs'; ${"${pkg}::VERSION"} };
57   $ver = 'undef' unless defined $ver;
58
59   if ($imports) {
60    my @imports = @$imports;
61    my $caller  = (caller 1)[0];
62    local $@;
63    my $res = eval <<"IMPORTER";
64 package
65         $caller;
66 BEGIN { \$pkg->import(\@imports) }
67 1;
68 IMPORTER
69    $err = "Could not import '@imports' from $pkg $ver: $@" unless $res;
70   }
71  } else {
72   (my $file = "$pkg.pm") =~ s{::}{/}g;
73   delete $INC{$file};
74   $err = "Could not load $spec";
75  }
76
77  if ($err) {
78   return wantarray ? (0, $err) : 0;
79  } else {
80   diag "Using $pkg $ver";
81   return 1;
82  }
83 }
84
85 sub load_or_skip {
86  my ($pkg, $ver, $imports, $tests) = @_;
87
88  die 'You must specify how many tests to skip' unless defined $tests;
89
90  my ($loaded, $err) = load($pkg, $ver, $imports);
91  skip $err => $tests unless $loaded;
92
93  return $loaded;
94 }
95
96 sub load_or_skip_all {
97  my ($pkg, $ver, $imports) = @_;
98
99  my ($loaded, $err) = load($pkg, $ver, $imports);
100  skip_all $err unless $loaded;
101
102  return $loaded;
103 }
104
105 package VPIT::TestHelpers::Guard;
106
107 sub new {
108  my ($class, $code) = @_;
109
110  bless { code => $code }, $class;
111 }
112
113 sub DESTROY { $_[0]->{code}->() }
114
115 1;