Add ARM files

[dh-make-perl] / dev / arm / libtest-harness-perl / libtest-harness-perl-3.12 / examples / harness-hook / hook.pl

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/examples/harness-hook/hook.pl b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/examples/harness-hook/hook.pl
new file mode 100755 (executable)
index 0000000..8cfc628
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/examples/harness-hook/hook.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use lib qw( lib ../../lib );
+use Harness::Hook;
+use TAP::Harness;
+use File::Spec;
+
+$| = 1;
+
+my $harness = TAP::Harness->new;
+
+# Install the hook
+Harness::Hook->new($harness);
+
+$harness->runtests(
+    File::Spec->catfile( split( /\//, '../../t/000-load.t' ) ) );