forked from jjl/asset-pack
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Build results of 7db0597 (on master)
- Loading branch information
1 parent
aaf297f
commit 1aa7aea
Showing
14 changed files
with
210 additions
and
19 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,147 @@ | ||
| package Test::Requires; | ||
| use strict; | ||
| use warnings; | ||
| our $VERSION = '0.08'; | ||
| use base 'Test::Builder::Module'; | ||
| use 5.006000; | ||
|
|
||
| sub import { | ||
| my $class = shift; | ||
| my $caller = caller(0); | ||
|
|
||
| # export methods | ||
| { | ||
| no strict 'refs'; | ||
| *{"$caller\::test_requires"} = \&test_requires; | ||
| } | ||
|
|
||
| # test arguments | ||
| if (@_ == 1 && ref $_[0] && ref $_[0] eq 'HASH') { | ||
| while (my ($mod, $ver) = each %{$_[0]}) { | ||
| test_requires($mod, $ver, $caller); | ||
| } | ||
| } else { | ||
| for my $mod (@_) { | ||
| test_requires($mod, undef, $caller); | ||
| } | ||
| } | ||
| } | ||
|
|
||
| sub test_requires { | ||
| my ( $mod, $ver, $caller ) = @_; | ||
| return if $mod eq __PACKAGE__; | ||
| if (@_ != 3) { | ||
| $caller = caller(0); | ||
| } | ||
| $ver ||= ''; | ||
|
|
||
| eval qq{package $caller; use $mod $ver}; ## no critic. | ||
| if (my $e = $@) { | ||
| my $skip_all = sub { | ||
| my $builder = __PACKAGE__->builder; | ||
|
|
||
| if (not defined $builder->has_plan) { | ||
| $builder->skip_all(@_); | ||
| } elsif ($builder->has_plan eq 'no_plan') { | ||
| $builder->skip(@_); | ||
| if ( $builder->can('parent') && $builder->parent ) { | ||
| die bless {} => 'Test::Builder::Exception'; | ||
| } | ||
| exit 0; | ||
| } else { | ||
| for (1..$builder->has_plan) { | ||
| $builder->skip(@_); | ||
| } | ||
| if ( $builder->can('parent') && $builder->parent ) { | ||
| die bless {} => 'Test::Builder::Exception'; | ||
| } | ||
| exit 0; | ||
| } | ||
| }; | ||
|
|
||
| my $msg = "$e"; | ||
| if ( $e =~ /^Can't locate/ ) { | ||
| $msg = "Test requires module '$mod' but it's not found"; | ||
| } | ||
|
|
||
| if ($ENV{RELEASE_TESTING}) { | ||
| __PACKAGE__->builder->BAIL_OUT($msg); | ||
| } | ||
| else { | ||
| $skip_all->($msg); | ||
| } | ||
| } | ||
| } | ||
|
|
||
| 1; | ||
| __END__ | ||
| =head1 NAME | ||
| Test::Requires - Checks to see if the module can be loaded | ||
| =head1 SYNOPSIS | ||
| # in your Makefile.PL | ||
| use inc::Module::Install; | ||
| test_requires 'Test::Requires'; | ||
| # in your test | ||
| use Test::More tests => 10; | ||
| use Test::Requires { | ||
| 'HTTP::MobileAttribute' => 0.01, # skip all if HTTP::MobileAttribute doesn't installed | ||
| }; | ||
| isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile'; | ||
| # or | ||
| use Test::More tests => 10; | ||
| use Test::Requires qw( | ||
| HTTP::MobileAttribute | ||
| ); | ||
| isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile'; | ||
| # or | ||
| use Test::More tests => 10; | ||
| use Test::Requires; | ||
| test_requires 'Some::Optional::Test::Required::Modules'; | ||
| isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile'; | ||
| =head1 DESCRIPTION | ||
| Test::Requires checks to see if the module can be loaded. | ||
| If this fails rather than failing tests this B<skips all tests>. | ||
| Test::Requires can also be used to require a minimum version of Perl: | ||
| use Test::Requires "5.010"; # quoting is necessary!! | ||
| # or | ||
| use Test::Requires "v5.10"; | ||
| =head1 AUTHOR | ||
| Tokuhiro Matsuno E<lt>tokuhirom @*(#RJKLFHFSDLJF gmail.comE<gt> | ||
| =head1 THANKS TO | ||
| kazuho++ # some tricky stuff | ||
| miyagawa++ # original code from t/TestPlagger.pm | ||
| tomyhero++ # reported issue related older test::builder | ||
| tobyink++ # documented that Test::Requires "5.010" works | ||
| =head1 ENVIRONMENT | ||
| If the C<< RELEASE_TESTING >> environment variable is true, then instead | ||
| of skipping tests, Test::Requires bails out. | ||
| =head1 SEE ALSO | ||
| L<t/TestPlagger.pm> | ||
| =head1 LICENSE | ||
| This library is free software; you can redistribute it and/or modify | ||
| it under the same terms as Perl itself. | ||
| =cut |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters