SL::Helper::Csv bekommt Klasse im Profil mitgeteilt.

[mfinanz.git] / t / helper / csv.t

diff --git a/t/helper/csv.t b/t/helper/csv.t
index 3023833712d988a5bec596f36c06f090fb11fe6d..972b3adb3cf686057f576bf072fd0a9576d2e832 100644 (file)
--- a/t/helper/csv.t
+++ b/t/helper/csv.t
@@ -11,9 +11,9 @@ use_ok 'SL::Helper::Csv';
 Support::TestSetup::login();
 
 my $csv = SL::Helper::Csv->new(
 Support::TestSetup::login();
 
 my $csv = SL::Helper::Csv->new(

-  file   => \"Kaffee\n",
-  header => [ 'description' ],
-  class  => 'SL::DB::Part',
+  file    => \"Kaffee\n",
+  header  => [ 'description' ],
+  profile => { class  => 'SL::DB::Part', },

 );
 
 isa_ok $csv->_csv, 'Text::CSV_XS';
 );
 
 isa_ok $csv->_csv, 'Text::CSV_XS';


@@ -28,10 +28,10 @@ $::myconfig{numberformat} = '1.000,00';
 $::myconfig{dateformat} = 'dd.mm.yyyy';
 
 $csv = SL::Helper::Csv->new(
 $::myconfig{dateformat} = 'dd.mm.yyyy';
 
 $csv = SL::Helper::Csv->new(

-  file   => \"Kaffee;0.12;12,2;1,5234\n",
-  header => [ 'description', 'sellprice', 'lastcost_as_number', 'listprice' ],
-  profile => { listprice => 'listprice_as_number' },
-  class  => 'SL::DB::Part',
+  file    => \"Kaffee;0.12;12,2;1,5234\n",
+  header  => [ 'description', 'sellprice', 'lastcost_as_number', 'listprice' ],
+  profile => {profile => { listprice => 'listprice_as_number' },
+              class   => 'SL::DB::Part',},

 );
 $csv->parse;
 
 );
 $csv->parse;
 


@@ -49,8 +49,8 @@ Kaffee,0.12,'12,2','1,5234'
 EOL
   sep_char => ',',
   quote_char => "'",
 EOL
   sep_char => ',',
   quote_char => "'",

-  profile => { listprice => 'listprice_as_number' },
-  class  => 'SL::DB::Part',
+  profile => {profile => { listprice => 'listprice_as_number' },
+              class   => 'SL::DB::Part',}

 );
 $csv->parse;
 is scalar @{ $csv->get_objects }, 1, 'auto header works';
 );
 $csv->parse;
 is scalar @{ $csv->get_objects }, 1, 'auto header works';


@@ -64,7 +64,7 @@ $csv = SL::Helper::Csv->new(
 ;;description;sellprice;lastcost_as_number;
 #####;Puppy;Kaffee;0.12;12,2;1,5234
 EOL
 ;;description;sellprice;lastcost_as_number;
 #####;Puppy;Kaffee;0.12;12,2;1,5234
 EOL

-  class  => 'SL::DB::Part',
+  profile => {class  => 'SL::DB::Part'},

 );
 $csv->parse;
 is scalar @{ $csv->get_objects }, 1, 'bozo header doesn\'t blow things up';
 );
 $csv->parse;
 is scalar @{ $csv->get_objects }, 1, 'bozo header doesn\'t blow things up';


@@ -77,7 +77,7 @@ description;partnumber;sellprice;lastcost_as_number;
 Kaffee;;0.12;12,2;1,5234
 Beer;1123245;0.12;12,2;1,5234
 EOL
 Kaffee;;0.12;12,2;1,5234
 Beer;1123245;0.12;12,2;1,5234
 EOL

-  class  => 'SL::DB::Part',
+  profile => {class  => 'SL::DB::Part'},

 );
 $csv->parse;
 is scalar @{ $csv->get_objects }, 2, 'multiple objects work';
 );
 $csv->parse;
 is scalar @{ $csv->get_objects }, 2, 'multiple objects work';


@@ -93,7 +93,7 @@ Kaffee;;0.12;1,221.52
 Beer;1123245;0.12;1.5234
 EOL
   numberformat => '1,000.00',
 Beer;1123245;0.12;1.5234
 EOL
   numberformat => '1,000.00',

-  class  => 'SL::DB::Part',
+  profile => {class  => 'SL::DB::Part'},

 );
 $csv->parse;
 is $csv->get_objects->[0]->lastcost, '1221.52', 'formatnumber';
 );
 $csv->parse;
 is $csv->get_objects->[0]->lastcost, '1221.52', 'formatnumber';


