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
|
#!/usr/bin/perl
use strict;
use lib '.', 't';
use helper;
use urpm::util;
use Test::More 'no_plan';
need_root_and_prepare();
my $name = 'various';
symlink $name, "media/${name}_bis";
my @media = ($name, "${name}_bis");
my @media_dirs = map { "$::pwd/media/$_" } @media;
urpmi_addmedia("$_ $::pwd/media/$_") foreach @media;
test_urpmq('', @media_dirs);
test_urpmq("--media $media[0]", $media_dirs[0]);
test_urpmq("--media $media[1]", $media_dirs[1]);
test_urpmq("--excludemedia $media[1]", $media_dirs[0]);
test_urpmq("--excludemedia $media[0]", $media_dirs[1]);
test_urpmq("--sortmedia $media[0],$media[1]", $media_dirs[0], $media_dirs[1]);
test_urpmq("--sortmedia $media[1],$media[0]", $media_dirs[1], $media_dirs[0]);
test_urpmi('', $media_dirs[0], $media[1]);
test_urpmi("--media $media[0]", $media_dirs[0], $media[1]);
test_urpmi("--media $media[1]", $media_dirs[1], $media[0]);
test_urpmi("--excludemedia $media[1]", $media_dirs[0], $media[1]);
test_urpmi("--excludemedia $media[0]", $media_dirs[1], $media[0]);
test_urpmi("--sortmedia $media[0],$media[1]", $media_dirs[0], $media[1]);
test_urpmi("--sortmedia $media[1],$media[0]", $media_dirs[1], $media[0]);
sub test_urpmq {
my ($para, @wanted) = @_;
my $urpmq = urpm_cmd('urpmq');
my @l = `$urpmq $para --sources $name`;
foreach my $dir (@wanted) {
my $found = shift @l;
is(dirname($found), $dir);
}
}
sub test_urpmi {
my ($para, $wanted, $bad) = @_;
my $urpmi = urpmi_cmd();
my $s = `$urpmi $para $name`;
$s =~ s/^Preparing.*//sm;
ok($s =~ m!^installing $name\S* from $wanted$!m, "$wanted in $s");
isnt($s =~ m!\Q$bad/!, "$bad not in $s");
urpme($name);
}
|
