/
usr
/
share
/
doc
/
perl-Test-Harness
/
examples
/
/usr/share/doc/perl-Test-Harness/examples
mkdir
upload
Name
Size
Mode
Actions
bin/
-
0755
rm
harness-hook/
-
0755
rm
t/
-
0755
rm
analyze_tests.pl
2072
0644
edit
dl
rm
my_exec
387
0755
edit
dl
rm
README
2155
0644
edit
dl
rm
silent-harness.pl
349
0644
edit
dl
rm
test_urls.txt
45
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-Test-Harness/examples/silent-harness.pl
(349B)
# 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);
Save
cmd:
run