@@ -107,7 +107,7 @@ Kaffee;;0.12;1,221.52
 Beer;1123245;0.12;1.5234
 EOL
   numberformat => '1,000.00',
 Beer;1123245;0.12;1.5234
 EOL
   numberformat => '1,000.00',

-  class  => 'SL::DB::Part',
+  profile => {class  => 'SL::DB::Part'},

 );
 is $csv->parse, undef, 'broken csv header won\'t get parsed';
 
 );
 is $csv->parse, undef, 'broken csv header won\'t get parsed';
 


@@ -120,7 +120,7 @@ description;partnumber;sellprice;lastcost_as_number;
 Beer;1123245;0.12;1.5234
 EOL
   numberformat => '1,000.00',
 Beer;1123245;0.12;1.5234
 EOL
   numberformat => '1,000.00',

-  class  => 'SL::DB::Part',
+  profile => {class  => 'SL::DB::Part'},

 );
 is $csv->parse, undef, 'broken csv content won\'t get parsed';
 is_deeply $csv->errors, [ '"Kaf"fee";;0.12;1,221.52'."\n", 2023, 'EIQ - QUO character not allowed', 5, 2 ], 'error';
 );
 is $csv->parse, undef, 'broken csv content won\'t get parsed';
 is_deeply $csv->errors, [ '"Kaf"fee";;0.12;1,221.52'."\n", 2023, 'EIQ - QUO character not allowed', 5, 2 ], 'error';


@@ -136,7 +136,7 @@ Beer;1123245;0.12;1.5234;nein kein wieder
 EOL
   numberformat => '1,000.00',
   ignore_unknown_columns => 1,
 EOL
   numberformat => '1,000.00',
   ignore_unknown_columns => 1,

-  class  => 'SL::DB::Part',
+  profile => {class  => 'SL::DB::Part'},

 );
 $csv->parse;
 is $csv->get_objects->[0]->lastcost, '1221.52', 'ignore_unkown_columns works';
 );
 $csv->parse;
 is $csv->get_objects->[0]->lastcost, '1221.52', 'ignore_unkown_columns works';


@@ -150,9 +150,9 @@ Kaffee;;0.12;1,221.52;Standard 7%
 Beer;1123245;0.12;1.5234;16 %
 EOL
   numberformat => '1,000.00',
 Beer;1123245;0.12;1.5234;16 %
 EOL
   numberformat => '1,000.00',

-  class  => 'SL::DB::Part',

   profile => {
   profile => {

-    buchungsgruppe => "buchungsgruppen.description",
+    profile => {buchungsgruppe => "buchungsgruppen.description"},
+    class  => 'SL::DB::Part',

   }
 );
 $csv->parse;
   }
 );
 $csv->parse;


@@ -169,11 +169,13 @@ description;partnumber;sellprice;lastcost_as_number;make_1;model_1;
 Beer;1123245;0.12;1.5234;
 EOL
   numberformat => '1,000.00',
 Beer;1123245;0.12;1.5234;
 EOL
   numberformat => '1,000.00',

-  class  => 'SL::DB::Part',

   profile => {
   profile => {

-    make_1 => "makemodels.0.make",
-    model_1 => "makemodels.0.model",
-  }
+    profile => {
+      make_1 => "makemodels.0.make",
+      model_1 => "makemodels.0.model",
+    },
+    class  => 'SL::DB::Part',
+  },

 );
 $csv->parse;
 my @mm = $csv->get_objects->[0]->makemodel;
 );
 $csv->parse;
 my @mm = $csv->get_objects->[0]->makemodel;


@@ -189,12 +191,14 @@ description;partnumber;sellprice;lastcost_as_number;make_1;model_1;make_2;model_
  Kaffee;;0.12;1,221.52;213;Chair 0815;523;Table 15
 EOL
   numberformat => '1,000.00',
  Kaffee;;0.12;1,221.52;213;Chair 0815;523;Table 15
 EOL
   numberformat => '1,000.00',

-  class  => 'SL::DB::Part',

   profile => {
   profile => {

-    make_1 => "makemodels.0.make",
-    model_1 => "makemodels.0.model",
-    make_2 => "makemodels.1.make",
-    model_2 => "makemodels.1.model",
+    profile => {
+      make_1 => "makemodels.0.make",
+      model_1 => "makemodels.0.model",
+      make_2 => "makemodels.1.make",
+      model_2 => "makemodels.1.model",
+    },
+    class  => 'SL::DB::Part',

   }
 );
 $csv->parse;
   }
 );
 $csv->parse;


