1 files changed, 0 insertions, 45 deletions
diff --git a/perl/t/verifier-netdb.t b/perl/t/verifier-netdb.t
deleted file mode 100755
index d8fe561..0000000
--- a/perl/t/verifier-netdb.t
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Tests for the NetDB wallet ACL verifiers.
-#
-# This test can only be run by someone local to Stanford with appropriate
-# access to the NetDB role server and will be skipped in all other
-# environments.
-#
-# Written by Russ Allbery <eagle@eyrie.org>
-# Copyright 2008, 2014
-#     The Board of Trustees of the Leland Stanford Junior University
-#
-# See LICENSE for licensing terms.
-
-use Test::More tests => 5;
-
-use Wallet::ACL::NetDB;
-
-use lib 't/lib';
-use Util;
-
-my $netdb = 'netdb-node-roles-rc.stanford.edu';
-my $host  = 'windlord.stanford.edu';
-my $user  = 'rra@stanford.edu';
-
-# Determine the local principal.
-my $klist = `klist 2>&1` || '';
-SKIP: {
-    skip "tests useful only with Stanford Kerberos tickets", 5
-        unless ($klist =~ /^(Default p|\s+P)rincipal: \S+\@stanford\.edu$/m);
-
-    # Set up our configuration.
-    $Wallet::Config::NETDB_REALM = 'stanford.edu';
-    $Wallet::Config::NETDB_REMCTL_CACHE = $ENV{KRB5CCNAME};
-    $Wallet::Config::NETDB_REMCTL_HOST  = $netdb;
-
-    # Finally, we can test.
-    $verifier = eval { Wallet::ACL::NetDB->new };
-    ok (defined $verifier, ' and now creation succeeds');
-    is ($@, q{}, ' with no errors');
-    ok ($verifier->isa ('Wallet::ACL::NetDB'), ' and returns the right class');
-    is ($verifier->check ($user, $host), 1, "Checking $host succeeds");
-    is ($verifier->check ('test-user@stanford.edu', $host), 0,
-        ' but fails with another user');
-}