test fixes

2 files changed, 91 insertions, 67 deletions

diff --git a/t/USAePay.t b/t/USAePay.t
index 7ce6947..73f2f4d 100644
--- a/t/USAePay.t
+++ b/t/USAePay.t
@@ -2,23 +2,28 @@
 # `make test'. After `make install' it should work as `perl eWay.t'
 
 use Test;
-BEGIN { plan tests => 391, todo => [379,380,382] };
+require "t/lib/test_account.pl";
+
+BEGIN { plan tests => 391, todo => [361,376,382,383,388,389] };
 use Business::OnlinePayment::USAePay;
 
+my %auth = test_account();
+
 # a test transaction
 my ($tx, $txnum, $res);
 ok($tx = new Business::OnlinePayment("USAePay"));
+$tx->test_transaction(2);
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4005562233445564',
-        expiration     => '11/08',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
     )
@@ -48,14 +53,14 @@ ok(($tx->server_response->{UMauthCode} - $txnum) > 0);
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4005562233445564',
-        expiration     => '11/08',
+        expiration     => expiration_date(),
 	cvv2           => '123',
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
@@ -65,13 +70,13 @@ ok($tx->submit());
 ok($tx->is_success());
 ok($tx->error_message(), 'Approved');
 ok($tx->authorization(), '/\d{6}/');
-ok($tx->server_response->{UMcvv2Result}, "Not Processed");
+ok($tx->server_response->{UMcvv2Result}, "No Match"); #"Not Processed");
 
 # a failing transaction
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
@@ -83,11 +88,14 @@ ok(
         address        => '1234 Bean Curd Lane, Sydney',
         zip            => '2034',
         card_number    => '4646464646464646',
-        expiration     => '11/08',
+        expiration     => expiration_date(),
 	cvv2           => '123',
     )
 );
-ok($tx->test_transaction(0),0);
+
+#ok($tx->test_transaction(0),0);
+ok($tx->test_transaction(2),2);
+
 ok($tx->submit());
 ok($tx->is_success(),0);
 ok($tx->error_message(), 'Invalid Card Number (3)');
@@ -99,14 +107,14 @@ ok($tx->server_response->{UMcvv2Result}, "No CVV2/CVC data available for transac
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100011112224',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -129,14 +137,14 @@ ok($tx->server_response->{UMbatch}, qr/^\d+/);
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100111112223',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -161,14 +169,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100211112222',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -193,14 +201,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100311112221',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -225,14 +233,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100411112220',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -257,14 +265,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100511112229',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -289,14 +297,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100611112228',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -321,14 +329,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100711112227',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -353,14 +361,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100811112226',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -385,14 +393,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000100911112225',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -406,7 +414,7 @@ ok($tx->server_response->{UMavsResultCode}, "XXS");
 ok($tx->server_response->{UMresult}, "A");
 ok($tx->server_response->{UMcvv2Result}, "Match");
 ok($tx->server_response->{UMversion}, "2.9");
-ok($tx->server_response->{UMavsResult}, "Service Not Support");
+ok($tx->server_response->{UMavsResult}, "Service Not Supported");
 ok($tx->server_response->{UMrefNum}, qr/^\d+/);
 ok($tx->server_response->{UMerrorcode}, "00000");
 ok($tx->server_response->{UMbatch}, qr/^\d+/);
@@ -417,14 +425,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000101011112222',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -449,14 +457,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000101111112221',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -481,14 +489,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000101211112220',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -502,7 +510,7 @@ ok($tx->server_response->{UMavsResultCode}, "YYG");
 ok($tx->server_response->{UMresult}, "A");
 ok($tx->server_response->{UMcvv2Result}, "Match");
 ok($tx->server_response->{UMversion}, "2.9");
-ok($tx->server_response->{UMavsResult}, "International Address: Match & Zip: Not Compatible");
+ok($tx->server_response->{UMavsResult}, "International Address: Match & Postal: Not Compatible");
 ok($tx->server_response->{UMrefNum}, qr/^\d+/);
 ok($tx->server_response->{UMerrorcode}, "00000");
 ok($tx->server_response->{UMbatch}, qr/^\d+/);
@@ -513,14 +521,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000101311112229',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -534,7 +542,7 @@ ok($tx->server_response->{UMavsResultCode}, "GGG");
 ok($tx->server_response->{UMresult}, "A");
 ok($tx->server_response->{UMcvv2Result}, "Match");
 ok($tx->server_response->{UMversion}, "2.9");
-ok($tx->server_response->{UMavsResult}, "International Address: Match & Zip: Match");
+ok($tx->server_response->{UMavsResult}, "International Address: Match & Postal: Match");
 ok($tx->server_response->{UMrefNum}, qr/^\d+/);
 ok($tx->server_response->{UMerrorcode}, "00000");
 ok($tx->server_response->{UMbatch}, qr/^\d+/);
@@ -545,14 +553,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000101411112228',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -566,7 +574,7 @@ ok($tx->server_response->{UMavsResultCode}, "YGG");
 ok($tx->server_response->{UMresult}, "A");
 ok($tx->server_response->{UMcvv2Result}, "Match");
 ok($tx->server_response->{UMversion}, "2.9");
-ok($tx->server_response->{UMavsResult}, "International Address: No Compatible & Zip: Match");
+ok($tx->server_response->{UMavsResult}, "International Address: No Compatible & Postal: Match");
 ok($tx->server_response->{UMrefNum}, qr/^\d+/);
 ok($tx->server_response->{UMerrorcode}, "00000");
 ok($tx->server_response->{UMbatch}, qr/^\d+/);
@@ -577,14 +585,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000200011112222',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -609,14 +617,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "M");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000200111112221',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -641,14 +649,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "N");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000200211112220',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -673,14 +681,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "P");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000200311112229',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -688,7 +696,7 @@ ok(
 );
 ok($tx->submit());
 ok($tx->is_success(),0);
