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
|
#!/usr/bin/perl
use strict;
use lib '.', 't';
use helper;
use Test::More 'no_plan';
BEGIN { use_ok 'urpm::cfg' }
need_root_and_prepare();
my $name = 'various';
my @fields = qw(hdlist synthesis with_hdlist media_info_dir virtual);
try_medium('', { media_info_dir => 'media_info' });
try_medium('--probe-hdlist',
{ hdlist => 1, media_info_dir => 'media_info' });
try_medium('with media_info/hdlist.cz',
{ hdlist => 1, media_info_dir => 'media_info' });
try_medium("with ../media_info/hdlist_$name.cz",
{ hdlist => 1, with_hdlist => "../media_info/hdlist_$name.cz" });
try_medium('--probe-synthesis',
{ synthesis => 1, media_info_dir => 'media_info' });
try_medium('with media_info/synthesis.hdlist.cz',
{ synthesis => 1, media_info_dir => 'media_info' });
try_medium("with ../media_info/synthesis.hdlist_$name.cz",
{ synthesis => 1, with_hdlist => "../media_info/synthesis.hdlist_$name.cz" });
sub try_medium {
my ($options, $want) = @_;
urpmi_addmedia("$name $::pwd/media/$name $options");
try_($want);
urpmi_removemedia($name);
urpmi_addmedia("$name $::pwd/media/$name --virtual $options");
try_({ virtual => 1, %$want });
urpmi_removemedia($name);
}
sub try_ {
my ($want) = @_;
my $config = urpm::cfg::load_config("root/etc/urpmi/urpmi.cfg");
my ($medium) = @{$config->{media}};
ok($medium);
foreach my $field (@fields) {
is($medium->{$field}, $want->{$field}, $field);
}
urpmi($name);
is(`rpm -qa --root $::pwd/root`, "$name-1-1\n");
urpme($name);
}
|
