/ 
Test-Wrapper-0.1.1
River stage zero No dependents
/ Test::Wrapper

NAME

Test::Wrapper - Use Test::* tests outside of a TAP context

VERSION

version 0.1.1

SYNOPSIS

use Test::Wrapper;
use Test::More;

test_wrap( 'like' );

# doesn't output anything
my $test = like 'foo' => qr/bar/;

unless ( $test->is_success ) {
    print "test failed, diag output is: ", $test->diag;
}

DESCRIPTION

This module for the occasions where a Test::* test would be perfect for what you want to do, but the module doesn't provide an helper function that doesn't produce TAP.

Test::Wrapper exports a single function, test_wrap, in the calling package, which wraps the desired testing functions. After being wrapped, the test functions will not emit TAP anymore, but rather return a Test::Wrapper object.

It must be noted that Test::Wrapper only works with test modules inheriting from Test::Builder::Module.

Finally, Test::Wrapper will not mess up the Test::Builder, which means that if you really want, you can use it within a test file. For example, this would work:

use strict;
use warnings;

use Test::More tests => 1;

use Test::Differences;
use Test::Wrapper;

test_wrap( 'eq_or_diff' );

my $test = eq_or_diff "foo", "bar";

ok $test, "eq_or_diff passed" or diag $test->diag;

EXPORTED METHOD

test_wrap( $test | \@tests, %params )

Wraps the given test or tests such that, when invoked, they will not emit TAP output but return a Test::Wrapper object.

The parameters the function accepts are:

prefix

If defined, a wrapped function named '$prefix_<original_name>' will be created, and the original test function will be left alone.

use Test::More;
use Test::Wrapper;

test_wrap( 'like', prefix => 'wrapped_' );

like "foo" => qr/bar/;   # will emit TAP

                         # will not emit TAP
my $test = wrapped_like( "yadah" => qw/ya/ );

Note that since the wrapped function will be created post-compile time, its prototype will not be effective, so parenthesis have to be used.

test_wrap( 'is' );
test_wrap( 'like', prefix => 'wrapped' );

    # prototype of the original function makes
    # it magically work
my $t1 = is $foo => $bar; 

    # this, alas, will break
my $t2 = like $foo => qr/$baz/;

    # ... so you have to do this instead
my $t2 = like( $foo => qr/$baz/ );

Attributes

diag

Diagnostic message of the test. Will be empty if the test passed. The leading '#' of each line of the raw TAP output are stripped down.

is_success

Is true if the test passed, false otherwise.

todo

TODO message of the test.

output

TAP result of the test '(ok 1 - yadah').

OVERLOADING

Boolean context

In a boolean context, the object will returns the value given by its is_success attribute.

test_wrap( 'like' );

my $test = like $foo => $bar;

if ( $test ) {
    ...
}

Stringify

If stringified, the object will return the content of its diag attribute.

print $test unless $test;

# equivalent to 

unless ( $test->is_success ) {
    print $test->diag;
}

AUTHOR

Yanick Champoux <yanick@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Yanick Champoux.

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