Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a349950f

Von Werner Hahn vor mehr als 7 Jahren hinzugefügt

  • ID a349950fc72f2434f20b346fbcd9d2054bb48cfe
  • Vorgänger d8479657
  • Nachfolger 6c044ff2

Shopmodul: shoporder Test berichtigt

Unterschiede anzeigen:

t/shop/shop_order.t
19 19 
  clear_up();
20 20 

  		




  21
  21
  
    
  $shop = SL::Dev::Shop::create_shop->save;


  		




  22
  
  
    
  $part = SL::Dev::Part::create_part->save;


  		




  
  22
  
    
  $part = SL::Dev::Part::new_part->save;


  		




  23
  23
  
    
  $shop_part = SL::Dev::Shop::create_shop_part(part => $part, shop => $shop)->save;


  		




  24
  24
  
    

  		




  25
  25
  
    
  $employee = SL::DB::Manager::Employee->current || croak "No employee";


  		




  26
  26
  
    

  		




  27
  
  
    
  $customer = SL::Dev::CustomerVendor::create_customer(


  		




  
  27
  
    
  $customer = SL::Dev::CustomerVendor::new_customer(


  		




  28
  28
  
    
    name    => 'Evil Inc',


  		




  29
  29
  
    
    street  => 'Evil Street',


  		




  30
  30
  
    
    zipcode => '66666',


  		




  ......




  67
  67
  
    
is($fuzzy_customers->[0]->name, 'Evil Inc', 'matched customer Evil Inc');


  		




  68
  68
  
    

  		




  69
  69
  
    
note('adding a not-so-similar customer');


  		




  70
  
  
    
my $customer_different = SL::Dev::CustomerVendor::create_customer(


  		




  
  70
  
    
my $customer_different = SL::Dev::CustomerVendor::new_customer(


  		




  71
  71
  
    
  name    => "Different Name",


  		




  72
  72
  
    
  street  => 'Good Straet', # difference large enough from "Evil Street"


  		




  73
  73
  
    
  zipcode => $customer->zipcode,


  		




  ......




  77
  77
  
    
is(scalar @{ $fuzzy_customers }, 1, 'still only found 1 matching customer (zipcode equal + street dissimilar');


  		




  78
  78
  
    

  		




  79
  79
  
    
note('adding a similar customer');


  		




  80
  
  
    
my $customer_similar = SL::Dev::CustomerVendor::create_customer(


  		




  
  80
  
    
my $customer_similar = SL::Dev::CustomerVendor::new_customer(


  		




  81
  81
  
    
  name    => "Different Name",


  		




  82
  82
  
    
  street  => 'Good Street', # difference not large enough from "Evil Street", street matches


  		




  83
  83
  
    
  zipcode => $customer->zipcode,


  		




  ......




  105
  105
  
    
1;


  		




  106
  106
  
    

  		




  107
  107
  
    
sub clear_up {


  		




  108
  
  
    
  "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(OrderItem Order ShopPart Part ShopOrderItem ShopOrder Shop Customer);


  		




  
  108
  
    
  "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(OrderItem Order);


  		




  
  109
  
    
  "SL::DB::Manager::${_}"->delete_all(all => 1) for qw(ShopPart Part ShopOrderItem ShopOrder Shop Customer);


  		




  109
  110
  
    
}


  		












Auch abrufbar als:  Unified diff