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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 25119;
BEGIN {
require_ok "Text::CSV_XS";
plan skip_all => "Cannot load Text::CSV_XS" if $@;
require "./t/util.pl";
}
my $csv = Text::CSV_XS->new ({ binary => 1 });
my @attrib = qw( quote_char escape_char sep_char );
my @special = ('"', "'", ",", ";", "\t", "\\", "~");
# Add undef, once we can return undef
my @input = ( "", 1, "1", 1.4, "1.4", " - 1,4", "1+2=3", "' ain't it great '",
'"foo"! said the `br', q{the ~ in "0 \0 this l'ne is \r ; or "'"} );
my $ninput = scalar @input;
my $string = join "=", "", @input, "";
my %fail;
ok (1, "-- qc ec sc ac");
sub combi {
my %attr = @_;
my $combi = join " ", "--",
map { sprintf "%6s", _readable $attr{$_} } @attrib, "always_quote";
ok (1, $combi);
# use legal non-special characters
is ($csv->allow_whitespace (0), 0, "Reset allow WS");
is ($csv->sep_char ("\x03"), "\x03", "Reset sep");
is ($csv->quote_char ("\x0b"), "\x0b", "Reset quo");
is ($csv->escape_char ("\x0c"), "\x0c", "Reset esc");
# Set the attributes and check failure
my %state;
foreach my $attr (sort keys %attr) {
eval { $csv->$attr ($attr{$attr}); };
$@ or next;
$state{0 + $csv->error_diag} ||= $@;
}
if ($attr{sep_char} eq $attr{quote_char} ||
$attr{sep_char} eq $attr{escape_char}) {
ok (exists $state{1001}, "Illegal combo");
like ($state{1001}, qr{sep_char is equal to}, "Illegal combo");
}
else {
ok (!exists $state{1001}, "No char conflict");
}
if (!exists $state{1001} and
$attr{sep_char} =~ m/[\r\n]/ ||
$attr{quote_char} =~ m/[\r\n]/ ||
$attr{escape_char} =~ m/[\r\n]/
) {
ok (exists $state{1003}, "Special contains eol");
like ($state{1003}, qr{in main attr not}, "Illegal combo");
}
if ($attr{allow_whitespace} and
$attr{quote_char} =~ m/^[ \t]/ ||
$attr{escape_char} =~ m/^[ \t]/
) {
#diag (join " -> ** " => $combi, join ", " => sort %state);
ok (exists $state{1002}, "Illegal combo under allow_whitespace");
like ($state{1002}, qr{allow_whitespace with}, "Illegal combo");
}
%state and return;
# Check success
is ($csv->$_ (), $attr{$_}, "check $_") for sort keys %attr;
my $ret = $csv->combine (@input);
ok ($ret, "combine");
ok (my $str = $csv->string, "string");
SKIP: {
ok (my $ok = $csv->parse ($str), "parse");
unless ($ok) {
$fail{parse}{$combi} = $csv->error_input;
skip "parse () failed", 3;
}
ok (my @ret = $csv->fields, "fields");
unless (@ret) {
$fail{fields}{$combi} = $csv->error_input;
skip "fields () failed", 2;
}
is (scalar @ret, $ninput, "$ninput fields");
unless (scalar @ret == $ninput) {
$fail{'$#fields'}{$combi} = $str;
skip "# fields failed", 1;
}
my $ret = join "=", "", @ret, "";
is ($ret, $string, "content");
}
} # combi
foreach my $aw (0, 1) {
foreach my $aq (0, 1) {
foreach my $qc (@special) {
foreach my $ec (@special, "+") {
foreach my $sc (@special, "\0") {
combi (
sep_char => $sc,
quote_char => $qc,
escape_char => $ec,
always_quote => $aq,
allow_whitespace => $aw,
);
}
}
}
}
}
foreach my $fail (sort keys %fail) {
print STDERR "Failed combi for $fail ():\n",
"-- qc ec sc ac\n";
foreach my $combi (sort keys %{$fail{$fail}}) {
printf STDERR "%-20s - %s\n", map { _readable $_ } $combi, $fail{$fail}{$combi};
}
}
{ my $err = "";
local $SIG{__WARN__} = sub { $err = shift; };
is (Text::CSV_XS->new ({ sep => ",", quote => ",", auto_diag => 1 }),
undef, "New (illegal combo + auto_diag)");
like ($err, qr{\bERROR: 1001 - INI -}, "Error message");
$err = "";
ok (my $csv = Text::CSV_XS->new ({ auto_diag => 1 }), "new auto_diag");
eval { $csv->sep ('"'); };
like ($err, qr{\bERROR: 1001 - INI -}, "Error message");
is ($csv->sep_char (), '"', "sep changed anyway");
}
{ ok (my $csv = Text::CSV_XS->new ({ binary => 1 }), "New CSV default");
ok ($csv->combine ("=\x00="), "combine =\\x00=");
is ($csv->string, qq{"="0="}, "string");
}
{ ok (my $csv = Text::CSV_XS->new ({ binary => 1, escape_null => 0 }), "New CSV no escape_null");
ok ($csv->combine ("=\x00="), "combine =\\x00=");
is ($csv->string, qq{"=\0="}, "string");
}
{ ok (my $csv = Text::CSV_XS->new ({ binary => 1, escape_char => "" }), "New CSV no escape");
ok ($csv->combine ("=\x00="), "combine =\\x00=");
is ($csv->string, qq{"=\0="}, "string");
}
{ ok (my $csv = Text::CSV_XS->new ({ binary => 1, escape_char => "", escape_null => 0 }), "New CSV no escape no escape_null");
ok ($csv->combine ("=\x00="), "combine =\\x00=");
is ($csv->string, qq{"=\0="}, "string");
}
1;
|
