B:OP:WesternACH startstart

4 files changed, 74 insertions, 0 deletions

diff --git a/t/00-load.t b/t/00-load.t
new file mode 100644
index 0000000..2b56323
--- /dev/null
+++ b/t/00-load.t
@@ -0,0 +1,9 @@
+#!perl -T
+
+use Test::More tests => 1;
+
+BEGIN {
+	use_ok( 'Business::OnlinePayment::WesternACH' );
+}
+
+diag( "Testing Business::OnlinePayment::WesternACH $Business::OnlinePayment::WesternACH::VERSION, Perl $], $^X" );
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;
+
diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl
new file mode 100644
index 0000000..6dfddb5
--- /dev/null
+++ b/t/lib/test_account.pl
@@ -0,0 +1,19 @@
+# Based on the Business-OnlinePayment-AuthorizeNet tests by 
+# Jason Kohles and/or Ivan Kohler.
+
+sub test_account_or_skip {
+  my ($login, $password) = test_account();
+  if(!defined $login) {
+    plan skip_all => "No test account";
+  }
+  return ($login, $password);
+}
+
+sub test_account {
+  open TEST_ACCOUNT, 't/test_account' or return;
+  my ($login, $password) = <TEST_ACCOUNT>;
+  chomp ($login, $password);
+  return ($login, $password);
+}
+
+1;
diff --git a/t/pod.t b/t/pod.t
new file mode 100644
index 0000000..ee8b18a
--- /dev/null
+++ b/t/pod.t
@@ -0,0 +1,12 @@
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod
+my $min_tp = 1.22;
+eval "use Test::Pod $min_tp";
+plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+
+all_pod_files_ok();