Beginning of CPAN/debian package preparation.

[Business-OnlinePayment-vSecureProcessing.git] / test.pl

diff --git a/test.pl b/test.pl
old mode 100644 (file)
new mode 100755 (executable)
index 4c76fd8..40f528b
--- a/test.pl
+++ b/test.pl
@@ -9,7 +9,7 @@ use strict;
 use Business::OnlinePayment;
 
 my %opt = (
-    url =>'dvrotsos2.kattare.com',
+    server =>'dvrotsos2.kattare.com',
     platform => 'Buypass',
     gid => '1432479912596791',
     tid => '01',
@@ -18,10 +18,14 @@ my %opt = (
     env => 'test'
 );
 
+my $action = shift || 'Normal Authorization';
+my $auth = shift || '';
+
 
 my %content = (
     appid          => 'yiptv',
-    action         => 'Normal Authorization',
+    action         => $action,
+    auth           => $auth,
     description    => 'Business::OnlinePayment visa test',
 #    card_number    => '4007000000027',
     card_number    => '4111111111111111',
@@ -38,7 +42,29 @@ main();
 
 sub main {
     my $transaction = Business::OnlinePayment->new("vSecureProcessing", %opt);
+    
+    print "MAKING PAYMENT\n";
+    MakPayment($transaction);
+    $content{'action'} = 'void';
+    $content{'reference_number'} = $transaction->authorization;
+    $content{'transaction_date'} = $transaction->txn_date;
+    $content{'amount'} = $transaction->txn_amount;
+    print "VOIDING PAYMENT\n";
+    VoidPayment($transaction);
+    $content{'action'} = 'Normal Authorization';
+    print "MAKING PAYMENT\n";
+    MakePayment($transaction);
+    print "REFUNDING PAYMENT\n";
+    $content{'action'} = 'credit';
+    $content{'reference_number'} = $transaction->authorization;
+    $content{'transaction_date'} = $transaction->txn_date;
+    $content{'amount'} = $transaction->txn_amount;
+    refundPayment($transaction);
+}
+
+sub MakePayment {
     $transaction->content(%content);
+
     eval { $transaction->submit(); };
 
     if ( $@ ) {
@@ -52,10 +78,17 @@ sub main {
         } else {
             print "Card was rejected: ". $transaction->error_message(). "\n";
         }
-    
     }
 }
 
+sub VoidPayment {
+    
+}
+
+sub RefundPayment {
+    
+}
+
 
 sub expiration_date {
     my($month, $year) = (localtime)[4,5];