Revision 811f204f
Von Bernd Bleßmann vor fast 4 Jahren hinzugefügt
| t/controllers/csvimport/customervendor.t | ||
|---|---|---|
|
use Test::More tests => 41;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
use lib 't';
|
||
|
|
||
|
use Support::TestSetup;
|
||
|
use List::MoreUtils qw(none any);
|
||
|
|
||
|
use SL::DB::Customer;
|
||
|
use SL::DB::CustomVariableConfig;
|
||
|
use SL::DB::Default;
|
||
|
|
||
|
use SL::Controller::CsvImport;
|
||
|
use_ok 'SL::Controller::CsvImport::CustomerVendor';
|
||
|
|
||
|
Support::TestSetup::login();
|
||
|
|
||
|
#####
|
||
|
sub do_import {
|
||
|
my ($file, $settings) = @_;
|
||
|
|
||
|
my $controller = SL::Controller::CsvImport->new(
|
||
|
type => 'customers_vendors',
|
||
|
);
|
||
|
$controller->load_default_profile;
|
||
|
$controller->profile->set(
|
||
|
charset => 'utf-8',
|
||
|
sep_char => ';',
|
||
|
%$settings
|
||
|
);
|
||
|
|
||
|
my $worker = SL::Controller::CsvImport::CustomerVendor->new(
|
||
|
controller => $controller,
|
||
|
file => $file,
|
||
|
);
|
||
|
$worker->run(test => 0);
|
||
|
|
||
|
return if $worker->controller->errors;
|
||
|
|
||
|
# don't try and save objects that have errors
|
||
|
$worker->save_objects unless scalar @{$worker->controller->data->[0]->{errors}};
|
||
|
|
||
|
return $worker->controller->data;
|
||
|
}
|
||
|
|
||
|
sub _obj_of {
|
||
|
return $_[0]->{object_to_save} || $_[0]->{object};
|
||
|
}
|
||
|
|
||
|
sub clear_up {
|
||
|
SL::DB::Manager::Customer->delete_all(all => 1);
|
||
|
SL::DB::Manager::CustomVariableConfig->delete_all(all => 1);
|
||
|
|
||
|
SL::DB::Default->get->update_attributes(customernumber => '10000');
|
||
|
|
||
|
# Reset request to clear caches. Here especially for cvar-configs.
|
||
|
$::request = Support::TestSetup->create_new_request;
|
||
|
}
|
||
|
|
||
|
#####
|
||
|
|
||
|
# set numberformat and locale (so we can match errors)
|
||
|
my $old_numberformat = $::myconfig{numberformat};
|
||
|
$::myconfig{numberformat} = '1.000,00';
|
||
|
my $old_locale = $::locale;
|
||
|
$::locale = Locale->new('en');
|
||
|
|
||
|
clear_up;
|
||
|
|
||
|
#####
|
||
|
# import and update entries
|
||
|
|
||
|
my $file = \<<EOL;
|
||
|
name;street;
|
||
|
CustomerName;CustomerStreet
|
||
|
EOL
|
||
|
|
||
|
my $entries = do_import($file, {update_policy => 'update_existing'});
|
||
|
|
||
|
ok none {'Updating existing entry in database' eq $_} @{$entries->[0]->{information}}, 'import entry - information (customer)';
|
||
|
is _obj_of($entries->[0])->customernumber, '10001', 'import entry - number (customer)';
|
||
|
is _obj_of($entries->[0])->name, 'CustomerName', 'import entry - name (customer)';
|
||
|
is _obj_of($entries->[0])->street, 'CustomerStreet', 'import entry - street (customer)';
|
||
|
is _obj_of($entries->[0]), $entries->[0]->{object}, 'import entry - object not object_to_save (customer)';
|
||
|
|
||
|
my $default_customernumer = SL::DB::Default->get->load->customernumber;
|
||
|
is $default_customernumer, '10001', 'import entry - defaults range of numbers (customer)';
|
||
|
|
||
|
my $customer_id = _obj_of($entries->[0])->id;
|
||
|
|
||
|
$entries = undef;
|
||
|
|
||
|
$file = \<<EOL;
|
||
|
customernumber;name;street;
|
||
|
10001;CustomerName;NewCustomerStreet
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file, {update_policy => 'update_existing'});
|
||
|
|
||
|
ok any {'Updating existing entry in database' eq $_} @{ $entries->[0]->{information} }, 'update entry - information (customer)';
|
||
|
is _obj_of($entries->[0])->customernumber, '10001', 'update entry - number (customer)';
|
||
|
is _obj_of($entries->[0])->name, 'CustomerName', 'update entry - name (customer)';
|
||
|
is _obj_of($entries->[0])->street, 'NewCustomerStreet', 'update entry - street (customer)';
|
||
|
is _obj_of($entries->[0]), $entries->[0]->{object_to_save}, 'update entry - object is object_to_save (customer)';
|
||
|
is _obj_of($entries->[0])->id, $customer_id, 'update entry - same id (customer)';
|
||
|
$default_customernumer = SL::DB::Default->get->load->customernumber;
|
||
|
is $default_customernumer, '10001', 'update entry - defaults range of numbers (customer)';
|
||
|
|
||
|
$entries = undef;
|
||
|
|
||
|
$file = \<<EOL;
|
||
|
customernumber;name;street;
|
||
|
10001;WrongCustomerName;WrongCustomerStreet
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file, {update_policy => 'skip'});
|
||
|
|
||
|
ok any {'Skipping due to existing entry in database' eq $_} @{ $entries->[0]->{errors} }, 'skip entry - error (customer)';
|
||
|
|
||
|
$default_customernumer = SL::DB::Default->get->load->customernumber;
|
||
|
is $default_customernumer, '10001', 'skip entry - defaults range of numbers (customer)';
|
||
|
|
||
|
$entries = undef;
|
||
|
|
||
|
clear_up;
|
||
|
#####
|
||
|
|
||
|
$file = \<<EOL;
|
||
|
name
|
||
|
CustomerName
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file);
|
||
|
|
||
|
is scalar @$entries, 1, 'one entry - nuber of entries (customer)';
|
||
|
is _obj_of($entries->[0])->name, 'CustomerName', 'simple file - name only (customer)';
|
||
|
|
||
|
$entries = undef;
|
||
|
clear_up;
|
||
|
|
||
|
#####
|
||
|
$file = \<<EOL;
|
||
|
customernumber;name
|
||
|
1;CustomerName1
|
||
|
2;CustomerName2
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file);
|
||
|
|
||
|
is scalar @$entries, 2, 'two entries - number of entries (customer)';
|
||
|
is _obj_of($entries->[0])->name, 'CustomerName1', 'two entries, number and name - name (customer)';
|
||
|
is _obj_of($entries->[0])->customernumber, '1', 'two entries, number and name - number (customer)';
|
||
|
is _obj_of($entries->[1])->name, 'CustomerName2', 'two entries, number and name - name (customer)';
|
||
|
is _obj_of($entries->[1])->customernumber, '2', 'two entries, number and name - number (customer)';
|
||
|
|
||
|
$entries = undef;
|
||
|
clear_up;
|
||
|
|
||
|
#####
|
||
|
$file = \<<EOL;
|
||
|
name;creditlimit;discount
|
||
|
CustomerName1;1.280,50;0,035
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file);
|
||
|
|
||
|
is scalar @$entries, 1, 'creditlimit/discount - number of entries (customer)';
|
||
|
is _obj_of($entries->[0])->name, 'CustomerName1', 'creditlimit/discount - name (customer)';
|
||
|
is _obj_of($entries->[0])->creditlimit, 1280.5, 'creditlimit/discount - creditlimit (customer))';
|
||
|
# Should discount be given in percent or in decimal?
|
||
|
is _obj_of($entries->[0])->discount, 0.035, 'creditlimit/discount - discount (customer)';
|
||
|
|
||
|
$entries = undef;
|
||
|
clear_up;
|
||
|
|
||
|
#####
|
||
|
# Test import with cvars.
|
||
|
# Customer/vendor cvars can have a default value, so the following cases are to be
|
||
|
# tested
|
||
|
# - new customer in csv - no cvars given -> one should be unset, the other one
|
||
|
# should have the default value
|
||
|
# - new customer in csv - both cvars given -> cvars should have the given values
|
||
|
# - update customer with no cvars in csv -> cvars should not change
|
||
|
# - update customer with both cvars in csv -> cvars should have the given values
|
||
|
# (not explicitly testet: does an empty cvar field means to unset the cvar or to
|
||
|
# leave it untouched?)
|
||
|
|
||
|
# create cvars
|
||
|
SL::DB::CustomVariableConfig->new(
|
||
|
module => 'CT',
|
||
|
name => 'no_default',
|
||
|
description => 'no default',
|
||
|
type => 'text',
|
||
|
searchable => 1,
|
||
|
sortkey => 1,
|
||
|
includeable => 0,
|
||
|
included_by_default => 0,
|
||
|
)->save;
|
||
|
|
||
|
SL::DB::CustomVariableConfig->new(
|
||
|
module => 'CT',
|
||
|
name => 'with_default',
|
||
|
description => 'with default',
|
||
|
type => 'text',
|
||
|
default_value => 'this is the default',
|
||
|
searchable => 1,
|
||
|
sortkey => 1,
|
||
|
includeable => 0,
|
||
|
included_by_default => 0,
|
||
|
)->save;
|
||
|
|
||
|
# - new customer in csv - no cvars given -> one should be unset, the other one
|
||
|
# should have the default value
|
||
|
$file = \<<EOL;
|
||
|
customernumber;name;
|
||
|
1;CustomerName1
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file);
|
||
|
|
||
|
is _obj_of($entries->[0])->customernumber, '1', 'cvar test - import customer 1 with no cvars - number (customer)';
|
||
|
is _obj_of($entries->[0])->cvar_by_name('no_default')->value, undef, 'cvar test - import customer 1 - do not set ungiven cvar which has no default';
|
||
|
is _obj_of($entries->[0])->cvar_by_name('with_default')->value, 'this is the default', 'cvar test - import customer 1 - do set ungiven cvar which has default';
|
||
|
|
||
|
$entries = undef;
|
||
|
|
||
|
# - new customer in csv - both cvars given -> cvars should have the given values
|
||
|
$file = \<<EOL;
|
||
|
customernumber;name;cvar_no_default;cvar_with_default
|
||
|
2;CustomerName2;"new cvar value abc";"new cvar value xyz"
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file);
|
||
|
|
||
|
is _obj_of($entries->[0])->customernumber, '2', 'cvar test - import customer 2 with cvars - number (customer)';
|
||
|
is _obj_of($entries->[0])->cvar_by_name('no_default')->value, 'new cvar value abc', 'cvar test - import customer 2 - do set given cvar which has default';
|
||
|
is _obj_of($entries->[0])->cvar_by_name('with_default')->value, 'new cvar value xyz', 'cvar test - import customer 2 - do set given cvar which has default';
|
||
|
|
||
|
$entries = undef;
|
||
|
|
||
|
# - update customer with no cvars in csv -> cvars should not change
|
||
|
$file = \<<EOL;
|
||
|
customernumber;name;street
|
||
|
1;CustomerName1;"street cs1"
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file, {update_policy => 'update_existing'});
|
||
|
is _obj_of($entries->[0])->customernumber, '1', 'cvar test - update customer 1 - number (customer)';
|
||
|
is _obj_of($entries->[0])->street, 'street cs1', 'cvar test - update customer 1 - set new street (customer)';
|
||
|
is _obj_of($entries->[0])->cvar_by_name('no_default')->value, undef, 'cvar test - update customer 1 - do not set ungiven cvar which has no default';
|
||
|
is _obj_of($entries->[0])->cvar_by_name('with_default')->value, 'this is the default', 'cvar test - update customer 1 - do set ungiven cvar which has default';
|
||
|
|
||
|
$entries = undef;
|
||
|
|
||
|
# - update customer with both cvars in csv -> cvars should have the given values
|
||
|
$file = \<<EOL;
|
||
|
customernumber;name;street;cvar_no_default;cvar_with_default
|
||
|
1;CustomerName1;"new street cs1";totaly new cvar 123;totaly new cvar abc
|
||
|
EOL
|
||
|
|
||
|
$entries = do_import($file, {update_policy => 'update_existing'});
|
||
|
is _obj_of($entries->[0])->customernumber, '1', 'cvar test - update customer 1 - number (customer)';
|
||
|
is _obj_of($entries->[0])->street, 'new street cs1', 'cvar test - update customer 1 - set new street (customer)';
|
||
|
is _obj_of($entries->[0])->cvar_by_name('no_default')->value, 'totaly new cvar 123', 'cvar test - update customer 1 - do set given cvar which has no default (customer)';
|
||
|
is _obj_of($entries->[0])->cvar_by_name('with_default')->value, 'totaly new cvar abc', 'cvar test - update customer 1 - do set given cvar which has default (customer)';
|
||
|
|
||
|
$entries = undef;
|
||
|
|
||
|
|
||
|
clear_up;
|
||
|
|
||
|
$::myconfig{numberformat} = $old_numberformat;
|
||
|
$::locale = $old_locale;
|
||
|
|
||
|
1;
|
||
|
|
||
|
#####
|
||
|
# vim: ft=perl
|
||
|
# set emacs to perl mode
|
||
|
# Local Variables:
|
||
|
# mode: perl
|
||
|
# End:
|
||
Auch abrufbar als: Unified diff
CsvImport - Tests für Kundenimport
Im Moment werden alle Tests nur für Kunden, nicht für Lieferanten durchgeführt.