B:OP:WesternACH startstart

1 files changed, 34 insertions, 0 deletions

diff --git a/t/check.t b/t/check.t
new file mode 100644
index 0000000..661c1a7
--- /dev/null
+++ b/t/check.t
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+
+use Test::More;
+require 't/lib/test_account.pl';
+
+my($login, $password) = test_account_or_skip();
+plan tests => 2;
+
+use_ok 'Business::OnlinePayment';
+
+my $tx = Business::OnlinePayment->new('WesternACH');
+$tx->content(
+  type      =>  'echeck',
+  login     =>  $login,
+  password  =>  $password, 
+  action    =>  'Normal Authorization',
+  description => 'Business::OnlinePayment checking test',
+  amount    =>  '40.18',
+  invoice_number => '10999',
+  customer_id => 'nobody',
+  first_name  => 'John',
+  last_name => 'Doe',
+  address   => '123 Anywhere',
+  city      => 'Sacramento',
+  state     => 'CA',
+  zip       => '95824',
+  account_number => '100012345678',
+  routing_code  => '111000025',
+  account_type  => 'Checking',
+);
+$tx->submit();
+
+ok($tx->is_success()) or diag $tx->error_message;
+