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
|
$^W = 1;
use strict;
use Test::More tests => 8;
BEGIN {
$ENV{PERL_TEXT_CSV} = 0;
require_ok "Text::CSV";
plan skip_all => "Cannot load Text::CSV" if $@;
require "./t/util.pl";
}
my $csv = Text::CSV->new ( { binary => 1, sep_char => ';', allow_whitespace => 1, quote_char => '"' } );
# https://rt.cpan.org/Public/Bug/Display.html?id=99774
while ( my $line = <DATA> ) {
my $text = $line;
chomp($text); $text =~ s/"//g;
my $expect = [ split/;/, $text ];
$csv->parse($line);
is_deeply( [$csv->fields], $expect, $line );
}
# https://rt.cpan.org/Public/Bug/Display.html?id=92509
for my $allow_whitespace ( 0, 1 ) {
$csv = Text::CSV_PP->new ( { allow_whitespace => $allow_whitespace } );
$csv->parse(q{"value1","0","value3"});
is_deeply( [$csv->fields], ["value1","0","value3"], 'allow_whitespace:' . $allow_whitespace );
}
__DATA__
"data_quality_id";"language_version_id";"name"
"0";"2";"0%"
"10";"2";"33%"
"20";"2";"66%"
"30";"2";"100%"
|
