t/superuser--best-versioned-provide.t


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

#!/usr/bin/perl

# a_cc requires cc
# a_dd requires dd
# a_ee requires ee
#
# b1 provides cc = 1, dd = 2, ee = 3
# b2 provides cc = 2, dd = 3, ee = 1
# b3 provides cc = 3, dd = 1, ee = 2
#
# so a_cc should require b3
#    a_dd should require b2
#    a_ee should require b1
#
# (cf mdvbz #12645)
#
use strict;
use lib '.', 't';
use helper;
use Expect;
use urpm::util;
use Test::More 'no_plan';

need_root_and_prepare();

my $medium_name = 'best-versioned-provide';

urpmi_addmedia("$medium_name $::pwd/media/$medium_name");

test('a_cc', 'b3');
test('a_dd', 'b2');
test('a_ee', 'b1');

sub test {
    my ($to_install, $should_be_prefered) = @_;

    urpmi("--auto $to_install");
    check_installed_and_remove($to_install, $should_be_prefered);
}