Re: How to write a test for Test::Builder?

[Michael G Schwern]

Fergal Daly wrote:
>>   #!perl
>>
>>   use Test::More tests=>1;
>>   use Test::Builder::Tester;
>>
>>   test_out('not ok 1 - use Fcntl;');
>>   test_fail(+1);
>>   use_ok 'Fcntl', 'Pie';
>>   test_test( "Fails for bad export");
>>   __END__
>>
> 
> alternatively
> 
> use Test::Tester;
> use Test::More tests => 1;
> 
> check_test(sub { use_ok('Fcntl', 'Pie') },
>            {ok => 0,
>             name => "use Fcntl;"},
>            "Fails for bad export")
> 
> which is approximately as verbose but doesn't require you to track
> test numbers or worry about line numbers (all handled automatically)
> and allows you run blocks of code containing multiple tests,

The important thing is not just testing use_ok(), but testing use_ok() when
the -c Perl flag is set (think B::Deparse or perlcc) and HARNESS_ACTIVE is
true to test that bug.  Normally this would require a system() call, but you
can cheat.

{
    local $ENV{HARNESS_ACTIVE} = 1;
    local $^C = 1;

    require Test::More;
    Test::More->import(tests => 1);

    use_ok("Fcntl", "Pie")
}


-- 
If at first you don't succeed--you fail.
        -- "Portal" demo