aboutsummaryrefslogtreecommitdiff
path: root/perl/t/verifier/ldap-attr.t
diff options
context:
space:
mode:
authorRuss Allbery <eagle@eyrie.org>2018-05-27 22:05:31 -0700
committerRuss Allbery <eagle@eyrie.org>2018-05-27 22:05:31 -0700
commit769217510b97e23101a01d228e2b8510fd43a725 (patch)
tree8ac16d985a45b1fa3bfb19a6d3ce17bc61c46fbd /perl/t/verifier/ldap-attr.t
parent3c5a45223de1e5a1d39afe78c3a323c68050d466 (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/ldap-attr.t')
-rwxr-xr-xperl/t/verifier/ldap-attr.t12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl/t/verifier/ldap-attr.t b/perl/t/verifier/ldap-attr.t
index cff3b63..3665edb 100755
--- a/perl/t/verifier/ldap-attr.t
+++ b/perl/t/verifier/ldap-attr.t
@@ -6,7 +6,8 @@
# access to the LDAP server and will be skipped in all other environments.
#
# Written by Russ Allbery <eagle@eyrie.org>
-# Copyright 2012, 2013, 2014
+# Copyright 2018 Russ Allbery <eagle@eyrie.org>
+# Copyright 2012-2014
# The Board of Trustees of the Leland Stanford Junior University
#
# See LICENSE for licensing terms.
@@ -17,11 +18,12 @@ use warnings;
use Test::More;
use lib 't/lib';
+use Test::RRA qw(skip_unless_author);
use Util;
-# Skip all spelling tests unless the maintainer environment variable is set.
-plan skip_all => 'LDAP verifier tests only run for maintainer'
- unless $ENV{RRA_MAINTAINER_TESTS};
+# This test requires a specific environment setup, so only run it for package
+# maintainers.
+skip_unless_author('LDAP verifier tests');
# Declare a plan.
plan tests => 22;
@@ -49,7 +51,7 @@ package main;
# Determine the local principal.
my $klist = `klist 2>&1` || '';
SKIP: {
- skip "tests useful only with Stanford Kerberos tickets", 9
+ skip "tests useful only with Stanford Kerberos tickets", 20
unless ($klist =~ /[Pp]rincipal: \S+\@stanford\.edu$/m);
# Set up our configuration.