diff options
author | Andrew Ruthven <andrew@etc.gen.nz> | 2022-10-13 22:45:17 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@debian.org> | 2022-10-13 22:45:17 +0200 |
commit | cbf3968bcb44a10983e24bcb85b36de0224ae906 (patch) | |
tree | d6ca346aad847700a195500a610783513e859114 | |
parent | d93620e0930abbe04bcdc382722733283cd08f57 (diff) |
Using 'call' method doesn't reset gpg version
Bug: https://rt.cpan.org/Ticket/Display.html?id=133021
Last-Update: 2021-01-28
GnuPG::Interface allows the use of the 'call' method to change
the program to be used. Test that this works.
Gbp-Pq: Name test_reset_version_on_call_change
-rw-r--r-- | t/update_version.t | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/t/update_version.t b/t/update_version.t new file mode 100644 index 0000000..1a27e9b --- /dev/null +++ b/t/update_version.t @@ -0,0 +1,33 @@ +#!/usr/bin/perl -w +# +# Request Tracker 4 tests use call() to change the program +# to use to gpg1, however GnuPG::Interface has already set +# the version to 2.2.x and didn't clear the version, therefore +# GnuPG::Interface tried to use --pinentry-mode which +# would fail. +# +# Test to ensure that version is cleared - which is then +# lazy loaded when needed. + +use strict; + +use lib './t'; +use MyTest; + +use GnuPG::Interface; + +my $gnupg = GnuPG::Interface->new(); + +# See that version is set +TEST +{ + $gnupg->cmp_version($gnupg->version, '2.2') > 0; +}; + +$gnupg->call('gpg1'); + +# See that version is set to 1.4.x. +TEST +{ + $gnupg->cmp_version($gnupg->version, '1.5') < 0; +}; |