1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
#!/usr/bin/perl
# a-1 requires b-1
# a-2 requires b-2
#
# c requires d
# d1-1 provides d, but not d1-2
# d2-2 provides d, but not d2-1
#
# e-2 conflicts with f-1
#
# h-1 conflicts with g-2
#
# i requires j
# j1 provides j and requires k
# j2 provides j
# k1-1 provides k, but not k1-2
#
use strict;
use lib '.', 't';
use helper;
use urpm::util;
use Test::More 'no_plan';
need_root_and_prepare();
my $name = 'split-transactions--promote';
urpmi_addmedia("$name-1 $::pwd/media/$name-1");
urpmi_addmedia("$name-2 $::pwd/media/$name-2");
test('--split-length 0');
test('--split-level 1 --split-length 1');
test_conflict();
sub test {
my ($split) = @_;
test_ab("$split --auto-select");
#- below need the promotion of "a-2" (upgraded from "a-1") to work
test_ab("$split b");
#- below need the promotion of "d2" (new installed package) to work
test_cd("$split d1");
#- below need the promotion of "f-2" (upgraded from "f-1") to work
test_ef("$split e");
#- below need the promotion of "h-2" (upgraded from "h-1") to work
test_gh("$split g");
#- below need the promotion of "j2" (replacing removed j1) to work
test_ijk("$split k1");
}
sub test_conflict {
test_conflict_ef();
test_conflict_gh();
}
sub test_ab {
my ($para) = @_;
urpmi("--media $name-1 --auto a b");
check_installed_names('a', 'b');
urpmi("--media $name-2 --auto $para");
check_installed_fullnames_and_remove('a-2-1', 'b-2-1');
}
sub test_cd {
my ($para) = @_;
urpmi("--media $name-1 --auto c");
check_installed_names('c', 'd1');
urpmi("--media $name-2 --auto $para");
check_installed_fullnames_and_remove('c-1-1', 'd1-2-1', 'd2-2-1');
}
sub test_ef {
my ($para) = @_;
urpmi("--media $name-1 --auto e f");
check_installed_names('f', 'e');
urpmi("--media $name-2 --auto $para");
check_installed_fullnames_and_remove('e-2-1', 'f-2-1');
}
sub test_gh {
my ($para) = @_;
urpmi("--media $name-1 --auto g h");
check_installed_names('g', 'h');
urpmi("--media $name-2 --auto $para");
check_installed_fullnames_and_remove('g-2-1', 'h-2-1');
}
sub test_ijk {
my ($para) = @_;
urpmi("--media $name-1 --auto i");
check_installed_names('i', 'j1', 'k1');
urpmi("--media $name-2 --auto $para");
check_installed_fullnames_and_remove('i-1-1', 'j2-1-1', 'k1-2-1');
}
sub test_conflict_ef {
my ($para) = @_;
urpmi("--media $name-1 f");
check_installed_names('f');
my @reasons = run_urpmi_and_get_conflicts("--media $name-1 --auto media/$name-2/e-2-*.rpm");
$reasons[0] =~ s/\.\w+$//; # get rid of arch
my $wanted = 'e-2-1';
ok($reasons[0] eq $wanted, "$wanted in @reasons");
check_installed_fullnames_and_remove('e-2-1');
}
sub test_conflict_gh {
my ($para) = @_;
urpmi("--media $name-1 h");
check_installed_names('h');
my @reasons = run_urpmi_and_get_conflicts("--media $name-1 --auto media/$name-2/g-2-*.rpm");
my $wanted = 'g[> 1]';
ok($reasons[0] eq $wanted, "$wanted in @reasons");
check_installed_fullnames_and_remove('g-2-1');
}
sub run_urpmi_and_get_conflicts {
my ($para) = @_;
my $output = run_urpm_cmd("urpmi $para");
$output =~ /\(due to conflicts with (.*)\)/g;
}
|
