more robust testing platform, #37340

[freeside.git] / FS / t / suite / 00-new_customer.t

diff --git a/FS/t/suite/00-new_customer.t b/FS/t/suite/00-new_customer.t
new file mode 100755 (executable)
index 0000000..8e86459
--- /dev/null
+++ b/FS/t/suite/00-new_customer.t
@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+
+use FS::Test;
+use Test::More tests => 4;
+
+my $FS = FS::Test->new;
+# get the form
+$FS->post('/edit/cust_main.cgi');
+my $form = $FS->form('CustomerForm');
+
+my %params = (
+  residential_commercial  => 'Residential',
+  agentnum                => 1,
+  refnum                  => 1,
+  last                    => 'Customer',
+  first                   => 'New',
+  invoice_email           => 'newcustomer@fake.freeside.biz',
+  bill_address1           => '123 Example Street',
+  bill_address2           => 'Apt. Z',
+  bill_city               => 'Sacramento',
+  bill_state              => 'CA',
+  bill_zip                => '94901',
+  bill_country            => 'US',
+  bill_coord_auto         => 'Y',
+  daytime                 => '916-555-0100',
+  night                   => '916-555-0200',
+  ship_address1           => '125 Example Street',
+  ship_address2           => '3rd Floor',
+  ship_city               => 'Sacramento',
+  ship_state              => 'CA',
+  ship_zip                => '94901',
+  ship_country            => 'US',
+  ship_coord_auto         => 'Y',
+  invoice_ship_address    => 'Y',
+  postal_invoice          => 'Y',
+  billday                 => '1',
+  no_credit_limit         => 1,
+  # payment method
+  custpaybynum0_payby         => 'CARD',
+  custpaybynum0_payinfo       => '4012888888881881',
+  custpaybynum0_paydate_month => '12',
+  custpaybynum0_paydate_year  => '2020',
+  custpaybynum0_paycvv        => '123',
+  custpaybynum0_payname       => '',
+  custpaybynum0_weight        => 1,
+);
+foreach (keys %params) {
+  $form->value($_, $params{$_});
+}
+$FS->post($form);
+ok( $FS->error eq '' , 'form posted' );
+if (
+  ok($FS->redirect =~ m[^/view/cust_main.cgi\?(\d+)], 'new customer accepted')
+) {
+  my $custnum = $1;
+  my $cust = $FS->qsearchs('cust_main', { custnum => $1 });
+  isa_ok ( $cust, 'FS::cust_main' );
+  $FS->post($FS->redirect);
+  ok ( $FS->error eq '' , 'can view customer' );
+} else {
+  # try to display the error message, or if not, show everything
+  $FS->post($FS->redirect);
+  diag ($FS->error);
+  done_testing(2);
+}
+
+1;