1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!perl -T
use strict;
use warnings;
use Test::FailWarnings;
use Test::More tests => 3;
use lib 't/';
use LocalTest;
my $tests =
[
{
'function_name' => 'is_coderef',
'function_type' => 'boolean',
},
{
'function_name' => 'assert_coderef',
'function_type' => 'assert',
},
{
'function_name' => 'filter_coderef',
'function_type' => 'filter',
},
];
foreach my $test ( @$tests )
{
my $function_name = delete( $test->{'function_name'} );
my $function_type = delete( $test->{'function_type'} );
subtest(
"Test function $function_name (type $function_type).",
sub
{
plan( tests => 1 );
subtest(
'Test without arguments.',
sub
{
LocalTest::ok_run_tests(
function_name => $function_name,
type => $function_type,
pass_tests =>
[
qw(
unnamed_subroutine
)
],
);
}
);
}
);
}
|
