Add ARM files

[dh-make-perl] / dev / arm / libtest-harness-perl / libtest-harness-perl-3.12 / inc / MyBuilder.pm

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/inc/MyBuilder.pm b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/inc/MyBuilder.pm
new file mode 100644 (file)
index 0000000..2ac5f6a
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/inc/MyBuilder.pm
@@ -0,0 +1,120 @@
+package MyBuilder;
+
+BEGIN {
+    require Module::Build;
+    @ISA = qw(Module::Build);
+}
+
+# Test with Test::Harness
+sub ACTION_test_with_harness {
+    my $self = shift;
+
+    $self->SUPER::ACTION_test(@_);
+}
+
+# Test with TAP::Harness instead of Test::Harness
+sub ACTION_test {
+    my $self = shift;
+
+    $self->depends_on('code');
+
+    my $tests = $self->find_test_files;
+    unless (@$tests) {
+        $self->log_info("No tests defined.\n");
+        return;
+    }
+
+    # TODO verbose and stuff
+
+    require TAP::Harness;
+    my $harness = TAP::Harness->new( { lib => 'blib/lib' } );
+    my $aggregator = $harness->runtests(@$tests);
+    exit $aggregator->has_problems ? 1 : 0;
+}
+
+sub ACTION_testprove {
+    my $self = shift;
+    $self->depends_on('code');
+    exec( $^X, '-Iblib/lib', 'bin/prove', '-b', '-r', 't' );
+}
+
+sub ACTION_testreference {
+    my $self = shift;
+    $self->depends_on('code');
+    my $ref = 'reference/Test-Harness-2.64';
+    exec( $^X,
+        ( -e $ref ? ( "-I$ref/lib", "$ref/bin/prove" ) : qw(-S prove) ),
+        '-Iblib/lib', '-r', 't'
+    );
+}
+
+sub ACTION_testauthor {
+    my $self = shift;
+    $self->test_files('xt/author');
+    $self->ACTION_test;
+}
+
+sub ACTION_critic {
+    exec(
+        qw(perlcritic -1 -q -profile perlcriticrc
+          bin/prove lib/), glob('t/*.t')
+    );
+}
+
+sub ACTION_tags {
+    exec(
+        qw(ctags -f tags --recurse --totals
+          --exclude=blib
+          --exclude=.svn
+          --exclude='*~'
+          --languages=Perl
+          t/ lib/ bin/prove
+          )
+    );
+}
+
+sub ACTION_tidy {
+    my $self = shift;
+
+    my @extra = qw(
+      Build.PL
+      Makefile.PL
+      bin/prove
+    );
+
+    my %found_files = map {%$_} $self->find_pm_files,
+      $self->_find_file_by_type( 'pm', 't' ),
+      $self->_find_file_by_type( 'pm', 'inc' ),
+      $self->_find_file_by_type( 't',  't' );
+
+    my @files = (
+        keys %found_files,
+        map { $self->localize_file_path($_) } @extra
+    );
+
+    for my $file (@files) {
+        system( 'perltidy', '-b', $file );
+        unlink("$file.bak") if $? == 0;
+    }
+}
+
+my @profiling_target = qw( -Mblib bin/prove --timer t/regression.t );
+
+sub ACTION_dprof {
+    system( $^X, '-d:DProf', @profiling_target );
+    exec(qw( dprofpp -R ));
+}
+
+sub ACTION_smallprof {
+    system( $^X, '-d:SmallProf', @profiling_target );
+    open( FH, 'smallprof.out' ) or die "Can't open smallprof.out: $!";
+    @rows = grep {/\d+:/} <FH>;
+    close FH;
+
+    @rows = reverse
+      sort { ( split( /\s+/, $a ) )[2] <=> ( split( /\s+/, $b ) )[2] } @rows;
+    @rows = @rows[ 0 .. 30 ];
+    print join( '', @rows );
+}
+
+1;