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::Dev::ALL;
   9 use SL::Dev::Part qw(new_part);
  10 use SL::Dev::Shop qw(new_shop new_shop_part new_shop_order);
  11 use SL::Dev::CustomerVendor qw(new_customer);
  12 use SL::DB::Shop;
  13 use SL::DB::ShopOrder;
  14 use SL::DB::ShopOrderItem;
  15 use SL::Controller::ShopOrder;
  16 use Data::Dumper;
  17
  18 my ($shop, $shop_order, $shop_part, $part, $customer, $employee);
  19
  20 sub reset_state {
  21   my %params = @_;
  22
  23   clear_up();
  24
  25   $shop = new_shop->save;
  26   $part = new_part->save;
  27   $shop_part = new_shop_part(part => $part, shop => $shop)->save;
  28
  29   $employee = SL::DB::Manager::Employee->current || croak "No employee";
  30
  31   $customer = new_customer( name    => 'Evil Inc',
  32                             street  => 'Evil Street',
  33                             zipcode => '66666',
  34                             email   => 'evil@evilinc.com'
  35                           )->save;
  36 }
  37
  38 sub save_shorcontroller_to_string {
  39
  40   my $output;
  41   open(my $outputFH, '<', \$output) or die "OUTPUT";
  42   my $oldFH = select $outputFH;
  43   my $shor_controller = SL::Controller::ShopOrder->new;
  44   $shor_controller->action_transfer;
  45
  46   select $oldFH;
  47   close $outputFH;
  48   return $output;
  49 }
  50 sub test_transfer {
  51   my ( %params ) = @_;
  52   $::form = Support::TestSetup->create_new_form;
  53   $::form->{import_id} = $params{import_id};
  54   $::form->{customer} =  $params{customer};
  55   my $test_name = 'Test Controller Action Transfer';
  56   save_shorcontroller_to_string();
  57   my @links_record = RecordLinks->get_links( 'from_table' => 'shop_orders',
  58                                             'from_id'    => $params{import_id},
  59                                             'to_table'   => 'oe',
  60                                           );
  61   is($links_record[0]->{from_id}    , $params{import_id}, "record from id check");
  62   is($links_record[0]->{from_table} , 'shop_orders'     , "record from table <shop_orders> check");
  63   is($links_record[0]->{to_table}   , 'oe'              , "record to table <oe> check");
  64 }
  65
  66 Support::TestSetup::login();
  67
  68 reset_state();
  69
  70 my $shop_trans_id = 1;
  71
  72 $shop_order = new_shop_order(
  73   shop              => $shop,
  74   shop_trans_id     => $shop_trans_id,
  75   amount            => 59.5,
  76   billing_lastname  => 'Schmidt',
  77   billing_firstname => 'Sven',
  78   billing_company   => 'Evil Inc',
  79   billing_street    => 'Evil Street',
  80   billing_zipcode   => $customer->zipcode,
  81   billing_email     => $customer->email,
  82 );
  83
  84 my $shop_order_item = SL::DB::ShopOrderItem->new(
  85   partnumber    => $part->partnumber,
  86   position      => 1,
  87   quantity      => 5,
  88   price         => 10,
  89   shop_trans_id => $shop_trans_id,
  90 );
  91 $shop_order->shop_order_items( [ $shop_order_item ] );
  92 $shop_order->save;
  93
  94 note('testing check_for_existing_customers');
  95 my $fuzzy_customers = $shop_order->check_for_existing_customers;
  96
  97 is(scalar @{ $fuzzy_customers }, 1, 'found 1 matching customer');
  98 is($fuzzy_customers->[0]->name, 'Evil Inc', 'matched customer Evil Inc');
  99
 100 note('adding a not-so-similar customer');
 101 my $customer_different = new_customer(
 102   name    => "Different Name",
 103   street  => 'Good Straet', # difference large enough from "Evil Street"
 104   zipcode => $customer->zipcode,
 105   email   => "foo",
 106 )->save;
 107 $fuzzy_customers = $shop_order->check_for_existing_customers;
 108 is(scalar @{ $fuzzy_customers }, 1, 'still only found 1 matching customer (zipcode equal + street dissimilar');
 109
 110 note('adding a similar customer');
 111 my $customer_similar = new_customer(
 112   name    => "Different Name",
 113   street  => 'Good Street', # difference not large enough from "Evil Street", street matches
 114   zipcode => $customer->zipcode,
 115   email   => "foo",
 116 )->save;
 117 $fuzzy_customers = $shop_order->check_for_existing_customers;
 118 is(scalar @{ $fuzzy_customers }, 2, 'found 2 matching customers (zipcode equal + street similar)');
 119
 120 is($shop->description   , 'testshop' , 'shop description ok');
 121 is($shop_order->shop_id , $shop->id  , "shop_id ok");
 122
 123 note('testing convert_to_sales_order');
 124 my $order = $shop_order->convert_to_sales_order(employee => $employee, customer => $customer);
 125 $order->calculate_prices_and_taxes;
 126 $order->save;
 127
 128 is(ref($order), 'SL::DB::Order', 'order ok');
 129 is($order->amount,    59.5, 'order amount ok');
 130 is($order->netamount, 50,   'order netamount ok');
 131
 132 test_transfer( import_id => $shop_order->id , customer => $customer->id );
 133
 134 done_testing;
 135
 136 clear_up();
 137
 138 1;
 139
 140 sub clear_up {
 141   "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(OrderItem Order);
 142   "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(ShopPart Part ShopOrderItem ShopOrder Shop Customer);
 143 }