t/lib/test_account.pl

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