aboutsummaryrefslogtreecommitdiff
path: root/perl/t/verifier
diff options
context:
space:
mode:
authorJon Robertson <jonrober@stanford.edu>2015-08-25 14:29:16 -0700
committerJon Robertson <jonrober@stanford.edu>2015-11-18 23:47:57 -0800
commite353e236cf6828647820b2d83529cc4a4f08cef2 (patch)
tree31498303d71c084cdf802b284ea9a421ff75a5ff /perl/t/verifier
parent2e00a586996cf4e53bd9d03afca7d46471549171 (diff)
ldap-attr.t: Updated tests to use jonrober rather than rra
Change-Id: I842a7335a4b50c9c20b921ae2efc63aab571635e
Diffstat (limited to 'perl/t/verifier')
-rwxr-xr-xperl/t/verifier/ldap-attr.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/t/verifier/ldap-attr.t b/perl/t/verifier/ldap-attr.t
index 3c132e2..3caaf8b 100755
--- a/perl/t/verifier/ldap-attr.t
+++ b/perl/t/verifier/ldap-attr.t
@@ -31,7 +31,7 @@ require_ok ('Wallet::ACL::LDAP::Attribute');
my $host = 'ldap.stanford.edu';
my $base = 'cn=people,dc=stanford,dc=edu';
my $filter = 'uid';
-my $user = 'rra@stanford.edu';
+my $user = 'jonrober@stanford.edu';
my $attr = 'suPrivilegeGroup';
my $value = 'stanford:stanford';
@@ -68,7 +68,7 @@ SKIP: {
is ($verifier->check ($user, "BOGUS=$value"), undef,
"Checking BOGUS=$value fails with error");
is ($verifier->error,
- 'cannot check LDAP attribute BOGUS for rra: Undefined attribute type',
+ 'cannot check LDAP attribute BOGUS for jonrober: Undefined attribute type',
'...with correct error');
is ($verifier->check ('user-does-not-exist', "$attr=$value"), 0,
"Checking for nonexistent user fails");