cpan/Test-Simple/t/Modern/Builder_Tester.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

use strict;
use warnings;

use Test::More 'modern';

my @warnings;
{
    local $SIG{__WARN__} = sub { push @warnings => @_ };
    require_ok 'Test::Builder::Tester';
    Test::Builder::Tester->import;
}

is($warnings[0], "Test::Builder::Tester is deprecated!\n", "'Test::Builder::Tester' is deprecated");

done_testing;