Test2::Formatter::TAP (3)

Leading comments

Automatically generated by Pod::Man 4.09 (Pod::Simple 3.35)

Standard preamble:
========================================================================

(The comments found at the beginning of the groff file "man3/Test2::Formatter::TAP.3perl".)

NAME

Test2::Formatter::TAP - Standard TAP formatter

DESCRIPTION

This is what takes events and turns them into

SYNOPSIS

    use Test2::Formatter::TAP;
    my $tap = Test2::Formatter::TAP->new();

    # Switch to utf8
    $tap->encoding('utf8');

    $tap->write($event, $number); # Output an event

METHODS

$bool = $tap->no_numbers

$tap->set_no_numbers($bool)

Use to turn numbers on and off.

$arrayref = $tap->handles

$tap->set_handles(\@handles);

Can be used to get/set the filehandles. Indexes are identified by the "OUT_STD" and "OUT_ERR" constants.

$encoding = $tap->encoding

$tap->encoding($encoding)

Get or set the encoding. By default no encoding is set, the original settings of

STDOUT

and

STDERR

are used.

This directly modifies the stored filehandles, it does not create new ones.

$tap->write($e, $num)

Write an event to the console.

Test2::Formatter::TAP->register_event($pkg, sub { ... });

In general custom events are not supported. There are however occasions where you might want to write a custom event type that results in

TAP

output. In order to do this you use the "register_event()" class method.

    package My::Event;
    use Test2::Formatter::TAP;

    use base 'Test2::Event';
    use Test2::Util::HashBase qw/pass name diag note/;

    Test2::Formatter::TAP->register_event(
        __PACKAGE__,
        sub {
            my $self = shift;
            my ($e, $num) = @_;
            return (
                [Test2::Formatter::TAP::OUT_STD, "ok $num - " . $e->name . "\n"],
                [Test2::Formatter::TAP::OUT_ERR, "# " . $e->name . " " . $e->diag . "\n"],
                [Test2::Formatter::TAP::OUT_STD, "# " . $e->name . " " . $e->note . "\n"],
            );
        }
    );

    1;

EVENT METHODS

All these methods require the event itself. Optionally they can all except a test number.

All methods return a list of array-refs. Each array-ref will have 2 items, the first is an integer identifying an output handle, the second is a string that should be written to the handle.

@out = $TAP->event_ok($e)

@out = $TAP->event_ok($e, $num)

Process an Test2::Event::Ok event.

@out = $TAP->event_plan($e)

@out = $TAP->event_plan($e, $num)

Process an Test2::Event::Plan event.

@out = $TAP->event_note($e)

@out = $TAP->event_note($e, $num)

Process an Test2::Event::Note event.

@out = $TAP->event_diag($e)

@out = $TAP->event_diag($e, $num)

Process an Test2::Event::Diag event.

@out = $TAP->event_bail($e)

@out = $TAP->event_bail($e, $num)

Process an Test2::Event::Bail event.

@out = $TAP->event_exception($e)

@out = $TAP->event_exception($e, $num)

Process an Test2::Event::Exception event.

@out = $TAP->event_skip($e)

@out = $TAP->event_skip($e, $num)

Process an Test2::Event::Skip event.

@out = $TAP->event_subtest($e)

@out = $TAP->event_subtest($e, $num)

Process an Test2::Event::Subtest event.

@out = $TAP->event_other($e, $num)

Fallback for unregistered event types. It uses the Test2::Event

API

to convert the event to

TAP.

SOURCE

The source code repository for Test2 can be found at github.com/Test-More/test-more.

MAINTAINERS

Chad Granum <exodist@cpan.org>

AUTHORS

Chad Granum <exodist@cpan.org>

Kent Fredric <kentnl@cpan.org>

COPYRIGHT

Copyright 2016 Chad Granum <exodist@cpan.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See dev.perl.org/licenses