+$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(
+ file => \<<EOL,
+description,sellprice,lastcost_as_number,purchaseprice,
+Kaffee,0.12,'12,2','1,5234'
+EOL
+ sep_char => ',',
+ quote_char => "'",
+ profile => [
+ {
+ profile => { listprice => 'listprice_as_number' },
+ mapping => { purchaseprice => 'listprice' },
+ class => 'SL::DB::Part',
+ }
+ ],
+);
+ok $csv->parse, 'simple mapping parses';
+is $csv->get_objects->[0]->listprice, 1.5234, 'simple mapping works';
+
+$csv = SL::Helper::Csv->new(
+ file => \<<EOL,
+description;partnumber;sellprice;purchaseprice;wiener;
+Kaffee;;0.12;1,221.52;ja wiener
+Beer;1123245;0.12;1.5234;nein kein wieder
+EOL
+ numberformat => '1,000.00',
+ ignore_unknown_columns => 1,
+ strict_profile => 1,
+ profile => [{
+ profile => { lastcost => 'lastcost_as_number' },
+ mapping => { purchaseprice => 'lastcost' },
+ class => 'SL::DB::Part',
+ }]
+);
+ok $csv->parse, 'strict mapping parses';
+is $csv->get_objects->[0]->lastcost, 1221.52, 'strict mapping works';
+
+# swapping
+$csv = SL::Helper::Csv->new(
+ file => \<<EOL,
+description;partnumber;sellprice;lastcost;wiener;
+Kaffee;1;0.12;1,221.52;ja wiener
+Beer;1123245;0.12;1.5234;nein kein wieder
+EOL
+ numberformat => '1,000.00',
+ ignore_unknown_columns => 1,
+ strict_profile => 1,
+ profile => [{
+ mapping => { partnumber => 'description', description => 'partnumber' },
+ class => 'SL::DB::Part',
+ }]
+);
+ok $csv->parse, 'swapping parses';
+is $csv->get_objects->[0]->partnumber, 'Kaffee', 'strict mapping works 1';
+is $csv->get_objects->[0]->description, '1', 'strict mapping works 2';
+
+# case insensitive shit
+$csv = SL::Helper::Csv->new(
+ file => \"Description\nKaffee", # " # make emacs happy
+ case_insensitive_header => 1,
+ profile => [{
+ mapping => { description => 'description' },
+ class => 'SL::DB::Part'
+ }],
+);
+$csv->parse;
+is $csv->get_objects->[0]->description, 'Kaffee', 'case insensitive mapping without profile works';
+
+# case insensitive shit
+$csv = SL::Helper::Csv->new(
+ file => \"Price\n4,99", # " # make emacs happy
+ case_insensitive_header => 1,
+ profile => [{
+ profile => { sellprice => 'sellprice_as_number' },
+ mapping => { price => 'sellprice' },
+ class => 'SL::DB::Part',
+ }],
+);
+$csv->parse;
+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';