Mailing List Archive

Author: creamyg
Date: 2008-09-05 17:23:22 -0700 (Fri, 05 Sep 2008)
New Revision: 3814

Modified:
trunk/perl/Build.PL
trunk/perl/buildlib/Lucy/Build.pm
Log:
Override "test" action using TAP::Harness, in anticipation of running some
non-perl tests.


Modified: trunk/perl/Build.PL
===================================================================
--- trunk/perl/Build.PL 2008-09-05 03:49:12 UTC (rev 3813)
+++ trunk/perl/Build.PL 2008-09-06 00:23:22 UTC (rev 3814)
@@ -48,9 +48,10 @@
'ExtUtils::CBuilder' => 0,
'ExtUtils::ParseXS' => 0,
'Parse::RecDescent' => 0,
+ 'TAP::Harness' => 3,
},
create_makefile_pl => 'passthrough',
- add_to_cleanup =>
+ add_to_cleanup =>
[ 'MANIFEST.bak', 'perltidy.ERR', '*.pdb', '*.manifest' ],
);


Modified: trunk/perl/buildlib/Lucy/Build.pm
===================================================================
--- trunk/perl/buildlib/Lucy/Build.pm 2008-09-05 03:49:12 UTC (rev 3813)
+++ trunk/perl/buildlib/Lucy/Build.pm 2008-09-06 00:23:22 UTC (rev 3814)
@@ -499,6 +499,21 @@
$self->SUPER::ACTION_code;
}

+sub ACTION_test {
+ my $self = shift;
+ $self->dispatch('code');
+ require TAP::Harness;
+ my $harness = TAP::Harness->new(
+ { verbosity => $self->verbose,
+ lib => [.
+ catdir( $self->blib, 'arch' ),
+ catdir( $self->blib, 'lib' ),
+ ]
+ }
+ );
+ $harness->runtests( @{ $self->test_files } );
+}
+
# copied from Module::Build::Base.pm, added exclude '#' and follow symlinks
sub rscan_dir {
my ( $self, $dir, $pattern ) = @_;


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits