Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: automates test suite

by moritz (Cardinal)
on Feb 03, 2009 at 07:24 UTC ( #740909=note: print w/replies, xml ) Need Help??

in reply to automates test suite

It's rather simple to build your own test harness with TAP::Harness version 3 or newer. For one project I use
my $h = TAP::Harness->new({ verbosity => -2, merge => 1, ... });

The merge => 1 takes care that STDERR output is suppressed.

Replies are listed 'Best First'.
Re^2: automates test suite
by palette (Scribe) on Feb 03, 2009 at 08:35 UTC
    I am using version 3.
    my %args = ( lib => [ '../lib', '../blib' ], verbosity => -2, merge => 1, ); my $harness = TAP::Harness->new( \%args ); @tests = ('1.t'); my $aggregator = TAP::Parser::Aggregator->new; $aggregator->start(); $harness->aggregate_tests( $aggregator, @tests ); print "aggregate:",$aggregate;

    But this supresses all the output that gets printed on the screen. I want the output of the test script ie; all the 'ok' and 'is' test case outputs as it is, but need to suppress the warning or output of the .pl script that is called from .t
      This wasn't intended as a ready-to-run solution, but as a starting point for you to explore. For example, you could try different verbosity levels.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://740909]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (2)
As of 2023-10-02 21:45 GMT
Find Nodes?
    Voting Booth?

    No recent polls found