@@ -215,9 +219,9 @@ $csv = SL::Helper::Csv->new(
 description;partnumber;sellprice;lastcost_as_number;buchungsgruppe;
 EOL
   numberformat => '1,000.00',
 description;partnumber;sellprice;lastcost_as_number;buchungsgruppe;
 EOL
   numberformat => '1,000.00',

-  class  => 'SL::DB::Part',

   profile => {
   profile => {

-    buchungsgruppe => "buchungsgruppen.1.description",
+    profile => {buchungsgruppe => "buchungsgruppen.1.description"},
+    class  => 'SL::DB::Part',

   }
 );
 is $csv->parse, undef, 'wrong profile gets rejected';
   }
 );
 is $csv->parse, undef, 'wrong profile gets rejected';


@@ -235,9 +239,9 @@ EOL
   numberformat => '1,000.00',
   ignore_unknown_columns => 1,
   strict_profile => 1,
   numberformat => '1,000.00',
   ignore_unknown_columns => 1,
   strict_profile => 1,

-  class  => 'SL::DB::Part',

   profile => {
   profile => {

-    lastcost => 'lastcost_as_number',
+    profile => {lastcost => 'lastcost_as_number'},
+    class  => 'SL::DB::Part',

   }
 );
 $csv->parse;
   }
 );
 $csv->parse;


@@ -254,9 +258,9 @@ Beer;1123245;0.12;1.5234;nein kein wieder
 EOL
   numberformat => '1,000.00',
   strict_profile => 1,
 EOL
   numberformat => '1,000.00',
   strict_profile => 1,

-  class  => 'SL::DB::Part',

   profile => {
   profile => {

-    lastcost => 'lastcost_as_number',
+    profile => {lastcost => 'lastcost_as_number'},
+    class  => 'SL::DB::Part',

   }
 );
 $csv->parse;
   }
 );
 $csv->parse;


@@ -268,7 +272,7 @@ is_deeply( ($csv->errors)[0], [ 'description', undef, 'header field \'descriptio
 $csv = SL::Helper::Csv->new(
   file   => \"Kaffee",
   header => [ 'description' ],
 $csv = SL::Helper::Csv->new(
   file   => \"Kaffee",
   header => [ 'description' ],

-  class  => 'SL::DB::Part',
+  profile => {class  => 'SL::DB::Part'},

 );
 $csv->parse;
 is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'eol bug at the end of files';
 );
 $csv->parse;
 is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'eol bug at the end of files';


@@ -277,9 +281,8 @@ is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'eol bug at the end o
 
 $csv = SL::Helper::Csv->new(
   file   => \"Description\nKaffee",
 
 $csv = SL::Helper::Csv->new(
   file   => \"Description\nKaffee",

-  class  => 'SL::DB::Part',

   case_insensitive_header => 1,
   case_insensitive_header => 1,

-  profile => { description => 'description' },
+  profile => {profile => { description => 'description' }, class  => 'SL::DB::Part'},

 );
 $csv->parse;
 is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive header from csv works';
 );
 $csv->parse;
 is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive header from csv works';


@@ -289,9 +292,8 @@ is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive hea
 $csv = SL::Helper::Csv->new(
   file   => \"Kaffee",
   header => [ 'Description' ],
 $csv = SL::Helper::Csv->new(
   file   => \"Kaffee",
   header => [ 'Description' ],

-  class  => 'SL::DB::Part',

   case_insensitive_header => 1,
   case_insensitive_header => 1,

-  profile => { description => 'description' },
+  profile => {profile => { description => 'description' }, class  => 'SL::DB::Part'},

 );
 $csv->parse;
 is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive header as param works';
 );
 $csv->parse;
 is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive header as param works';


@@ -299,8 +301,8 @@ is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive hea
 #####
 
 $csv = SL::Helper::Csv->new(
 #####
 
 $csv = SL::Helper::Csv->new(

-  file   => \"\x{FEFF}description\nKaffee",
-  class  => 'SL::DB::Part',
+  file   => \"\x{EF}\x{BB}\x{BF}description\nKaffee",
+  profile => {class  => 'SL::DB::Part'},

   encoding => 'utf8',
 );
 $csv->parse;
   encoding => 'utf8',
 );
 $csv->parse;


@@ -356,4 +358,10 @@ $csv->parse;
 is_deeply $csv->get_data, [ { cvar_Groundhog => 'Phil' } ], 'using empty path to get cvars working';
 ok $csv->get_objects->[0], '...and not destorying the objects';
 
 is_deeply $csv->get_data, [ { cvar_Groundhog => 'Phil' } ], 'using empty path to get cvars working';
 ok $csv->get_objects->[0], '...and not destorying the objects';
 

+$csv = SL::Helper::Csv->new(
+  file   => \"description\nKaffee",
+);
+$csv->parse;
+is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'without profile and class works';
+

 # vim: ft=perl
 # vim: ft=perl