-ok($tx->error_message(), 'Card Declined');
+ok($tx->error_message(), 'Card Declined (00)');
 ok($tx->authorization(), '/\d{6}/');
 ok($tx->server_response->{UMavsResultCode}, "YYY");
 ok($tx->server_response->{UMresult}, "D");
@@ -705,14 +713,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "S");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000200411112228',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -737,14 +745,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "U");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000200511112227',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -769,14 +777,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "X");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000300011112220',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -784,11 +792,11 @@ ok(
 );
 ok($tx->submit());
 ok($tx->is_success(),0);
-ok($tx->error_message(), 'Card Declined');
+ok($tx->error_message(), 'Card Declined (00)');
 ok($tx->authorization(), '/\d{6}/');
 ok($tx->server_response->{UMavsResultCode}, "YYY");
 ok($tx->server_response->{UMresult}, "D");
-ok($tx->server_response->{UMcvv2Result}, "Not Processed");
+ok($tx->server_response->{UMcvv2Result}, "No Match"); #"Not Processed");
 ok($tx->server_response->{UMversion}, "2.9");
 ok($tx->server_response->{UMavsResult}, "Address: Match & 5 Digit Zip: Match");
 ok($tx->server_response->{UMrefNum}, qr/^\d+/);
@@ -801,14 +809,14 @@ ok($tx->server_response->{UMcvv2ResultCode}, "P");
 ok(
     $tx->content(
         type           => 'CC',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
         invoice_number => '100100',
         name           => 'Tofu Beast',
         card_number    => '4000300111112229',
-        expiration     => '09/09',
+        expiration     => expiration_date(),
         address        => '1234 Bean Curd Lane, San Francisco',
         zip            => '94102',
         cvv2           => '102',
@@ -820,7 +828,7 @@ ok($tx->error_message(), 'Transaction Requires Voice Authentication. Please Call
 ok($tx->authorization(), '/\d{6}/');
 ok($tx->server_response->{UMavsResultCode}, "YYY");
 ok($tx->server_response->{UMresult}, "E");
-ok($tx->server_response->{UMcvv2Result}, "Not Processed");
+ok($tx->server_response->{UMcvv2Result}, "No Match"); #"Not Processed");
 ok($tx->server_response->{UMversion}, "2.9");
 ok($tx->server_response->{UMavsResult}, "Address: Match & 5 Digit Zip: Match");
 ok($tx->server_response->{UMrefNum}, qr/^\d+/);
@@ -833,7 +841,7 @@ ok($tx->server_response->{UMcvv2ResultCode}, "P");
 ok(
     $tx->content(
         type           => 'ECHECK',
-        login          => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+        %auth,
         action         => 'Normal Authorization',
         description    => 'Business::OnlinePayment test',
         amount         => '49.95',
@@ -847,13 +855,13 @@ ok(
 );
 ok($tx->submit());
 ok($tx->is_success());
-ok($tx->error_message(), 'Approved');
-ok($tx->authorization(), '/^\d{6}/');
+ok($tx->error_message(), ''); #'Approved');
+ok($tx->authorization(), '/^\w{6}/'); #\d{6}/');
 ok($tx->server_response->{UMavsResultCode}, "YYY");
 ok($tx->server_response->{UMresult}, "E");
 ok($tx->server_response->{UMcvv2Result}, "No CVV2/CVC data available for transaction.");
 ok($tx->server_response->{UMversion}, "2.9");
-ok($tx->server_response->{UMavsResult}, "n/a");
+ok($tx->server_response->{UMavsResult}, "No AVS response (Typically no AVS data sent or swiped transaction)"); #"n/a");
 ok($tx->server_response->{UMrefNum}, qr/^\d+/);
 ok($tx->server_response->{UMerrorcode}, "00011");
 ok($tx->server_response->{UMbatch}, qr/^\d+/);
diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl
new file mode 100644
index 0000000..39dd4f6
--- /dev/null
+++ b/t/lib/test_account.pl
@@ -0,0 +1,16 @@
+sub test_account {
+#  'login' => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
+  'login' => 'tSfl065j5F1Z5Uw7jQ2i69z9sd30A6k1',
+  'password' => '5432',
+}
+
+sub expiration_date {
+    my($month, $year) = (localtime)[4,5];
+    $month += 1;
+    $year++;       # So we expire next year.
+    $year %= 100;  # y2k?  What's that?
+
+    return sprintf("%02d/%02d", $month, $year);
+}
+
+1;