From 303d68b41763b0aab62cd37190ded99998d8afc5 Mon Sep 17 00:00:00 2001
From: Russ Allbery <eagle@eyrie.org>
Date: Sun, 17 May 2020 22:20:42 -0700
Subject: Suppress unversioned database warnings in a test

In general/server, suppress warnings from an unversioned database
when testing various failure scenarios.
---
 perl/t/general/server.t | 4 ++++
 1 file changed, 4 insertions(+)

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) };
-- 
cgit v1.2.3