From 58c9411b535302166226b8700c21fd740d44befb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 5 Sep 2007 15:49:38 +0000 Subject: add a simple test that shows urpmi promotes pkgs when a strict require fails --- t/superuser--split-transactions--strict-require.t | 25 +++++++++++------------ 1 file changed, 12 insertions(+), 13 deletions(-) (limited to 't/superuser--split-transactions--strict-require.t') diff --git a/t/superuser--split-transactions--strict-require.t b/t/superuser--split-transactions--strict-require.t index f89947d8..f1493857 100644 --- a/t/superuser--split-transactions--strict-require.t +++ b/t/superuser--split-transactions--strict-require.t @@ -1,12 +1,8 @@ #!/usr/bin/perl -# a requires b : bb or b -# bb requires c-1 -# b requires c-2 -# b obsoletes bb +# a-1 requires b-1 +# a-2 requires b-2 # -# upgrading { bb, c-1 } to { b, c-2 } must be done in the same transaction, -# otherwise { c-1 } to { c-2 } implies removing { a, bb } use strict; use lib '.', 't'; use helper; @@ -19,15 +15,18 @@ my $name = 'split-transactions--strict-require'; urpmi_addmedia("$name-1 $::pwd/media/$name-1"); urpmi_addmedia("$name-2 $::pwd/media/$name-2"); -test('--split-length 0'); -test('--split-level 1'); # was broken (#31969) +test('--split-length 0 b'); +test('--split-level 1 b'); + +test('--split-length 0 --auto-select'); +test('--split-level 1 --auto-select'); sub test { - my ($option) = @_; + my ($para) = @_; - urpmi("--media $name-1 --auto a"); - check_installed_fullnames('a-1-1', 'bb-1-1', 'c-1-1'); + urpmi("--media $name-1 --auto a b"); + check_installed_names('a', 'b'); - urpmi("--media $name-2 $option --auto --auto-select"); - check_installed_fullnames_and_remove('a-1-1', 'b-2-1', 'c-2-1'); + urpmi("--media $name-2 --auto $para"); + check_installed_fullnames_and_remove('a-2-1', 'b-2-1'); } -- cgit v1.2.1