3 use if !$ENV{RELEASE_TESTING}, 'Test::More' => (skip_all => "for release testing");
7 use Test::Requires qw(Test::DependentModules);
10 use Test::DependentModules qw(test_module);
14 note("Testing user modules which depend on Mouse");
16 $ENV{PERL_TEST_DM_LOG_DIR} = abs_path('.');
20 MouseX::Types::Path::Class
22 MouseX::AttributeHelpers
24 MouseX::ConfigFromFile
29 HTTP::Engine::Middleware
35 test_module($_) for @modules;
42 $ENV{PERL5OPT} = '-Mblib' if exists $INC{'blib.pm'};
43 #$ENV{PERL_CPANM_DEV} = 1;
48 use Test::Requires qw(App::cpanminus::script);
52 package Test::UserModules;
53 our @ISA = qw(App::cpanminus::script);
57 $self->hook('test_user_modules', 'install_success' => \&_install_success);
58 $self->hook('test_user_modules', 'build_failure' => \&_build_failure);
63 my($self, @messages) = @_;
64 #Test::More->builder->note(@messages);
68 sub _install_success {
70 Test::More->builder->ok(1, "install $args->{module}");
75 Test::More->builder->ok(0, "install $args->{module} ($args->{message})");
79 # See also http://cpants.perl.org/dist/used_by/Any-Moose
81 my @user_modules = qw(
83 MouseX::Types::Path::Class
85 MouseX::AttributeHelpers
87 MouseX::ConfigFromFile
92 HTTP::Engine::Middleware
94 git://github.com/typester/ark-perl.git
99 my $t = Test::UserModules->new();
100 $t->parse_options(@user_modules);