5 use_ok 'SL::Helper::Csv';
8 $csv = SL::Helper::Csv->new(
10 header => [ 'description' ],
13 isa_ok $csv->_csv, 'Text::CSV';
14 isa_ok $csv->_io, 'IO::File';
15 isa_ok $csv->parse, 'SL::Helper::Csv', 'parsing returns self';
16 is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'simple case works';
18 $csv->class('SL::DB::Part');
20 is $csv->get_objects->[0]->description, 'Kaffee', 'get_object works';
23 SL::Dispatcher::pre_startup_setup();
26 $::myconfig{numberformat} = '1.000,00';
27 $::myconfig{dateformat} = 'dd.mm.yyyy';
28 $::locale = Locale->new('de');
30 $csv = SL::Helper::Csv->new(
31 file => \"Kaffee;0.12;12,2;1,5234\n",
32 header => [ 'description', 'sellprice', 'lastcost_as_number', 'listprice' ],
33 dispatch => { listprice => 'listprice_as_number' },
34 class => 'SL::DB::Part',
38 is $csv->get_objects->[0]->sellprice, 0.12, 'numeric attr works';
39 is $csv->get_objects->[0]->lastcost, 12.2, 'attr helper works';
40 is $csv->get_objects->[0]->listprice, 1.5234, 'dispatch works';
45 $csv = SL::Helper::Csv->new(
47 description,sellprice,lastcost_as_number,listprice,
48 Kaffee,0.12,'12,2','1,5234'
52 dispatch => { listprice => 'listprice_as_number' },
53 class => 'SL::DB::Part',
56 is scalar @{ $csv->get_objects }, 1, 'auto header works';
57 is $csv->get_objects->[0]->description, 'Kaffee', 'get_object works on auto header';
62 $csv = SL::Helper::Csv->new(
64 ;;description;sellprice;lastcost_as_number;
65 #####;Puppy;Kaffee;0.12;12,2;1,5234
67 class => 'SL::DB::Part',
70 is scalar @{ $csv->get_objects }, 1, 'bozo header doesn\'t blow things up';
74 $csv = SL::Helper::Csv->new(
76 description;partnumber;sellprice;lastcost_as_number;
77 Kaffee;;0.12;12,2;1,5234
78 Beer;1123245;0.12;12,2;1,5234
80 class => 'SL::DB::Part',
83 is scalar @{ $csv->get_objects }, 2, 'multiple objects work';
84 is $csv->get_objects->[0]->description, 'Kaffee', 'first object';
85 is $csv->get_objects->[1]->partnumber, '1123245', 'second object';
89 $csv = SL::Helper::Csv->new(
91 description;partnumber;sellprice;lastcost_as_number;
93 Beer;1123245;0.12;1.5234
95 numberformat => '1,000.00',
96 class => 'SL::DB::Part',
99 is $csv->get_objects->[0]->lastcost, '1221.52', 'formatnumber';
103 $csv = SL::Helper::Csv->new(
105 "description;partnumber;sellprice;lastcost_as_number;
106 Kaffee;;0.12;1,221.52
107 Beer;1123245;0.12;1.5234
109 numberformat => '1,000.00',
110 class => 'SL::DB::Part',
112 is $csv->parse, undef, 'broken csv header won\'t get parsed';
116 $csv = SL::Helper::Csv->new(
118 description;partnumber;sellprice;lastcost_as_number;
119 "Kaf"fee";;0.12;1,221.52
120 Beer;1123245;0.12;1.5234
122 numberformat => '1,000.00',
123 class => 'SL::DB::Part',
125 is $csv->parse, undef, 'broken csv content won\'t get parsed';
126 is_deeply $csv->errors, [ '"Kaf"fee";;0.12;1,221.52'."\n", 2023, 'EIQ - QUO character not allowed', 5, 2 ], 'error';
130 $csv = SL::Helper::Csv->new(
132 description;partnumber;sellprice;lastcost_as_number;wiener;
133 Kaffee;;0.12;1,221.52;ja wiener
134 Beer;1123245;0.12;1.5234;nein kein wieder
136 numberformat => '1,000.00',
137 ignore_unknown_columns => 1,
138 class => 'SL::DB::Part',
141 is $csv->get_objects->[0]->lastcost, '1221.52', 'ignore_unkown_columns works';