Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: How to retain a CPAN module's unit tests and run them later.

by tobyink (Abbot)
on Dec 11, 2011 at 00:01 UTC ( #942886=note: print w/replies, xml ) Need Help??

in reply to How to retain a CPAN module's unit tests and run them later.

This does the trick. Usage notes at end.

use 5.010; use autodie; use common::sense; use MooseX::Declare; BEGIN { $CPAN::Retest::AUTHORITY = 'cpan:TOBYINK'; $CPAN::Retest::VERSION = '0.001'; } class CPAN::Retest { use App::Prove qw//; use File::Basename qw/fileparse/; use File::pushd qw/pushd/; use File::Path qw/make_path/; use File::Spec qw//; use File::Temp qw//; use LWP::Simple qw/get/; use Module::Manifest qw//; use Object::AUTHORITY qw/AUTHORITY/; has author => (is => 'ro', isa => 'Str', required => 1); has release => (is => 'ro', isa => 'Str', required => 1); has manifest => (is => 'rw', isa => 'ArrayRef[Str]', lazy => 1, b +uilder => '_build_manifest'); has testdir => (is => 'ro', isa => 'File::Temp::Dir', lazy => 1, + builder => '_build_testdir'); has verbose => (is => 'ro'); method url_for ($file) { sprintf( '', uc $self->author, $self->release, $file ); } method test_files { grep { m{^t/} } @{ $self->manifest }; } method _build_manifest { my $fh = File::Temp->new; binmode( $fh, ":utf8"); print $fh get($self->url_for('MANIFEST')); close $fh; my $manifest = Module::Manifest->new; $manifest->open(manifest => $fh->filename); return [ $manifest->files ]; } method _build_testdir { my $testdir = File::Temp->newdir; foreach my $file ($self->test_files) { my $dest = File::Spec->catfile($testdir->dirname, $file); my (undef, $d, undef) = fileparse($dest); make_path($d); open my $fh, '>', $dest; print $fh get($self->url_for($file)); close $fh; } return $testdir; } method run { my $chdir = pushd($self->testdir->dirname); my $app = App::Prove->new; $app->process_args('t'); $app->verbose(1) if $self->verbose; $app->run; } }


my $test = CPAN::Retest->new( author => 'TOBYINK', release => 'Object-AUTHORITY-0.003', verbose => 1, ); $test->run;


This is now available on CPAN: App-Reprove-0.001.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://942886]
[stevieb]: my RPi::WiringPi now fully supports: GPIO, LCDs, digital potentiometers, analog to digital converters, shift registers, barometric pressure sensor, direct access to SPI bus, and ability for more :)
[stevieb]: ...just need to perform many tests and POD review this week, then I'm going to put together some real projects and post about them

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2017-01-22 22:45 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (190 votes). Check out past polls.