Getting code ready for CPAN and debian relase.

1 files changed, 29 insertions, 0 deletions

diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl
new file mode 100644
index 0000000..69f8c89
--- /dev/null
+++ b/t/lib/test_account.pl
@@ -0,0 +1,29 @@
+
+sub test_account {
+    # fill all these fields in to test out transactions
+    my %opts = (
+        server =>'', # be sure to leave out the 'https://'
+        platform => '',
+        gid => '',
+        tid => '',
+        userid=> 'name@server.com',
+        port => 443,
+        env => 'test',
+        appid => ''
+    );
+
+    return %opts;
+}
+
+sub expiration_date {
+    my($month, $year) = (localtime)[4,5];
+    $month += 1;
+    $year++;       # So we expire next year.
+    $year %= 100;
+
+    return sprintf("%02d/%02d", $month, $year);
+}
+
+
+1;
+