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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#!perl -T
use strict;
use warnings;
use Test::FailWarnings;
use Test::More tests => 3;
use lib 't/';
use LocalTest;
my $tests =
[
{
'function_name' => 'is_string',
'function_type' => 'boolean',
},
{
'function_name' => 'assert_string',
'function_type' => 'assert',
},
{
'function_name' => 'filter_string',
'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 => 3 );
subtest(
'Test without arguments.',
sub
{
LocalTest::ok_run_tests(
function_name => $function_name,
type => $function_type,
pass_tests =>
[
qw(
empty_string
zero
one
string
strictly_positive_integer
strictly_negative_integer
strictly_positive_float
strictly_negative_float
)
],
);
}
);
subtest(
'Test with allow_empty=1.',
sub
{
LocalTest::ok_run_tests(
function_name => $function_name,
type => $function_type,
function_args =>
{
allow_empty => 1,
},
pass_tests =>
[
qw(
empty_string
zero
one
string
strictly_positive_integer
strictly_negative_integer
strictly_positive_float
strictly_negative_float
)
],
);
}
);
subtest(
'Test with allow_empty=0.',
sub
{
LocalTest::ok_run_tests(
function_name => $function_name,
type => $function_type,
function_args =>
{
allow_empty => 0,
},
pass_tests =>
[
qw(
zero
one
string
strictly_positive_integer
strictly_negative_integer
strictly_positive_float
strictly_negative_float
)
],
);
}
);
}
);
}
|
