Suppress unversioned database warnings in a test

In general/server, suppress warnings from an unversioned database
when testing various failure scenarios.

1 files changed, 4 insertions, 0 deletions

diff --git a/perl/t/general/server.t b/perl/t/general/server.t
index 0794f15..7ae4347 100755
--- a/perl/t/general/server.t
+++ b/perl/t/general/server.t
@@ -3,6 +3,7 @@
 # Tests for the wallet server API.
 #
 # Written by Russ Allbery <eagle@eyrie.org>
+# Copyright 2020 Russ Allbery <eagle@eyrie.org>
 # Copyright 2007-2014
 #     The Board of Trustees of the Leland Stanford Junior University
 #
@@ -1027,6 +1028,9 @@ END {
     unlink 'wallet-db';
 }
 
+# Suppress complaints from an unversioned database from DBIx::Class.
+local $ENV{DBIC_NO_VERSION_CHECK} = 1;
+
 # Now test handling of some configuration errors.
 undef $Wallet::Config::DB_DRIVER;
 $server = eval { Wallet::Server->new ($user2, $host) };