Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libtest-harness-perl / libtest-harness-perl-3.12 / examples / silent-harness.pl

diff --git a/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/examples/silent-harness.pl b/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/examples/silent-harness.pl
new file mode 100644 (file)
index 0000000..ae0e50e
--- /dev/null
+++ b/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/examples/silent-harness.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+#
+# Run some tests and get back a data structure describing them.
+
+use strict;
+use warnings;
+use TAP::Harness;
+use Data::Dumper;
+
+my @tests = glob 't/yaml*.t';
+
+my $harness = TAP::Harness->new( { verbosity => -9, lib => ['blib/lib'] } );
+
+# $aggregate is a TAP::Parser::Aggregator
+my $aggregate = $harness->runtests(@tests);
+print Dumper($aggregate);