t/lib/test_account.pl

   1 use Test::More;
   2
   3 sub test_account_or_skip {
   4     my($login, $password) = test_account();
   5
   6     unless( defined $login ) {
   7         plan skip_all => "No test account";
   8     }
   9
  10     return($login, $password);
  11 }
  12
  13 sub test_account {
  14     open TEST_ACCOUNT, "t/test_account" or return;
  15     my($login, $password) = <TEST_ACCOUNT>;
  16     chomp $login;
  17     chomp $password;
  18
  19     return($login, $password);
  20 }
  21
  22 1;