Revision 98aa76be
Von Werner Hahn vor mehr als 7 Jahren hinzugefügt
| t/shop/shop_order.t | ||
|---|---|---|
|
use Carp;
|
||
|
use Test::Exception;
|
||
|
use SL::Dev::ALL;
|
||
|
use SL::Dev::Part qw(new_part);
|
||
|
use SL::Dev::Shop qw(new_shop new_shop_part new_shop_order);
|
||
|
use SL::Dev::CustomerVendor qw(new_customer);
|
||
|
use SL::DB::Shop;
|
||
|
use SL::DB::ShopOrder;
|
||
|
use SL::DB::ShopOrderItem;
|
||
| ... | ... | |
|
|
||
|
clear_up();
|
||
|
|
||
|
$shop = SL::Dev::Shop::new_shop->save;
|
||
|
$part = SL::Dev::Part::new_part->save;
|
||
|
$shop_part = SL::Dev::Shop::new_shop_part(part => $part, shop => $shop)->save;
|
||
|
$shop = new_shop->save;
|
||
|
$part = new_part->save;
|
||
|
$shop_part = new_shop_part(part => $part, shop => $shop)->save;
|
||
|
|
||
|
$employee = SL::DB::Manager::Employee->current || croak "No employee";
|
||
|
|
||
|
$customer = SL::Dev::CustomerVendor::new_customer(
|
||
|
name => 'Evil Inc',
|
||
|
street => 'Evil Street',
|
||
|
zipcode => '66666',
|
||
|
email => 'evil@evilinc.com'
|
||
|
)->save;
|
||
|
$customer = new_customer( name => 'Evil Inc',
|
||
|
street => 'Evil Street',
|
||
|
zipcode => '66666',
|
||
|
email => 'evil@evilinc.com'
|
||
|
)->save;
|
||
|
}
|
||
|
|
||
|
sub save_shorcontroller_to_string {
|
||
| ... | ... | |
|
|
||
|
my $shop_trans_id = 1;
|
||
|
|
||
|
$shop_order = SL::Dev::Shop::new_shop_order(
|
||
|
$shop_order = new_shop_order(
|
||
|
shop => $shop,
|
||
|
shop_trans_id => $shop_trans_id,
|
||
|
amount => 59.5,
|
||
| ... | ... | |
|
is($fuzzy_customers->[0]->name, 'Evil Inc', 'matched customer Evil Inc');
|
||
|
|
||
|
note('adding a not-so-similar customer');
|
||
|
my $customer_different = SL::Dev::CustomerVendor::new_customer(
|
||
|
my $customer_different = new_customer(
|
||
|
name => "Different Name",
|
||
|
street => 'Good Straet', # difference large enough from "Evil Street"
|
||
|
zipcode => $customer->zipcode,
|
||
| ... | ... | |
|
is(scalar @{ $fuzzy_customers }, 1, 'still only found 1 matching customer (zipcode equal + street dissimilar');
|
||
|
|
||
|
note('adding a similar customer');
|
||
|
my $customer_similar = SL::Dev::CustomerVendor::new_customer(
|
||
|
my $customer_similar = new_customer(
|
||
|
name => "Different Name",
|
||
|
street => 'Good Street', # difference not large enough from "Evil Street", street matches
|
||
|
zipcode => $customer->zipcode,
|
||
| t/shop/shopware.t | ||
|---|---|---|
|
use Carp;
|
||
|
use Test::Exception;
|
||
|
use SL::Dev::ALL;
|
||
|
use SL::Dev::Part qw(new_part);
|
||
|
use SL::Dev::Shop qw(new_shop new_shop_part);
|
||
|
use SL::Dev::CustomerVendor qw(new_customer);
|
||
|
use SL::DB::Shop;
|
||
|
use SL::DB::ShopOrder;
|
||
|
use SL::DB::ShopOrderItem;
|
||
| ... | ... | |
|
|
||
|
clear_up();
|
||
|
|
||
|
$shop = SL::Dev::Shop::new_shop( connector => 'shopware',
|
||
|
last_order_number => 20000,
|
||
|
pricetype => 'brutto',
|
||
|
price_source => 'master_data',
|
||
|
taxzone_id => 1,
|
||
|
);
|
||
|
$shop = new_shop( connector => 'shopware',
|
||
|
last_order_number => 20000,
|
||
|
pricetype => 'brutto',
|
||
|
price_source => 'master_data',
|
||
|
taxzone_id => 1,
|
||
|
);
|
||
|
$shopware = SL::Shop->new( config => $shop );
|
||
|
$part = SL::Dev::Part::new_part( partnumber => 'SW10002',
|
||
|
description => 'TITANIUM CARBON GS 12m cm',
|
||
|
);
|
||
|
$shop_part = SL::Dev::Shop::new_shop_part(part => $part, shop => $shop);
|
||
|
$part = new_part( partnumber => 'SW10002',
|
||
|
description => 'TITANIUM CARBON GS 12m cm',
|
||
|
);
|
||
|
$shop_part = new_shop_part(part => $part, shop => $shop);
|
||
|
|
||
|
$employee = SL::DB::Manager::Employee->current || croak "No employee";
|
||
|
|
||
|
$customer = SL::Dev::CustomerVendor::new_customer(
|
||
|
name => 'Evil Inc',
|
||
|
street => 'Evil Street',
|
||
|
zipcode => '66666',
|
||
|
email => 'evil@evilinc.com'
|
||
|
)->save;
|
||
|
|
||
|
$customer = new_customer( name => 'Evil Inc',
|
||
|
street => 'Evil Street',
|
||
|
zipcode => '66666',
|
||
|
email => 'evil@evilinc.com'
|
||
|
)->save;
|
||
|
}
|
||
|
|
||
|
sub get_json {
|
||
Auch abrufbar als: Unified diff
WebshopApi: Syntax in Tests