1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
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;
|
