Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 98aa76be

Von Werner Hahn vor mehr als 6 Jahren hinzugefügt

  • ID 98aa76be5673cb73d70acecd3c34c55567600889
  • Vorgänger ec9240b2
  • Nachfolger 3c69a99f

WebshopApi: Syntax in Tests

Unterschiede anzeigen:

t/shop/shopware.t
6 6 
use Carp;
7 7 
use Test::Exception;
8 8 
use SL::Dev::ALL;
9 
use SL::Dev::Part qw(new_part);
10 
use SL::Dev::Shop qw(new_shop new_shop_part);
11 
use SL::Dev::CustomerVendor qw(new_customer);
9 12 
use SL::DB::Shop;
10 13 
use SL::DB::ShopOrder;
11 14 
use SL::DB::ShopOrderItem;
......
21 24 

  		




  22
  25
  
    
  clear_up();


  		




  23
  26
  
    

  		




  24
  
  
    
  $shop = SL::Dev::Shop::new_shop( connector         => 'shopware',


  		




  25
  
  
    
                                   last_order_number => 20000,


  		




  26
  
  
    
                                   pricetype         => 'brutto',


  		




  27
  
  
    
                                   price_source      => 'master_data',


  		




  28
  
  
    
                                   taxzone_id        => 1,


  		




  29
  
  
    
                                 );


  		




  
  27
  
    
  $shop = new_shop( connector         => 'shopware',


  		




  
  28
  
    
                    last_order_number => 20000,


  		




  
  29
  
    
                    pricetype         => 'brutto',


  		




  
  30
  
    
                    price_source      => 'master_data',


  		




  
  31
  
    
                    taxzone_id        => 1,


  		




  
  32
  
    
                  );


  		




  30
  33
  
    
  $shopware = SL::Shop->new( config => $shop );


  		




  31
  
  
    
  $part = SL::Dev::Part::new_part( partnumber   => 'SW10002',


  		




  32
  
  
    
                                         description  => 'TITANIUM CARBON GS 12m cm',


  		




  33
  
  
    
                                       );


  		




  34
  
  
    
  $shop_part = SL::Dev::Shop::new_shop_part(part => $part, shop => $shop);


  		




  
  34
  
    
  $part = new_part( partnumber   => 'SW10002',


  		




  
  35
  
    
                    description  => 'TITANIUM CARBON GS 12m cm',


  		




  
  36
  
    
                  );


  		




  
  37
  
    
  $shop_part = new_shop_part(part => $part, shop => $shop);


  		




  35
  38
  
    

  		




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


  		




  37
  40
  
    

  		




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


  		




  39
  
  
    
    name    => 'Evil Inc',


  		




  40
  
  
    
    street  => 'Evil Street',


  		




  41
  
  
    
    zipcode => '66666',


  		




  42
  
  
    
    email   => 'evil@evilinc.com'


  		




  43
  
  
    
  )->save;


  		




  44
  
  
    

  		




  
  41
  
    
  $customer = new_customer( name    => 'Evil Inc',


  		




  
  42
  
    
                            street  => 'Evil Street',


  		




  
  43
  
    
                            zipcode => '66666',


  		




  
  44
  
    
                            email   => 'evil@evilinc.com'


  		




  
  45
  
    
                          )->save;


  		




  45
  46
  
    
}


  		




  46
  47
  
    

  		




  47
  48
  
    
sub get_json {


  		












Auch abrufbar als:  Unified diff