1 files changed, 131 insertions, 0 deletions
diff --git a/t/Business-OnlinePayment-PaySystems.t b/t/Business-OnlinePayment-PaySystems.t
new file mode 100644
index 0000000..ea466a4
--- /dev/null
+++ b/t/Business-OnlinePayment-PaySystems.t
@@ -0,0 +1,131 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl Business-OnlinePayment-PaySystems.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 22;
+use Term::ReadLine;
+
+BEGIN { use_ok('Business::OnlinePayment::PaySystems') };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+
+
+my $term = new Term::ReadLine 'foo';
+diag("Please enter a test account for PaySystems");
+my $prompt = "login: ";
+my $login = $term->readline($prompt);
+diag("Please enter the password for the test account $login");
+$prompt = "password: ";
+my $pass = $term->readline($prompt);
+diag("Please enter a valid creditcard to test against ");
+diag("It will be charged 2 dollars ");
+$prompt = "card number: ";
+my $cc = $term->readline($prompt);
+diag("Please enter an expiry in the form MMYY"); 
+$prompt = "MMYY: ";
+my $exp = $term->readline($prompt);
+diag("Please enter a cvv2"); 
+$prompt = "cvv2: ";
+my $cvv2 = $term->readline($prompt);
+
+
+diag("\n\nTrying Normal Authorization\n\n");
+
+my $transaction;
+ok($transaction = new Business::OnlinePayment('PaySystems'), 'new PaySystems');
+ok($transaction->content(
+                        type       => 'Visa',
+                        amount     => '1.00',
+                        card_number => $cc,
+                        cvv2       => $cvv2,
+                        expiration => $exp,
+                        first_name => 'John',
+                        last_name  => 'Public',
+                        action     => 'NORMAL authorization',
+                        login      => $login,
+                        password   => $pass,
+                        address    => '123 foo street',
+                        city       => 'fooville',
+                        state      => 'California',
+                        zip        => '90210',
+                        country    => 'US',
+                        email      => 'foo@bar.com',
+                        customer_ip => '123.123.123.123',
+                        phone      => '1123342234',
+                        ),
+    'content');
+ok($transaction->submit(), 'submit');
+
+ok($transaction->is_success(), 'is success');
+
+my $authcode;
+ok($authcode = $transaction->authorization(), "authorization $authcode");
+my $err;
+ok($err = $transaction->error_message(), "error $err");
+my $on;
+ok($on = $transaction->order_number(), "order number $on");
+
+diag("\n\norder number: $on auth: $authcode Error: $err\n\n");
+
+
+diag("\n\nTrying Authorization Only\n\n");
+ok($tx = new Business::OnlinePayment('PaySystems'), 'new PaySystems 2');
+ok($tx ->content(
+                        type       => 'Visa',
+                        amount     => '1.00',
+                        card_number => $cc,
+                        cvv2       => $cvv2,
+                        expiration => $exp,
+                        first_name => 'John',
+                        last_name  => 'Public',
+                        action     => 'authorization only',
+                        login      => $login,
+                        password   => $pass,
+                        address    => '123 foo street',
+                        city       => 'fooville',
+                        state      => 'California',
+                        zip        => '90210',
+                        country    => 'US',
+                        email      => 'foo@bar.com',
+                        customer_ip => '123.123.123.123',
+                        phone      => '1123342234',
+
+                       ),
+    'new content');
+
+ok($tx->submit(), 'submit');
+$authcode = $err = $on = '';
+ok($tx->is_success(), 'is success');
+ok($authcode = $tx->authorization(), "authorization $authcode");
+ok($err = $tx->error_message(), "error $err");
+ok($on = $tx->order_number(), "order number $on");
+my $ordernum = $on;
+
+diag("\n\norder_number: $on auth: $authcode err: $err\n\n");
+
+
+diag("\n\nTrying Post Authorization\n\n");
+ok($tx2 = new Business::OnlinePayment('PaySystems'), 'new PaySystems 3');
+ok($tx2->content( 
+                        amount     => '1.00',
+                        action     => 'post authorization',
+                        login      => $login,
+                        password   => $pass,
+                        order_number => $ordernum,
+                       ),
+    'new content');
+ok($tx2->submit, 'submit');
+$authcode = $err = $on = '';
+ok($tx2->is_success(), 'is success');
+ok($authcode = $tx2->authorization(), "authorization $authcode");
+ok($err = $tx2->error_message(), "error $err");
+ok($on = $tx2->order_number(), "order number $on");
+
+diag("\n\norder_number: $on auth: $authcode err: $err\n\n");
+