diff options
| author | ivan <ivan> | 2006-10-21 22:59:56 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-10-21 22:59:56 +0000 |
| commit | 870018b93d8b59d23d1c564bcaf612405e9cd5a7 (patch) | |
| tree | 9d373500eca79bcc350c099754d70dd178305bc7 /t/lib | |
| parent | 39541291959ba143c5a9e8272b45d49aea654f35 (diff) | |
update tests with new test accounts
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; |