From bc62f937601d4e453730cf321f8f507ebd68cb36 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Mon, 30 May 2016 10:06:57 -0700 Subject: [PATCH] add convenience method for tests to create a new customer --- FS/FS/Test.pm | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/FS/FS/Test.pm b/FS/FS/Test.pm index 9854b94fa..1f2b44bd6 100644 --- a/FS/FS/Test.pm +++ b/FS/FS/Test.pm @@ -235,4 +235,35 @@ sub qsearchs { FS::Record::qsearchs(@_); } +=item new_customer FIRSTNAME + +Returns an L object full of default test data, ready to be inserted. +This doesn't insert the customer, because you might want to change some things first. +FIRSTNAME is recommended so you know which test the customer was used for. + +=cut + +sub new_customer { + my $self = shift; + my $first = shift || 'No Name'; + my $location = FS::cust_location->new({ + address1 => '123 Example Street', + city => 'Sacramento', + state => 'CA', + country => 'US', + zip => '94901', + }); + my $cust = FS::cust_main->new({ + agentnum => 1, + refnum => 1, + last => 'Customer', + first => $first, + invoice_email => 'newcustomer@fake.freeside.biz', + payby => 'BILL', + bill_location => $location, + ship_location => $location, + }); + $cust; +} + 1; # End of FS::Test -- 2.11.0