From 76ccf098c6e9c8849c8ca459a54d7383baf39ddb Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Sun, 13 Apr 2014 16:36:36 -0700 Subject: Change my email address to eagle@eyrie.org Change-Id: I4c2b5d7c807d6c27dd18a3b92eef66d21287d21e Reviewed-on: https://gerrit.stanford.edu/1481 Reviewed-by: Russ Allbery Tested-by: Russ Allbery --- perl/t/acl.t | 2 +- perl/t/admin.t | 2 +- perl/t/config.t | 2 +- perl/t/file.t | 2 +- perl/t/init.t | 2 +- perl/t/keytab.t | 2 +- perl/t/lib/Util.pm | 2 +- perl/t/object.t | 2 +- perl/t/pod-spelling.t | 2 +- perl/t/pod.t | 2 +- perl/t/report.t | 2 +- perl/t/server.t | 2 +- perl/t/stanford-naming.t | 2 +- perl/t/verifier-ldap-attr.t | 4 ++-- perl/t/verifier-netdb.t | 4 ++-- perl/t/verifier.t | 20 ++++++++++---------- perl/t/wa-keyring.t | 2 +- 17 files changed, 28 insertions(+), 28 deletions(-) (limited to 'perl/t') diff --git a/perl/t/acl.t b/perl/t/acl.t index 26b4903..7265865 100755 --- a/perl/t/acl.t +++ b/perl/t/acl.t @@ -2,7 +2,7 @@ # # Tests for the wallet ACL API. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2007, 2008 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/admin.t b/perl/t/admin.t index 740c79e..1f3ccba 100755 --- a/perl/t/admin.t +++ b/perl/t/admin.t @@ -2,7 +2,7 @@ # # Tests for wallet administrative interface. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2008, 2009, 2010, 2011, 2013 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/config.t b/perl/t/config.t index 543e5d6..881f2bd 100755 --- a/perl/t/config.t +++ b/perl/t/config.t @@ -2,7 +2,7 @@ # # Tests for the wallet server configuration. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2008, 2010 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/file.t b/perl/t/file.t index 5cb7c35..ac35c44 100755 --- a/perl/t/file.t +++ b/perl/t/file.t @@ -2,7 +2,7 @@ # # Tests for the file object implementation. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2008 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/init.t b/perl/t/init.t index 142f54c..189a689 100755 --- a/perl/t/init.t +++ b/perl/t/init.t @@ -2,7 +2,7 @@ # # Tests for database initialization. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2007, 2008 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/keytab.t b/perl/t/keytab.t index 34da9c9..cb256ee 100755 --- a/perl/t/keytab.t +++ b/perl/t/keytab.t @@ -2,7 +2,7 @@ # # Tests for the keytab object implementation. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2007, 2008, 2009, 2010, 2013 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/lib/Util.pm b/perl/t/lib/Util.pm index 3e606fe..9e5b95e 100644 --- a/perl/t/lib/Util.pm +++ b/perl/t/lib/Util.pm @@ -1,6 +1,6 @@ # Utility class for wallet tests. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2007, 2008 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/object.t b/perl/t/object.t index 5eb6941..12443bc 100755 --- a/perl/t/object.t +++ b/perl/t/object.t @@ -2,7 +2,7 @@ # # Tests for the basic object implementation. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2007, 2008, 2011 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/pod-spelling.t b/perl/t/pod-spelling.t index 6d9f7b0..577a99e 100755 --- a/perl/t/pod-spelling.t +++ b/perl/t/pod-spelling.t @@ -7,7 +7,7 @@ # RRA_MAINTAINER_TESTS is set, since spelling dictionaries vary too much # between environments. # -# Copyright 2008, 2009 Russ Allbery +# Copyright 2008, 2009 Russ Allbery # # See LICENSE for licensing terms. diff --git a/perl/t/pod.t b/perl/t/pod.t index dc5f468..dfcf88e 100755 --- a/perl/t/pod.t +++ b/perl/t/pod.t @@ -2,7 +2,7 @@ # # Test POD formatting for the wallet Perl modules. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2007, 2010 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/report.t b/perl/t/report.t index a6b85df..4ea9628 100755 --- a/perl/t/report.t +++ b/perl/t/report.t @@ -2,7 +2,7 @@ # # Tests for the wallet reporting interface. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2008, 2009, 2010 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/server.t b/perl/t/server.t index 4afda51..2a83008 100755 --- a/perl/t/server.t +++ b/perl/t/server.t @@ -2,7 +2,7 @@ # # Tests for the wallet server API. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2007, 2008, 2010, 2011, 2012, 2013 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/stanford-naming.t b/perl/t/stanford-naming.t index f222c49..c512ad0 100755 --- a/perl/t/stanford-naming.t +++ b/perl/t/stanford-naming.t @@ -6,7 +6,7 @@ # sites, but it's used at Stanford and this test suite is used to verify # behavior at Stanford. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2013 # The Board of Trustees of the Leland Stanford Junior University # diff --git a/perl/t/verifier-ldap-attr.t b/perl/t/verifier-ldap-attr.t index 7fad990..37a8b92 100755 --- a/perl/t/verifier-ldap-attr.t +++ b/perl/t/verifier-ldap-attr.t @@ -5,7 +5,7 @@ # This test can only be run by someone local to Stanford with appropriate # access to the LDAP server and will be skipped in all other environments. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2012, 2013, 2014 # The Board of Trustees of the Leland Stanford Junior University # @@ -28,7 +28,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 = 'eagle@eyrie.org'; my $attr = 'suPrivilegeGroup'; my $value = 'stanford:stanford'; diff --git a/perl/t/verifier-netdb.t b/perl/t/verifier-netdb.t index 398cc6a..3e34966 100755 --- a/perl/t/verifier-netdb.t +++ b/perl/t/verifier-netdb.t @@ -6,7 +6,7 @@ # access to the NetDB role server and will be skipped in all other # environments. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2008 # The Board of Trustees of the Leland Stanford Junior University # @@ -21,7 +21,7 @@ use Util; my $netdb = 'netdb-node-roles-rc.stanford.edu'; my $host = 'windlord.stanford.edu'; -my $user = 'rra@stanford.edu'; +my $user = 'eagle@eyrie.org'; # Determine the local principal. my $klist = `klist 2>&1` || ''; diff --git a/perl/t/verifier.t b/perl/t/verifier.t index 75f1afa..c734762 100755 --- a/perl/t/verifier.t +++ b/perl/t/verifier.t @@ -2,7 +2,7 @@ # # Tests for the basic wallet ACL verifiers. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2007, 2008, 2010 # The Board of Trustees of the Leland Stanford Junior University # @@ -23,37 +23,37 @@ use Util; my $verifier = Wallet::ACL::Base->new; ok (defined $verifier, 'Wallet::ACL::Base creation'); ok ($verifier->isa ('Wallet::ACL::Base'), ' and class verification'); -is ($verifier->check ('rra@stanford.edu', 'rra@stanford.edu'), 0, +is ($verifier->check ('eagle@eyrie.org', 'eagle@eyrie.org'), 0, 'Default check declines'); is ($verifier->error, undef, 'No error set'); $verifier = Wallet::ACL::Krb5->new; ok (defined $verifier, 'Wallet::ACL::Krb5 creation'); ok ($verifier->isa ('Wallet::ACL::Krb5'), ' and class verification'); -is ($verifier->check ('rra@stanford.edu', 'rra@stanford.edu'), 1, +is ($verifier->check ('eagle@eyrie.org', 'eagle@eyrie.org'), 1, 'Simple check'); -is ($verifier->check ('rra@stanford.edu', 'thoron@stanford.edu'), 0, +is ($verifier->check ('eagle@eyrie.org', 'thoron@stanford.edu'), 0, 'Simple failure'); is ($verifier->error, undef, 'No error set'); -is ($verifier->check (undef, 'rra@stanford.edu'), undef, +is ($verifier->check (undef, 'eagle@eyrie.org'), undef, 'Undefined principal'); is ($verifier->error, 'no principal specified', ' and right error'); -is ($verifier->check ('rra@stanford.edu', ''), undef, 'Empty ACL'); +is ($verifier->check ('eagle@eyrie.org', ''), undef, 'Empty ACL'); 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 ('eagle@eyrie.org', '.*@stanford\.edu\z'), 1, 'Simple check'); -is ($verifier->check ('rra@stanford.edu', '^a.*@stanford\.edu'), 0, +is ($verifier->check ('eagle@eyrie.org', '^a.*@stanford\.edu'), 0, 'Simple failure'); is ($verifier->error, undef, 'No error set'); is ($verifier->check (undef, '^rra@stanford\.edu\z'), undef, 'Undefined principal'); is ($verifier->error, 'no principal specified', ' and right error'); -is ($verifier->check ('rra@stanford.edu', ''), undef, 'Empty ACL'); +is ($verifier->check ('eagle@eyrie.org', ''), undef, 'Empty ACL'); is ($verifier->error, 'no ACL specified', ' and right error'); -is ($verifier->check ('rra@stanford.edu', '(rra'), undef, 'Malformed regex'); +is ($verifier->check ('eagle@eyrie.org', '(rra'), undef, 'Malformed regex'); is ($verifier->error, 'malformed krb5-regex ACL', ' and right error'); # Tests for the NetDB verifiers. Skip these if we don't have a keytab or if diff --git a/perl/t/wa-keyring.t b/perl/t/wa-keyring.t index 7ba5723..eaae034 100755 --- a/perl/t/wa-keyring.t +++ b/perl/t/wa-keyring.t @@ -2,7 +2,7 @@ # # Tests for the WebAuth keyring object implementation. # -# Written by Russ Allbery +# Written by Russ Allbery # Copyright 2013 # The Board of Trustees of the Leland Stanford Junior University # -- cgit v1.2.3