-use Test::More tests => 71;
+use Test::More tests => 75;
use lib 't';
use utf8;
my $csv = SL::Helper::Csv->new(
file => \"Kaffee\n", # " # make emacs happy
- header => [[ 'description' ]],
+ header => [ 'description' ],
profile => [{ class => 'SL::DB::Part', }],
);
$csv = SL::Helper::Csv->new(
file => \"Kaffee;0.12;12,2;1,5234\n", # " # make emacs happy
- header => [[ 'description', 'sellprice', 'lastcost_as_number', 'listprice' ]],
+ header => [ 'description', 'sellprice', 'lastcost_as_number', 'listprice' ],
profile => [{profile => { listprice => 'listprice_as_number' },
class => 'SL::DB::Part',}],
);
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'description' ]],
+ header => [ 'description' ],
profile => [{class => 'SL::DB::Part'}],
);
$csv->parse;
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'Description' ]],
+ header => [ 'Description' ],
case_insensitive_header => 1,
profile => [{
profile => { description => 'description' },
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'Description' ]],
+ header => [ 'Description' ],
profile => [{class => 'SL::DB::Part'}],
);
$csv->parse;
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'foo' ]],
+ header => [ 'foo' ],
profile => [{
profile => { foo => '' },
class => 'SL::DB::Part',
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'foo' ]],
+ header => [ 'foo' ],
strict_profile => 1,
profile => [{
profile => { foo => '' },
$csv = SL::Helper::Csv->new(
file => \"Phil", # " # make emacs happy
- header => [[ 'CVAR_grOUnDHog' ]],
+ header => [ 'CVAR_grOUnDHog' ],
strict_profile => 1,
case_insensitive_header => 1,
profile => [{
#####
+$csv = SL::Helper::Csv->new(
+ file => \<<EOL,
+description;longdescription;datatype
+name;customernumber;datatype
+Kaffee;"lecker Kaffee";P
+Meier;1;C
+Bier;"kühles Bier";P
+Mueller;2;C
+EOL
+# " # make emacs happy
+ profile => [
+ {class => 'SL::DB::Part', row_ident => 'P'},
+ {class => 'SL::DB::Customer', row_ident => 'C'},
+ ],
+ ignore_unknown_columns => 1,
+);
+$csv->parse;
+is $csv->_multiplex_datatype_position, 2, 'multiplex check detects datatype field position right';
+
+is_deeply $csv->get_data, [ { datatype => 'P', description => 'Kaffee', longdescription => 'lecker Kaffee' },
+ { datatype => 'C', name => 'Meier', customernumber => 1},
+ { datatype => 'P', description => 'Bier', longdescription => 'kühles Bier' },
+ { datatype => 'C', name => 'Mueller', customernumber => 2}
+ ],
+ 'multiplex: datatype not at first position works';
+
+#####
+
+$csv = SL::Helper::Csv->new(
+ file => \<<EOL,
+datatype;description;longdescription
+name;datatype;customernumber
+P;Kaffee;"lecker Kaffee"
+Meier;C;1
+P;Bier;"kühles Bier"
+Mueller;C;2
+EOL
+# " # make emacs happy
+ profile => [
+ {class => 'SL::DB::Part', row_ident => 'P'},
+ {class => 'SL::DB::Customer', row_ident => 'C'},
+ ],
+ ignore_unknown_columns => 1,
+);
+ok !$csv->parse, 'multiplex check detects incosistent datatype field position';
+is_deeply( ($csv->errors)[0], [ 0, 'datatype field must be at the same position for all datatypes for multiplexed data', 0, 0 ], 'multiplex data with inconsistent datatype field posiotion throws error');
+
+#####
+
$csv = SL::Helper::Csv->new(
file => \"Datatype;Description\nDatatype;Name\nP;Kaffee\nC;Meier", # " # make emacs happy
case_insensitive_header => 1,
file => \"P;Kaffee\nC;Meier", # " # make emacs happy
header => [[ 'Datatype', 'Description' ], [ 'Datatype', 'Name']],
case_insensitive_header => 1,
+ ignore_unknown_columns => 1,
profile => [
{
profile => { datatype => 'datatype', description => 'description' },