blob: 04e0c9c5e4e94aeea6129f46266097b71bfbcad2 (
plain)
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
|
#!/usr/bin/perl
# "a" provides "should-restart = system"
# "c" provides "should-restart = system"
# this test would fail since the "restart your computer" message was disabled when
# urpmi is run with --urpmi-root
$ENV{URPMI_TEST_RESTART} = 1;
use strict;
use lib '.', 't';
use helper;
use Test::More 'no_plan';
need_root_and_prepare();
my $medium_name = 'should-restart';
urpmi_addmedia("$medium_name $::pwd/media/$medium_name");
test_urpmi('a', 'You should restart your computer for a');
test_urpmi('b', '');
test_urpmi('c', 'You should restart your computer for a, c');
sub test_urpmi {
my ($para, $wanted) = @_;
my $s = run_urpm_cmd("urpmi $para");
print $s;
my $msg = $s =~ /^(You should restart .*)/m ? $1 : '';
ok($msg eq $wanted, "wanted:$wanted, got:$msg");
}
|
