diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-08-21 11:59:52 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-08-21 11:59:52 -0700 |
| commit | f1a879e6989d8d9687fd5033a46488e8b13448e1 (patch) | |
| tree | 7812a40970ccbbea0af0cd639c5379507988ebe1 /t/order_num_ca.t | |
| parent | eba22f02d42477d467b870179eb01cc752960c1d (diff) | |
cust_id: Use customer number instead of invoice number / order_id: Append "-invoice_num" per documentation
Diffstat (limited to 't/order_num_ca.t')
| -rw-r--r-- | t/order_num_ca.t | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/t/order_num_ca.t b/t/order_num_ca.t new file mode 100644 index 0000000..baebba4 --- /dev/null +++ b/t/order_num_ca.t @@ -0,0 +1,38 @@ +BEGIN { $| = 1; print "1..1\n"; } + +eval "use Net::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("eSelectPlus"); + +#$Business::OnlinePayment::HTTPS::DEBUG = 1; +#$Business::OnlinePayment::HTTPS::DEBUG = 1; +$Business::OnlinePayment::eSelectPlus::DEBUG = 1; +$Business::OnlinePayment::eSelectPlus::DEBUG = 1; + +$tx->content( + type => 'VISA', + login => 'moot', + password => 'moot', + action => 'Normal Authorization', + amount => '0.80', + currency => 'CAD', + card_number => '4242424242424242', + expiration => '01/12', + invoice_number => '540', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + warn $tx->order_number."\n"; + +if ( $tx->order_number =~ /-540$/ ) { + print "ok 1\n"; +} else { + warn $tx->order_number."\n"; + print "not ok 1\n"; +} + |