diff options
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/test_account.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl index b86082b..38b282b 100644 --- a/t/lib/test_account.pl +++ b/t/lib/test_account.pl @@ -1,5 +1,6 @@ sub test_account_or_skip { - my($login, $password) = test_account(); + my $suffix = shift; + my($login, $password) = test_account($suffix); unless( defined $login ) { plan skip_all => "No test account"; @@ -9,7 +10,9 @@ sub test_account_or_skip { } sub test_account { - open TEST_ACCOUNT, "t/test_account" or return; + my $suffix = shift || ''; + $suffix = "_$suffix" if $suffix; + open TEST_ACCOUNT, "t/test_account$suffix" or return; my($login, $password) = <TEST_ACCOUNT>; chomp $login; chomp $password; |