git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/examples/silent-harness.pl

   1 #!/usr/bin/perl
   2 #
   3 # Run some tests and get back a data structure describing them.
   4
   5 use strict;
   6 use warnings;
   7 use TAP::Harness;
   8 use Data::Dumper;
   9
  10 my @tests = glob 't/yaml*.t';
  11
  12 my $harness = TAP::Harness->new( { verbosity => -9, lib => ['blib/lib'] } );
  13
  14 # $aggregate is a TAP::Parser::Aggregator
  15 my $aggregate = $harness->runtests(@tests);
  16 print Dumper($aggregate);