diff options
Diffstat (limited to 'scripts/t/750_Dpkg_Substvars.t')
-rw-r--r-- | scripts/t/750_Dpkg_Substvars.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/scripts/t/750_Dpkg_Substvars.t b/scripts/t/750_Dpkg_Substvars.t index 52d6a05de..04f933444 100644 --- a/scripts/t/750_Dpkg_Substvars.t +++ b/scripts/t/750_Dpkg_Substvars.t @@ -13,7 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -use Test::More tests => 29; +use Test::More tests => 32; use strict; use warnings; @@ -60,6 +60,10 @@ $s->set_version_substvars("1:2.3.4~5-6.7.8~nmu9", "1:2.3.4~5-6.7.8~nmu9+bin0"); is($s->get("binary:Version"), "1:2.3.4~5-6.7.8~nmu9+bin0", "binary:Version"); is($s->get("source:Version"), "1:2.3.4~5-6.7.8~nmu9", "source:Version"); is($s->get("source:Upstream-Version"), "1:2.3.4~5", "source:Upstream-Version"); +$s->set_version_substvars("2.3.4~5-6.7.8~nmu9+b1", "1:2.3.4~5-6.7.8~nmu9+b1"); +is($s->get("binary:Version"), "1:2.3.4~5-6.7.8~nmu9+b1", "binary:Version"); +is($s->get("source:Version"), "2.3.4~5-6.7.8~nmu9", "source:Version"); +is($s->get("source:Upstream-Version"), "2.3.4~5", "source:Upstream-Version"); $s->set_version_substvars("1:2.3.4~5-6.7.8~nmu9+b0"); is($s->get("binary:Version"), "1:2.3.4~5-6.7.8~nmu9+b0", "binary:Version"); is($s->get("source:Version"), "1:2.3.4~5-6.7.8~nmu9", "source:Version"); |