t/superuser--srpm-bootstrapping.t


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

#!/usr/bin/perl

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

need_root_and_prepare();

my $name = 'srpm-bootstrapping';

urpmi_addmedia("$name $::pwd/media/$name");
urpmi("--auto media/SRPMS-$name/$name-*.src.rpm");
is(`rpm -qa --root $::pwd/root`, "$name-1-1\n");