--- /dev/null
+
+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;
+