t/shop/shop_order.t

   1 use strict;
   2 use Test::More;
   3
   4 use lib 't';
   5 use Support::TestSetup;
   6 use Carp;
   7 use Test::Exception;
   8 use SL::DBUtils qw(check_trgm);
   9 use SL::Dev::ALL;
  10 use SL::Dev::Part qw(new_part);
  11 use SL::Dev::Shop qw(new_shop new_shop_part new_shop_order);
  12 use SL::Dev::CustomerVendor qw(new_customer);
  13 use SL::DB::Shop;
  14 use SL::DB::ShopOrder;
  15 use SL::DB::ShopOrderItem;
  16 use SL::Controller::ShopOrder;
  17 use Data::Dumper;
  18
  19 my ($shop, $shop_order, $shop_part, $part, $customer, $employee);
  20 my ($transdate);
  21
  22 sub reset_state {
  23   my %params = @_;
  24
  25   clear_up();
  26
  27   $transdate = DateTime->today_local;
  28   $transdate->set_year(2019) if $transdate->year == 2020; # use year 2019 in 2020, because of tax rate change in Germany
  29
  30   $shop = new_shop->save;
  31   $part = new_part->save;
  32   $shop_part = new_shop_part(part => $part, shop => $shop)->save;
  33
  34   $employee = SL::DB::Manager::Employee->current || croak "No employee";
  35
  36   $customer = new_customer( name    => 'Evil Inc',
  37                             street  => 'Evil Street',
  38                             zipcode => '66666',
  39                             email   => 'evil@evilinc.com'
  40                           )->save;
  41 }
  42
  43 sub save_shopcontroller_to_string {
  44
  45   my $output;
  46   open(my $outputFH, '>', \$output) or die "OUTPUT";
  47   my $oldFH = select $outputFH;
  48   my $shop_controller = SL::Controller::ShopOrder->new;
  49   $shop_controller->action_transfer;
  50
  51   select $oldFH;
  52   close $outputFH;
  53   return $output;
  54 }
  55 sub test_transfer {
  56   my ( %params ) = @_;
  57   $::form = Support::TestSetup->create_new_form;
  58   $::form->{import_id} = $params{import_id};
  59   $::form->{customer} =  $params{customer};
  60   my $test_name = 'Test Controller Action Transfer';
  61   save_shopcontroller_to_string();
  62   my @links_record = RecordLinks->get_links( 'from_table' => 'shop_orders',
  63                                             'from_id'    => $params{import_id},
  64                                             'to_table'   => 'oe',
  65                                           );
  66   is($links_record[0]->{from_id}    , $params{import_id}, "record from id check");
  67   is($links_record[0]->{from_table} , 'shop_orders'     , "record from table <shop_orders> check");
  68   is($links_record[0]->{to_table}   , 'oe'              , "record to table <oe> check");
  69 }
  70
  71 Support::TestSetup::login();
  72
  73 reset_state();
  74
  75 my $trgm = check_trgm($::form->get_standard_dbh());
  76
  77 my $shop_trans_id = 1;
  78
  79 $shop_order = new_shop_order(
  80   shop              => $shop,
  81   transfer_date     => $transdate,
  82   shop_trans_id     => $shop_trans_id,
  83   order_date        => $transdate->datetime,
  84   amount            => 59.5,
  85   billing_lastname  => 'Schmidt',
  86   billing_firstname => 'Sven',
  87   billing_company   => 'Evil Inc',
  88   billing_street    => 'Evil Street 666',
  89   billing_zipcode   => $customer->zipcode,
  90   billing_email     => 'email',
  91 );
  92
  93 my $shop_order_item = SL::DB::ShopOrderItem->new(
  94   partnumber    => $part->partnumber,
  95   position      => 1,
  96   quantity      => 5,
  97   price         => 10,
  98   shop_trans_id => $shop_trans_id,
  99 );
 100 $shop_order->shop_order_items( [ $shop_order_item ] );
 101 $shop_order->save;
 102
 103 note('testing check_for_existing_customers');
 104 my $fuzzy_customers = $shop_order->check_for_existing_customers;
 105
 106 is(scalar @{ $fuzzy_customers }, 1, 'found 1 matching customer');
 107 is($fuzzy_customers->[0]->name, 'Evil Inc', 'matched customer Evil Inc');
 108
 109 note('adding a not-so-similar customer');
 110 my $customer_different = new_customer(
 111   name    => "Different Name",
 112   street  => 'Good Straet', # difference large enough from "Evil Street"
 113   zipcode => $customer->zipcode,
 114   email   => "foo",
 115 )->save;
 116 $fuzzy_customers = $shop_order->check_for_existing_customers;
 117 is(scalar @{ $fuzzy_customers }, 1, 'still only found 1 matching customer (zipcode equal + street dissimilar');
 118
 119 note('adding 2 similar customers and 1 dissimilar but same email');
 120 my $customer_similar = new_customer(
 121   name    => "Different Name",
 122   street  => 'Evil Street 666', # difference not large enough from "Evil Street", street matches
 123   zipcode => $customer->zipcode,
 124   email   => "foo",
 125 )->save;
 126 my $customer_similar_2 = new_customer(
 127   name    => "Different Name",
 128   street  => 'Evil Straet', # difference not large enough from "Evil Street", street matches
 129   zipcode => $customer->zipcode,
 130   email   => "foofoo",
 131 )->save;
 132 my $customer_same_email = new_customer(
 133   name    => "Different Name",
 134   street  => 'Angel Way', # difference large enough from "Evil Street", street not matches , same email
 135   zipcode => $customer->zipcode,
 136   email   => 'email',
 137 )->save;
 138 my $customers = SL::DB::Manager::Customer->get_all();
 139
 140 $fuzzy_customers = $shop_order->check_for_existing_customers;
 141 if($trgm){
 142   is(scalar @{ $fuzzy_customers }, 4, 'found 4 matching customers (zipcode equal + street similar + same email) trgm_pg is installed');
 143 }else{
 144   is(scalar @{ $fuzzy_customers }, 3, 'found 3 matching customers (zipcode equal + %street% + same email) trgm_pg is not installed, could be 4 with trgm_pg');
 145 }
 146
 147 is($shop->description   , 'testshop' , 'shop description ok');
 148 is($shop_order->shop_id , $shop->id  , "shop_id ok");
 149
 150 note('testing convert_to_sales_order');
 151 my $order = $shop_order->convert_to_sales_order(employee => $employee, customer => $customer, transdate => $shop_order->order_date);
 152 $order->calculate_prices_and_taxes;
 153 $order->save;
 154
 155 is(ref($order), 'SL::DB::Order', 'order ok');
 156 is($order->amount,    59.5, 'order amount ok');
 157 is($order->netamount, 50,   'order netamount ok');
 158
 159 test_transfer( import_id => $shop_order->id , customer => $customer->id );
 160
 161 done_testing;
 162
 163 clear_up();
 164
 165 1;
 166
 167 sub clear_up {
 168   "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(OrderItem Order);
 169   "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(ShopPart Part ShopOrderItem ShopOrder Shop Customer);
 170 }