t/lib/test_account.pl

   1 sub test_account {
   2 #  'login' => 'yCaWGYQsSVR0S48B6AKMK07RQhaxHvGu', #test platform
   3   'login' => 'tSfl065j5F1Z5Uw7jQ2i69z9sd30A6k1',
   4   'password' => '5432',
   5 }
   6
   7 sub expiration_date {
   8     my($month, $year) = (localtime)[4,5];
   9     $month += 1;
  10     $year++;       # So we expire next year.
  11     $year %= 100;  # y2k?  What's that?
  12
  13     return sprintf("%02d/%02d", $month, $year);
  14 }
  15
  16 1;