5 use Support::TestSetup;
10 use SL::DB::ShopOrder;
11 use SL::DB::ShopOrderItem;
12 use SL::Controller::ShopOrder;
15 my ($shop, $shop_order, $shop_part, $part, $customer, $employee);
22 $shop = SL::Dev::Shop::new_shop->save;
23 $part = SL::Dev::Part::new_part->save;
24 $shop_part = SL::Dev::Shop::new_shop_part(part => $part, shop => $shop)->save;
26 $employee = SL::DB::Manager::Employee->current || croak "No employee";
28 $customer = SL::Dev::CustomerVendor::new_customer(
30 street => 'Evil Street',
32 email => 'evil@evilinc.com'
36 sub save_shorcontroller_to_string {
39 open(my $outputFH, '<', \$output) or die "OUTPUT";
40 my $oldFH = select $outputFH;
41 my $shor_controller = SL::Controller::ShopOrder->new;
42 $shor_controller->action_transfer;
50 $::form = Support::TestSetup->create_new_form;
51 $::form->{import_id} = $params{import_id};
52 $::form->{customer} = $params{customer};
53 my $test_name = 'Test Controller Action Transfer';
54 save_shorcontroller_to_string();
55 my @links_record = RecordLinks->get_links( 'from_table' => 'shop_orders',
56 'from_id' => $params{import_id},
59 is($links_record[0]->{from_id} , $params{import_id}, "record from id check");
60 is($links_record[0]->{from_table} , 'shop_orders' , "record from table <shop_orders> check");
61 is($links_record[0]->{to_table} , 'oe' , "record to table <oe> check");
64 Support::TestSetup::login();
68 my $shop_trans_id = 1;
70 $shop_order = SL::Dev::Shop::new_shop_order(
72 shop_trans_id => $shop_trans_id,
74 billing_lastname => 'Schmidt',
75 billing_firstname => 'Sven',
76 billing_company => 'Evil Inc',
77 billing_street => 'Evil Street',
78 billing_zipcode => $customer->zipcode,
79 billing_email => $customer->email,
82 my $shop_order_item = SL::DB::ShopOrderItem->new(
83 partnumber => $part->partnumber,
87 shop_trans_id => $shop_trans_id,
89 $shop_order->shop_order_items( [ $shop_order_item ] );
92 note('testing check_for_existing_customers');
93 my $fuzzy_customers = $shop_order->check_for_existing_customers;
95 is(scalar @{ $fuzzy_customers }, 1, 'found 1 matching customer');
96 is($fuzzy_customers->[0]->name, 'Evil Inc', 'matched customer Evil Inc');
98 note('adding a not-so-similar customer');
99 my $customer_different = SL::Dev::CustomerVendor::new_customer(
100 name => "Different Name",
101 street => 'Good Straet', # difference large enough from "Evil Street"
102 zipcode => $customer->zipcode,
105 $fuzzy_customers = $shop_order->check_for_existing_customers;
106 is(scalar @{ $fuzzy_customers }, 1, 'still only found 1 matching customer (zipcode equal + street dissimilar');
108 note('adding a similar customer');
109 my $customer_similar = SL::Dev::CustomerVendor::new_customer(
110 name => "Different Name",
111 street => 'Good Street', # difference not large enough from "Evil Street", street matches
112 zipcode => $customer->zipcode,
115 $fuzzy_customers = $shop_order->check_for_existing_customers;
116 is(scalar @{ $fuzzy_customers }, 2, 'found 2 matching customers (zipcode equal + street similar)');
118 is($shop->description , 'testshop' , 'shop description ok');
119 is($shop_order->shop_id , $shop->id , "shop_id ok");
121 note('testing convert_to_sales_order');
122 my $order = $shop_order->convert_to_sales_order(employee => $employee, customer => $customer);
123 $order->calculate_prices_and_taxes;
126 is(ref($order), 'SL::DB::Order', 'order ok');
127 is($order->amount, 59.5, 'order amount ok');
128 is($order->netamount, 50, 'order netamount ok');
130 test_transfer( import_id => $shop_order->id , customer => $customer->id );
139 "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(OrderItem Order);
140 "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(ShopPart Part ShopOrderItem ShopOrder Shop Customer);