You are viewing the version of this documentation from Perl 5.26.0. View the latest version

CONTENTS

NAME

Test2::Formatter::TAP - Standard TAP formatter

DESCRIPTION

This is what takes events and turns them into TAP.

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 http://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 http://dev.perl.org/licenses/