summaryrefslogtreecommitdiff
path: root/perl/t/config.t
diff options
context:
space:
mode:
Diffstat (limited to 'perl/t/config.t')
-rwxr-xr-xperl/t/config.t44
1 files changed, 0 insertions, 44 deletions
diff --git a/perl/t/config.t b/perl/t/config.t
deleted file mode 100755
index 881f2bd..0000000
--- a/perl/t/config.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Tests for the wallet server configuration.
-#
-# Written by Russ Allbery <eagle@eyrie.org>
-# Copyright 2008, 2010
-# The Board of Trustees of the Leland Stanford Junior University
-#
-# See LICENSE for licensing terms.
-
-use Test::More tests => 6;
-
-# Silence warnings since we're not using use.
-package Wallet::Config;
-our $DB_DRIVER;
-our $KEYTAB_AFS_KASETKEY;
-our $KEYTAB_FLAGS;
-our $KEYTAB_KADMIN;
-package main;
-
-# Load with a nonexistent file.
-$ENV{WALLET_CONFIG} = '/path/to/nonexistent/file';
-eval { require Wallet::Config };
-is ($@, '', 'Loading Wallet::Config with nonexistent config file works');
-is ($Wallet::Config::KEYTAB_FLAGS, '-clearpolicy',
- ' and KEYTAB_FLAGS is correct');
-is ($Wallet::Config::KEYTAB_KADMIN, 'kadmin',
- ' and KEYTAB_KADMIN is correct');
-is ($Wallet::Config::DB_DRIVER, undef, ' and DB_DRIVER is unset');
-
-# Create a configuration file with a single setting.
-open (CONFIG, '>', 'test-wallet.conf')
- or die "$0: cannot create test-wallet.conf: $!\n";
-print CONFIG '$DB_DRIVER = "mysql";', "\n";
-print CONFIG "1;\n";
-close CONFIG;
-$ENV{WALLET_CONFIG} = './test-wallet.conf';
-
-# Reload the module and be sure it picks up that configuration file.
-delete $INC{'Wallet/Config.pm'};
-eval { require Wallet::Config };
-is ($@, '', 'Loading Wallet::Config with new config file works');
-is ($Wallet::Config::DB_DRIVER, 'mysql', ' and now DB_DRIVER is set');
-unlink 'test-wallet.conf';