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
|
use Test::More 'no_plan';
use Data::FormValidator::Filters (qw/:filters/);
use strict;
{
my $comma_splitter = FV_split(',');
is_deeply( $comma_splitter->('a,b'), [qw/a b/], "FV_split with two values");
is_deeply( $comma_splitter->('a'), [qw/a/], "FV_split with one value");
is_deeply( $comma_splitter->(),undef, "FV_split with no values");
}
{
my $replacer = FV_replace(qr/^a/,'b');
is( $replacer->('aa'), 'ba', 'FV_replace positive test');
is( $replacer->('XX'), 'XX', 'FV_replace negative test');
my $replacer = FV_replace(qr/^a/i,'b');
is( $replacer->('AA'), 'bA', 'FV_replace positive test');
}
is( filter_dollars('There is $0.11e money in here somewhere'),
'0.11',
"filter_dollars works as expected");
TODO: {
local $TODO = 'all these broken filters need to be dealt with.';
is( filter_dollars('0.111'),
'0.11',
"filter_dollars removes trailing numbers");
is( filter_neg_integer('9-'),
'a9-',
"filter_neg_integer should leave string without a negative integer alone.");
is( filter_pos_integer('a9+'),
'9',
"filter_pos_integer should care which side a + is on.");
is( filter_integer('a9+'),
'9',
"filter_integer should care which side a + is on.");
is( filter_decimal('1,000.23'),
'1000.23',
"filter_decimal should handle commas correctly");
is( filter_pos_decimal('1,000.23'),
'1000.23',
"filter_pos_decimal should handle commas correctly");
is( filter_neg_decimal('-1,000.23'),
'-1000.23',
"filter_neg_decimal should handle commas correctly");
}
|
