-use Test::More tests => 84;
+use Test::More tests => 91;
use lib 't';
use utf8;
profile => [{class => 'SL::DB::Part'}],
);
$csv->parse;
-is $csv->get_objects->[0]->lastcost, '1221.52', 'ignore_unkown_columns works';
+is $csv->get_objects->[0]->lastcost, '1221.52', 'ignore_unknown_columns works';
#####
is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'without profile and class works';
#####
+
+$csv = SL::Helper::Csv->new(
+ file => \<<EOL,
+description;partnumber
+Kaffee;1
+
+;
+ ;
+Tee;3
+EOL
+# Note: The second last line is not empty. The description is a space character.
+);
+ok $csv->parse;
+is_deeply $csv->get_data, [ {partnumber => 1, description => 'Kaffee'}, {partnumber => '', description => ' '}, {partnumber => 3, description => 'Tee'} ], 'ignoring empty lines works (header in csv file)';
+
+#####
+
+$csv = SL::Helper::Csv->new(
+ file => \<<EOL,
+Kaffee;1
+
+;
+ ;
+Tee;3
+EOL
+# Note: The second last line is not empty. The description is a space character.
+ header => ['description', 'partnumber'],
+);
+ok $csv->parse;
+is_deeply $csv->get_data, [ {partnumber => 1, description => 'Kaffee'}, {partnumber => '', description => ' '}, {partnumber => 3, description => 'Tee'} ], 'ignoring empty lines works';
+
+#####
+
$csv = SL::Helper::Csv->new(
file => \"Kaffee;1,50\nSchoke;0,89\n",
header => [
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');
+is_deeply( ($csv->errors)[0], [ undef, 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 => \<<EOL,
+datatype;customernumber;name
+datatype;description;partnumber
+C;1000;Meier
+P;Kaffee;1
+
+;;
+C
+P; ;
+C;2000;Meister
+P;Tee;3
+EOL
+ ignore_unknown_columns => 1,
+ profile => [ { class => 'SL::DB::Customer', row_ident => 'C' },
+ { class => 'SL::DB::Part', row_ident => 'P' },
+ ],
+);
+$csv->parse;
+is_deeply $csv->get_data, [
+ {datatype => 'C', customernumber => 1000, name => 'Meier'},
+ {datatype => 'P', partnumber => 1, description => 'Kaffee'},
+ {datatype => 'C', customernumber => undef, name => undef},
+ {datatype => 'P', partnumber => '', description => ' '},
+ {datatype => 'C', customernumber => 2000, name => 'Meister'},
+ {datatype => 'P', partnumber => '3', description => 'Tee'},
+], 'ignoring empty lines works (multiplex data)';
+
+#####
+
# Mappings
# simple case
$csv = SL::Helper::Csv->new(
is $csv->get_objects->[0]->sellprice, 4.99, 'case insensitive mapping with profile works';
+# self-mapping with profile
+$csv = SL::Helper::Csv->new(
+ file => \"sellprice\n4,99", # " # make emacs happy
+ case_insensitive_header => 1,
+ profile => [{
+ profile => { sellprice => 'sellprice_as_number' },
+ mapping => { sellprice => 'sellprice' },
+ class => 'SL::DB::Part',
+ }],
+);
+$csv->parse;
+is $csv->get_objects->[0]->sellprice, 4.99, 'self-mapping with profile works';
+
+# self-mapping without profile
+$csv = SL::Helper::Csv->new(
+ file => \"sellprice\n4.99", # " # make emacs happy
+ case_insensitive_header => 1,
+ profile => [{
+ mapping => { sellprice => 'sellprice' },
+ class => 'SL::DB::Part',
+ }],
+);
+$csv->parse;
+is $csv->get_objects->[0]->sellprice, 4.99, 'self-mapping without profile works';
+
# vim: ft=perl
# set emacs to perl mode
# Local Variables:
# mode: perl
# End:
-