diff options
| author | Russ Allbery <eagle@eyrie.org> | 2020-05-17 22:20:42 -0700 |
|---|---|---|
| committer | Russ Allbery <eagle@eyrie.org> | 2020-05-17 22:20:42 -0700 |
| commit | 303d68b41763b0aab62cd37190ded99998d8afc5 (patch) | |
| tree | f4b3ebc3b360fc64748fb4f738fe5e691a907f99 | |
| parent | 21651a03eee3a174c657515fc75ecd1857500c10 (diff) | |
Suppress unversioned database warnings in a test
In general/server, suppress warnings from an unversioned database
when testing various failure scenarios.
| -rwxr-xr-x | perl/t/general/server.t | 4 |
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) }; |