1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use strict;
use warnings
FATAL => qw( all ),
NONFATAL => qw( deprecated exec internal malloc newline once portable redefine recursion uninitialized );
use constant TEST_CASES => {
'module version required' => { input => [ '1.22.333' ], output => ' 1.22.333' },
'single import but not a module version' => { input => [ 'x' ], output => '' },
'multiple imports' => { input => [ qw( x y ) ], output => '' },
};
use Test::Builder::Tester tests => scalar( keys( %{ TEST_CASES() } ) );
use Test::Expander;
foreach my $title ( keys( %{ TEST_CASES() } ) ) {
test_out( "ok 1 - $title" );
is( Test::Expander::_use_imports( TEST_CASES->{ $title }->{ input } ), TEST_CASES->{ $title }->{ output }, $title );
test_test( $title );
}
|
