Test::More comes with Test::Builder::Tester for testing testing modules. It's horrible. Just horrible.

Use Test::Tester instead. Here's an example of using Test::Tester to test the is_deeply function from Test::More, and make sure there isn't some insane bug in is_deeply that nobody's ever noticed...

use strict;
use warnings;
use Test::Tester;
use Test::More 0.96;

subtest "two identical structures" => sub {
    my (undef, $result1) = run_tests sub { is_deeply( [1,2,3], [1..3] 
+) };

    ok(
        $result1->{ok},
        'is_deeply passes',
    );

    is(
        $result1->{diag},
        '',
        'no unnecessary diagnostics printed',
    );

    done_testing;
};

subtest "two different structures" => sub {
    my (undef, $result2) = run_tests sub { is_deeply( [1,3], [1..3] ) 
+};
    
    ok(
        !$result2->{ok},
        'is_deeply fails'
    );
    
    like(
        $result2->{diag},
        qr{Structures begin differing},
        'expected diagnostics ok'
    );
    
    done_testing;
};

done_testing;

[download]

TL;DR: run_tests runs some tests in a coderef, captures the TAP output, and turns it into a list of hashrefs of test results. You can then use plain old Test::More functions to test those test results.

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

In reply to Re: Testing test function by tobyink
in thread Testing test function by sedusedan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.