From c9948c8f68b11a1e897afe9c9f2dd2fcb6934f8d Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Sat, 1 Dec 2007 00:42:46 +0000 Subject: The wallet backend test suite now supports using a database other than SQLite for testing. Also start a new Util.pm module for the test suite and move the contents sub into that module. More to follow. --- perl/t/verifier.t | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) (limited to 'perl/t/verifier.t') diff --git a/perl/t/verifier.t b/perl/t/verifier.t index d401146..8027869 100755 --- a/perl/t/verifier.t +++ b/perl/t/verifier.t @@ -15,15 +15,8 @@ use Wallet::ACL::Krb5; use Wallet::ACL::NetDB; use Wallet::Config; -# Returns the one-line contents of a file as a string, removing the newline. -sub contents { - my ($file) = @_; - open (FILE, '<', $file) or die "cannot open $file: $!\n"; - my $data = ; - close FILE; - chomp $data; - return $data; -} +use lib 't/lib'; +use Util; # Given a keytab file, try authenticating with kinit. sub getcreds { -- cgit v1.2.3