t/superuser--arch_to_noarch.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use strict;
use lib '.', 't';
use helper;
use Test::More 'no_plan';

need_root_and_prepare();

my $name = 'arch_to_noarch';

foreach my $nb (1 .. 4) {
    my $medium_name = "${name}_$nb";
    urpmi_addmedia("$medium_name $::pwd/media/$medium_name");
    urpmi("$name");
    is(`rpm -qa --root $::pwd/root`, "$name-$nb-1\n");
}