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
|
#! /usr/bin/env perl
use strict;
use warnings;
use Test::More;
use_ok( 'Data::TableReader::Field' ) or BAIL_OUT;
subtest header_regex => sub {
my @tests= ({
name => 'name', header => undef,
match => [ 'name', ' nAMe', '^%name&*^%^' ],
nomatch => [ 'na me', 'names', 'surname', 'first name' ],
},{
name => 'first_name', header => undef,
match => [ 'first name', 'FirstName', ' First_Name', 'First.Name' ],
nomatch => [ 'first_nam', 'first.*', 'name', 'first name 0' ],
},{
name => 'first_name', header => 'first_name',
match => [ 'first_name', ' first_name', 'first_name#"$:^' ],
nomatch => [ 'first name', 'first.name', 'first _name', 'FirstName' ],
},{
name => 'zip5',
match => [ 'zip5', 'zip 5', 'zip_5', 'ZIP-5' ],
nomatch => [ 'zip' ],
},{
name => 'ZipCode',
match => [ 'ZipCode', 'zip code', 'zip.code', 'ZIP CODE', '--ZIP CODE--' ],
nomatch => [ 'ZipCode(5)' ],
},{
name => 'ZipCode', header => "Zip\nCode",
match => ["Zip\nCode", "zip \n code"],
nomatch => [ 'zipcode' ],
});
plan tests => scalar @tests;
for my $t (@tests) {
subtest "name=$t->{name} header=".($t->{header}||'') => sub {
plan tests => 1 + @{$t->{match}} + @{$t->{nomatch}};
my $field= new_ok( 'Data::TableReader::Field',
[ name => $t->{name}, header => $t->{header} ], 'field' );
like( $_, $field->header_regex, "match $_" ) for @{ $t->{match} };
unlike( $_, $field->header_regex, "nomatch $_" ) for @{ $t->{nomatch} };
};
}
};
subtest trim => sub {
my @tests= ({
name => 'true', trim => 1,
input => [ 'x', ' x', 'x ', ' x ', ' ' ],
expected => [ 'x', 'x', 'x', 'x', '' ],
},{
name => 'regex', trim => qr/^\s*N\/A\s*$|^\s*NULL\s*$|^\s+|\s+$/i,
input => [ 'x', ' x', 'x ', ' x ', 'N/A', ' N/A ', ' Null ' ],
expected => [ 'x', 'x', 'x', 'x', '', '', '' ],
},{
name => 'coderef', trim => sub { s/\s+/_/g; },
input => [ 'x x', ' x' ],
expected => [ 'x_x', '_x' ],
});
plan tests => scalar @tests;
for my $t (@tests) {
subtest "name=$t->{name}" => sub {
plan tests => 1 + @{$t->{input}};
my $field= new_ok( 'Data::TableReader::Field',
[ name => $t->{name}, trim => $t->{trim} ], 'field' );
for (0.. $#{$t->{input}}) {
my ($in, $expected)= ( $t->{input}[$_], $t->{expected}[$_] );
$field->trim_coderef->() for my $out= $in;
is( $out, $expected, $in );
}
};
}
};
done_testing;
|
