diff options
| author | Russ Allbery <eagle@eyrie.org> | 2018-05-27 22:05:31 -0700 |
|---|---|---|
| committer | Russ Allbery <eagle@eyrie.org> | 2018-05-27 22:05:31 -0700 |
| commit | 769217510b97e23101a01d228e2b8510fd43a725 (patch) | |
| tree | 8ac16d985a45b1fa3bfb19a6d3ce17bc61c46fbd /perl/t/verifier/basic.t | |
| parent | 3c5a45223de1e5a1d39afe78c3a323c68050d466 (diff) | |
Add obsolete-strings test and fix problems it finds
Mostly changing http eyrie.org URLs to https, but also remove my
old email address in one place and switch some tests away from my
old RRA_MAINTAINER_TESTS environment variable to use the Lancaster
Consensus variables properly. This uncovered a bug in skipping one
test unless Stanford Kerberos credentials existed.
Diffstat (limited to 'perl/t/verifier/basic.t')
| -rwxr-xr-x | perl/t/verifier/basic.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/t/verifier/basic.t b/perl/t/verifier/basic.t index ce44d44..be3c427 100755 --- a/perl/t/verifier/basic.t +++ b/perl/t/verifier/basic.t @@ -46,9 +46,9 @@ is ($verifier->error, 'malformed krb5 ACL', ' and right error'); $verifier = Wallet::ACL::Krb5::Regex->new; isa_ok ($verifier, 'Wallet::ACL::Krb5::Regex', 'krb5-regex verifier'); -is ($verifier->check ('rra@stanford.edu', '.*@stanford\.edu\z'), 1, +is ($verifier->check ('thoron@stanford.edu', '.*@stanford\.edu\z'), 1, 'Simple check'); -is ($verifier->check ('rra@stanford.edu', '^a.*@stanford\.edu'), 0, +is ($verifier->check ('thoron@stanford.edu', '^a.*@stanford\.edu'), 0, 'Simple failure'); is ($verifier->error, undef, 'No error set'); is ($verifier->check (undef, '^rra@stanford\.edu\z'), undef, |