From 828c7d4e23cdaf973f83d5dc545e9be8ef73bedc Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Mon, 22 Oct 2018 11:53:49 +0200 Subject: [PATCH] =?utf8?q?SL::DB::Order:=20Tests=20f=C3=BCr=20new=5Ffrom?= =?utf8?q?=5Fmulti?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- t/db/order.t | 168 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 168 insertions(+) create mode 100644 t/db/order.t diff --git a/t/db/order.t b/t/db/order.t new file mode 100644 index 000000000..205c497ea --- /dev/null +++ b/t/db/order.t @@ -0,0 +1,168 @@ +use Test::More; + +use strict; + +use lib 't'; +use utf8; + +use Carp; +use Data::Dumper; +use Support::TestSetup; +use Test::Exception; + +use SL::DB::Order; +use SL::DB::Customer; +use SL::DB::Department; +use SL::DB::Currency; +use SL::DB::PaymentTerm; +use SL::DB::DeliveryTerm; +use SL::DB::Employee; +use SL::DB::Part; +use SL::DB::Unit; + +use SL::Dev::ALL qw(:ALL); + +my ($customer, $employee, $payment_term, $delivery_term, $unit, @parts, $department); + + +sub clear_up { + foreach (qw(OrderItem Order Part Customer Department PaymentTerm DeliveryTerm)) { + "SL::DB::Manager::${_}"->delete_all(all => 1); + } + SL::DB::Manager::Employee->delete_all(where => [ login => 'testuser' ]); +}; + +sub reset_state { + my %params = @_; + + clear_up(); + + $unit = SL::DB::Manager::Unit->find_by(name => 'kg') || die "Can't find unit 'kg'"; + $customer = new_customer()->save; + + $employee = SL::DB::Employee->new( + 'login' => 'testuser', + 'name' => 'Test User', + )->save; + + $department = SL::DB::Department->new( + 'description' => 'Test Department', + )->save; + + $payment_term = create_payment_terms( + 'description' => '14Tage 2%Skonto, 30Tage netto', + 'description_long' => "Innerhalb von 14 Tagen abzüglich 2 % Skonto, innerhalb von 30 Tagen rein netto.|Bei einer Zahlung bis zum <%skonto_date%> gewähren wir 2 % Skonto (EUR <%skonto_amount%>) entspricht EUR <%total_wo_skonto%>.Bei einer Zahlung bis zum <%netto_date%> ist der fällige Betrag in Höhe von <%total%> <%currency%> zu überweisen.", + 'percent_skonto' => '0.02', + 'terms_netto' => 30, + 'terms_skonto' => 14 + ); + + $delivery_term = SL::DB::DeliveryTerm->new( + 'description' => 'Test Delivey Term', + 'description_long' => 'Test Delivey Term Test Delivey Term', + )->save; + + # some parts/services + @parts = (); + push @parts, new_part( + partnumber => 'T4254', + unit => $unit->name, + )->save; + push @parts, new_service( + partnumber => 'Serv1', + )->save; + push @parts, new_part( + partnumber => 'P2445', + )->save; + push @parts, new_service( + partnumber => 'Serv2' + )->save; +} + +Support::TestSetup::login(); + +reset_state(); + + +##### +my $order1 = SL::Dev::Record::create_sales_order( + save => 1, + customer => $customer, + shippingpoint => "sp", + transaction_description => "td1", + payment_terms => $payment_term, + delivery_term => $delivery_term, + taxincluded => 0, + orderitems => [ SL::Dev::Record::create_order_item(part => $parts[0], qty => 3, sellprice => 70), + SL::Dev::Record::create_order_item(part => $parts[1], qty => 10, sellprice => 50), + ] +); + +my $delivery_term2 = SL::DB::DeliveryTerm->new( + 'description' => 'Test Delivey Term2', + 'description_long' => 'Test Delivey Term2 Test Delivey Term2', +)->save; + +my $order2 = SL::Dev::Record::create_sales_order( + save => 1, + customer => $customer, + shippingpoint => "sp", + transaction_description => "td2", + payment_terms => $payment_term, + delivery_term => $delivery_term2, + taxincluded => 0, + orderitems => [ SL::Dev::Record::create_order_item(part => $parts[2], qty => 1, sellprice => 60), + SL::Dev::Record::create_order_item(part => $parts[3], qty => 20, sellprice => 40), + ] +); + +my $order = SL::DB::Order->new_from_multi([$order1, $order2]); + +ok $order->items->[0]->part->id == $parts[0]->id + && $order->items->[1]->part->id == $parts[1]->id + && $order->items->[2]->part->id == $parts[2]->id + && $order->items->[3]->part->id == $parts[3]->id, + 'new from multi: positions added ok'; + +ok $order->shippingpoint eq "sp", 'new from multi: keep same info'; +ok !$order->transaction_description, 'new from multi: undefine differnt info'; +ok $order->payment_id == $payment_term->id, 'new from multi: keep same info'; +ok !$order->delivery_term, 'new from multi: undefine differnt info'; + +reset_state(); + +##### +$order1 = SL::Dev::Record::create_sales_order( + save => 1, + taxincluded => 0, + orderitems => [ SL::Dev::Record::create_order_item(part => $parts[0], qty => 3, sellprice => 70), + SL::Dev::Record::create_order_item(part => $parts[1], qty => 10, sellprice => 50), + ] +); +$order2 = SL::Dev::Record::create_sales_order( + save => 1, + customer => $customer, + taxincluded => 0, + orderitems => [ SL::Dev::Record::create_order_item(part => $parts[2], qty => 1, sellprice => 60), + SL::Dev::Record::create_order_item(part => $parts[3], qty => 20, sellprice => 40), + ] +); + +my $err_msg; +eval { $order = SL::DB::Order->new_from_multi([$order1, $order2]); 1 } or do {$err_msg = $@}; + +ok $err_msg =~ "^Cannot create order from source records of different customers", 'new from multi: fail on different customers'; + + +#### +clear_up(); + +done_testing; + +1; + + +# set emacs to perl mode +# Local Variables: +# mode: perl +# End: -- 2.20.1