X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2Fhelper%2Fcsv.t;h=4e7ef121c5d4a0bbbdac270da509e9b84f2732ef;hb=17f2de0a4b8f2fea0b5140d16d345e8ea180c077;hp=a78a6a96048b4d50a517d88317fb4abb4af136c7;hpb=76e3efe63976405fd9478eac0711a7c127ddba41;p=kivitendo-erp.git diff --git a/t/helper/csv.t b/t/helper/csv.t index a78a6a960..4e7ef121c 100644 --- a/t/helper/csv.t +++ b/t/helper/csv.t @@ -1,12 +1,16 @@ -use Test::More tests => 39; -use SL::Dispatcher; +use Test::More tests => 40; + +use lib 't'; + use Data::Dumper; use utf8; +use_ok 'Support::TestSetup'; use_ok 'SL::Helper::Csv'; -my $csv; -$csv = SL::Helper::Csv->new( +Support::TestSetup::login(); + +my $csv = SL::Helper::Csv->new( file => \"Kaffee\n", header => [ 'description' ], class => 'SL::DB::Part', @@ -17,20 +21,11 @@ isa_ok $csv->_io, 'IO::File'; isa_ok $csv->parse, 'SL::Helper::Csv', 'parsing returns self'; is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'simple case works'; - is $csv->get_objects->[0]->description, 'Kaffee', 'get_object works'; #### -{ -no warnings 'once'; -$::dispatcher = SL::Dispatcher->new; -$::dispatcher->pre_startup_setup(); -} - -$::form = Form->new; $::myconfig{numberformat} = '1.000,00'; $::myconfig{dateformat} = 'dd.mm.yyyy'; -$::locale = Locale->new('de'); $csv = SL::Helper::Csv->new( file => \"Kaffee;0.12;12,2;1,5234\n",