unbreak this code

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

diff --git a/test.pl b/test.pl
old mode 100644 (file)
new mode 100755 (executable)
index 4c76fd8..34e38b4
--- a/test.pl
+++ b/test.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -w -d
 
 #
 # Make sure to copy Business::OnlinePayment::vSecureProcessing into its
@@ -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',
@@ -38,7 +38,10 @@ main();
 
 sub main {
     my $transaction = Business::OnlinePayment->new("vSecureProcessing", %opt);
+    #$transaction->server('localhost');
+    #$transaction->path('/cgi-bin/test.cgi');
     $transaction->content(%content);
+    $DB::single = 1;
     eval { $transaction->submit(); };
 
     if ( $@ ) {