#!/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);
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| bin | Folder | 0755 |
|
|
| harness-hook | Folder | 0755 |
|
|
| t | Folder | 0755 |
|
|
| README | File | 2.1 KB | 0644 |
|
| analyze_tests.pl | File | 2.04 KB | 0644 |
|
| my_exec | File | 387 B | 0755 |
|
| silent-harness.pl | File | 367 B | 0644 |
|
| test_urls.txt | File | 45 B | 0644 |
|