scripts/t: Skip Dpkg::OpenPGP test if gpg is not present

1 files changed, 7 insertions, 5 deletions

diff --git a/scripts/t/Dpkg_OpenPGP.t b/scripts/t/Dpkg_OpenPGP.t
index ee78da6d3..84b8401f3 100644
--- a/scripts/t/Dpkg_OpenPGP.t
+++ b/scripts/t/Dpkg_OpenPGP.t
@@ -16,16 +16,18 @@
 use strict;
 use warnings;
 
-use Test::More tests => 3;
-use Test::Dpkg qw(:paths);
+use Test::More;
+use Test::Dpkg qw(:paths :needs);
 
 use File::Compare;
 
 use Dpkg::ErrorHandling;
 
-BEGIN {
-    use_ok('Dpkg::OpenPGP');
-}
+test_needs_command('gpg');
+
+plan tests => 3;
+
+use_ok('Dpkg::OpenPGP');
 
 report_options(quiet_warnings => 1);