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.

1 files changed, 2 insertions, 9 deletions

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 = <FILE>;
-    close FILE;
-    chomp $data;
-    return $data;
-}
+use lib 't/lib';
+use Util;
 
 # Given a keytab file, try authenticating with kinit.
 sub getcreds {