t/superuser--srpm-bootstrapping.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

#!/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");
test("media/SRPMS-$name/$name-*.src.rpm");

urpmi_addmedia("$name-src $::pwd/media/SRPMS-$name");
test("--src $name");

sub test {
    my ($para) = @_;

    urpmi("--auto $para");
    check_installed_names($name); # check the buildrequires is installed

    install_src_rpm($para);
    check_installed_and_remove($name);
}

sub install_src_rpm {
    my ($para) = @_;
    
    system_('mkdir -p root/usr/src/rpm/SOURCES');

    $ENV{HOME} = '/';
    urpmi("--install-src $para");

    system_("cmp root/usr/src/rpm/SPECS/$name.spec data/SPECS/$name.spec");
    system_('rm -rf root/usr/src/rpm');
}