File Test: Konfiguration für den Test korrekt setzen

[mfinanz.git] / SL / Dev / CustomerVendor.pm

diff --git a/SL/Dev/CustomerVendor.pm b/SL/Dev/CustomerVendor.pm
index ad99b95625bb6a8077e85a3538616c62ecee2edc..6bf976e451cdba991eda3bf05b7bfe01924dbc54 100644 (file)
--- a/SL/Dev/CustomerVendor.pm
+++ b/SL/Dev/CustomerVendor.pm
@@ -2,7 +2,7 @@ package SL::Dev::CustomerVendor;
 
 use strict;
 use base qw(Exporter);
-our @EXPORT = qw(create_customer);
+our @EXPORT = qw(create_customer create_vendor);
 
 use SL::DB::TaxZone;
 use SL::DB::Currency;
@@ -93,13 +93,14 @@ Creates a new vendor.
 
 Minimal usage, default values, without saving to database:
 
-  my $vendor = SL::Dev::vendorVendor::create_vendor();
+  my $vendor = SL::Dev::CustomerVendor::create_vendor();
 
 Complex usage, overwriting some defaults, and save to database:
 
   SL::Dev::CustomerVendor::create_vendor(name        => 'Test vendor',
                                          taxzone_id  => 2,
                                          notes       => "Order for 100$ for free delivery",
+                                         payment_id  => 5,
                                         )->save;
 
 =head1 BUGS