X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-vSecureProcessing.git;a=blobdiff_plain;f=test.pl;h=34e38b4961114a1581c18780a7cb1e4d4dc3a85d;hp=4c76fd827bfd1f302ca9df149670f90a9286f1ec;hb=75376ff74b19545bf7ee5b66a298ffd4285c5383;hpb=815272d8c928caa24ca0daa9365d7b9e05b20a94

diff --git a/test.pl b/test.pl
old mode 100644
new mode 100755
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 ( $@ ) {