diff options
author | Jon Robertson <jonrober@stanford.edu> | 2015-08-25 14:29:16 -0700 |
---|---|---|
committer | Jon Robertson <jonrober@stanford.edu> | 2015-11-18 23:47:57 -0800 |
commit | e353e236cf6828647820b2d83529cc4a4f08cef2 (patch) | |
tree | 31498303d71c084cdf802b284ea9a421ff75a5ff /perl/t/verifier | |
parent | 2e00a586996cf4e53bd9d03afca7d46471549171 (diff) |
ldap-attr.t: Updated tests to use jonrober rather than rra
Change-Id: I842a7335a4b50c9c20b921ae2efc63aab571635e
Diffstat (limited to 'perl/t/verifier')
-rwxr-xr-x | perl/t/verifier/ldap-attr.t | 4 |
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"); |