From f1a879e6989d8d9687fd5033a46488e8b13448e1 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 21 Aug 2013 11:59:52 -0700 Subject: cust_id: Use customer number instead of invoice number / order_id: Append "-invoice_num" per documentation --- t/order_num_ca.t | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 t/order_num_ca.t (limited to 't/order_num_ca.t') 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"; +} + -- cgit v1.2.1