working tests!

diff --git a/Changes b/Changes
index aac1198..4ff637c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,7 +1,8 @@
 Revision history for Perl extension Business::OnlinePayment::SkipJack
 
-0.2    Wed Apr 11 12:03:09 PDT 2007
+0.2    Wed Apr 11 14:11:28 PDT 2007
         - clarify licensing (no original code remains)
+        - fix tests
         Thu Mar  2 14:27:11 PST 2006
        - this mostly boring update by Ivan Kohler <ivan-skipjack@420.am>
        - added this changelog, boilerplate POD and README

diff --git a/t/bad_card_visa.t b/t/bad_card_visa.t
index a57f640..4d2808f 100644 (file)
--- a/t/bad_card_visa.t
+++ b/t/bad_card_visa.t
@@ -14,8 +14,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/credit_card_mc.t b/t/credit_card_mc.t
index 6d026e4..b737a11 100644 (file)
--- a/t/credit_card_mc.t
+++ b/t/credit_card_mc.t
@@ -14,8 +14,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/credit_card_visa.t b/t/credit_card_visa.t
index 3e57380..282af43 100644 (file)
--- a/t/credit_card_visa.t
+++ b/t/credit_card_visa.t
@@ -14,8 +14,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/crypt_bad_card_mc.t b/t/crypt_bad_card_mc.t
index 394a3bb..75a119e 100644 (file)
--- a/t/crypt_bad_card_mc.t
+++ b/t/crypt_bad_card_mc.t
@@ -18,8 +18,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000792524556';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/crypt_bad_card_visa.t b/t/crypt_bad_card_visa.t
index 15ea208..3e7de3a 100644 (file)
--- a/t/crypt_bad_card_visa.t
+++ b/t/crypt_bad_card_visa.t
@@ -18,8 +18,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/crypt_credit_card_mc.t b/t/crypt_credit_card_mc.t
index aa2473c..d9c6d7e 100644 (file)
--- a/t/crypt_credit_card_mc.t
+++ b/t/crypt_credit_card_mc.t
@@ -18,8 +18,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/crypt_credit_card_visa.t b/t/crypt_credit_card_visa.t
index 146ab2c..03dd3eb 100644 (file)
--- a/t/crypt_credit_card_visa.t
+++ b/t/crypt_credit_card_visa.t
@@ -18,8 +18,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/return_card_mc.t b/t/return_card_mc.t
index a52c8d0..81577e7 100644 (file)
--- a/t/return_card_mc.t
+++ b/t/return_card_mc.t
@@ -14,8 +14,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/return_card_visa.t b/t/return_card_visa.t
index 354257e..5cef529 100644 (file)
--- a/t/return_card_visa.t
+++ b/t/return_card_visa.t
@@ -14,8 +14,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/void_card_mc.t b/t/void_card_mc.t
index 34cf56a..52acce5 100644 (file)
--- a/t/void_card_mc.t
+++ b/t/void_card_mc.t
@@ -14,8 +14,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',

diff --git a/t/void_card_visa.t b/t/void_card_visa.t
index c876bb4..4e1156f 100644 (file)
--- a/t/void_card_visa.t
+++ b/t/void_card_visa.t
@@ -14,8 +14,8 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
-my $login = $ENV{'sj_html_serial_number'} || '000944785470';
-my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+my $login = $ENV{'sj_html_serial_number'} || '000843232776';
+my $password = $ENV{'sj_devel_serial_number'} || '100025931874';
 
 $tx->content(
     type           => 'VISA',