1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
# Declare our package
package Test::Apocalypse::FilePortability;
use strict; use warnings;
# Initialize our version
use vars qw( $VERSION );
$VERSION = '0.05';
use Test::More;
sub do_test {
my %MODULES = (
'Test::Portability::Files' => '0.05',
);
while (my ($module, $version) = each %MODULES) {
eval "use $module $version"; ## no critic ( ProhibitStringyEval )
next unless $@;
if ( $ENV{RELEASE_TESTING} ) {
die 'Could not load release-testing module ' . $module;
} else {
plan skip_all => $module . ' not available for testing';
}
}
# Run the test!
run_tests();
return;
}
1;
__END__
=head1 NAME
Test::Apocalypse::FilePortability - Plugin for Test::Portability::Files
=head1 SYNOPSIS
# Please do not use this module directly.
=head1 ABSTRACT
Encapsulates Test::Portability::Files functionality.
=head1 DESCRIPTION
Encapsulates Test::Portability::Files functionality.
=head1 SEE ALSO
L<Test::Apocalypse>
L<Test::Portability::Files>
=head1 AUTHOR
Apocalypse E<lt>apocal@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2009 by Apocalypse
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
