diff options
author | Andrew Ruthven <andrew@etc.gen.nz> | 2021-02-10 22:50:05 +0100 |
---|---|---|
committer | Dominic Hargreaves <dom@earth.li> | 2021-02-10 22:50:05 +0100 |
commit | d44079375a0c4c03812e7eade5e344f90e583dee (patch) | |
tree | 173cdd17f546ea084185c434f4de95a331fbfe3e | |
parent | 913c723d33fa382d911cb17c41a7478a0423b4d2 (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; +}; |