t/lib/test_account.pl

   1
   2 sub test_account {
   3     # fill all these fields in to test out transactions
   4     my %opts = (
   5         login    => '', #userid
   6         password => '', #gid
   7         platform => '',
   8         appid => ''
   9         #tid => '',
  10     );
  11
  12     return %opts;
  13 }
  14
  15 sub expiration_date {
  16     my($month, $year) = (localtime)[4,5];
  17     $month += 1;
  18     $year++;       # So we expire next year.
  19     $year %= 100;
  20
  21     return sprintf("%02d/%02d", $month, $year);
  22 }
  23
  24
  25 1;
  26