t/lib/test_account.pl

   1 # Based on the Business-OnlinePayment-AuthorizeNet tests by
   2 # Jason Kohles and/or Ivan Kohler.
   3
   4 sub test_account_or_skip {
   5   my ($login, $password) = test_account();
   6   if(!defined $login) {
   7     plan skip_all => "No test account";
   8   }
   9   return ($login, $password);
  10 }
  11
  12 sub test_account {
  13   open TEST_ACCOUNT, 't/test_account' or return;
  14   my ($login, $password) = <TEST_ACCOUNT>;
  15   chomp ($login, $password);
  16   return ($login, $password);
  17 }
  18
  19 1;