-use Test::More tests => 64;
+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 => [{
);
ok !$csv->_check_multiplexed, 'multiplex check detects empty header';
+#####
+
+$csv = SL::Helper::Csv->new(
+ file => \ Encode::encode('utf-8', <<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 => \ Encode::encode('utf-8', <<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,
+ ignore_unknown_columns => 1,
+ profile => [
+ {
+ profile => { datatype => 'datatype', description => 'description' },
+ class => 'SL::DB::Part',
+ row_ident => 'P'
+ },
+ {
+ profile => { datatype => 'datatype', name => 'name' },
+ class => 'SL::DB::Customer',
+ row_ident => 'C'
+ }
+ ],
+);
+$csv->parse;
+is_deeply $csv->get_data, [ { datatype => 'P', description => 'Kaffee' },
+ { datatype => 'C', name => 'Meier'} ],
+ 'multiplex: case insensitive header from csv works';
+
+#####
+
+$csv = SL::Helper::Csv->new(
+ 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' },
+ class => 'SL::DB::Part',
+ row_ident => 'P'
+ },
+ {
+ profile => { datatype => 'datatype', name => 'name' },
+ class => 'SL::DB::Customer',
+ row_ident => 'C'
+ }
+ ],
+);
+$csv->parse;
+is_deeply $csv->get_data, [ { datatype => 'P', description => 'Kaffee' },
+ { datatype => 'C', name => 'Meier' } ],
+ 'multiplex: case insensitive header as param works';
+
+
+#####
+
+$csv = SL::Helper::Csv->new(
+ file => \"P;Kaffee\nC;Meier", # " # make emacs happy
+ header => [[ 'Datatype', 'Description' ], [ 'Datatype', 'Name']],
+ profile => [
+ {
+ profile => { datatype => 'datatype', description => 'description' },
+ class => 'SL::DB::Part',
+ row_ident => 'P'
+ },
+ {
+ profile => { datatype => 'datatype', name => 'name' },
+ class => 'SL::DB::Customer',
+ row_ident => 'C'
+ }
+ ],
+);
+$csv->parse;
+is_deeply $csv->get_data, undef, 'multiplex: case insensitive header without flag ignores';
+
+#####
+
+$csv = SL::Helper::Csv->new(
+ file => \<<EOL,
+P;Kaffee;lecker
+C;Meier;froh
+EOL
+# " # make emacs happy
+ header => [[ 'datatype', 'Afoo', 'Abar' ], [ 'datatype', 'Bfoo', 'Bbar']],
+ profile => [{
+ profile => { datatype => '', Afoo => '', Abar => '' },
+ class => 'SL::DB::Part',
+ row_ident => 'P'
+ },
+ {
+ profile => { datatype => '', Bfoo => '', Bbar => '' },
+ class => 'SL::DB::Customer',
+ row_ident => 'C'
+ }],
+);
+$csv->parse;
+
+is_deeply $csv->get_data,
+ [ { datatype => 'P', Afoo => 'Kaffee', Abar => 'lecker' }, { datatype => 'C', Bfoo => 'Meier', Bbar => 'froh' } ],
+ 'multiplex: empty path still gets parsed into data';
+ok $csv->get_objects->[0], 'multiplex: empty path gets ignored in object creation';
+
+#####
+
+$csv = SL::Helper::Csv->new(
+ file => \<<EOL,
+P;Kaffee;lecker
+C;Meier;froh
+EOL
+# " # make emacs happy
+ header => [[ 'datatype', 'Afoo', 'Abar' ], [ 'datatype', 'Bfoo', 'Bbar']],
+ strict_profile => 1,
+ profile => [{
+ profile => { datatype => '', Afoo => '', Abar => '' },
+ class => 'SL::DB::Part',
+ row_ident => 'P'
+ },
+ {
+ profile => { datatype => '', Bfoo => '', Bbar => '' },
+ class => 'SL::DB::Customer',
+ row_ident => 'C'
+ }],
+);
+$csv->parse;
+
+is_deeply $csv->get_data,
+ [ { datatype => 'P', Afoo => 'Kaffee', Abar => 'lecker' }, { datatype => 'C', Bfoo => 'Meier', Bbar => 'froh' } ],
+ 'multiplex: empty path still gets parsed into data (strict profile)';
+ok $csv->get_objects->[0], 'multiplex: empty path gets ignored in object creation (strict profile)';
+
+#####
+
# vim: ft=perl
# set emacs to perl mode