summaryrefslogtreecommitdiffstats
path: root/t/superuser--priority-upgrade.t
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-04-24 19:34:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-04-24 19:34:32 +0000
commit4df7583caa71a35d6d68c373fc0c62d1be6d955b (patch)
treebddf36169b314d82ff20036dea7e47fa4fec5bcd /t/superuser--priority-upgrade.t
parent7a606ec3537b2f465f8e06e99b445c756bfcca8f (diff)
downloadurpmi-4df7583caa71a35d6d68c373fc0c62d1be6d955b.tar
urpmi-4df7583caa71a35d6d68c373fc0c62d1be6d955b.tar.gz
urpmi-4df7583caa71a35d6d68c373fc0c62d1be6d955b.tar.bz2
urpmi-4df7583caa71a35d6d68c373fc0c62d1be6d955b.tar.xz
urpmi-4df7583caa71a35d6d68c373fc0c62d1be6d955b.zip
re-sync after the big svn loss
Diffstat (limited to 't/superuser--priority-upgrade.t')
-rw-r--r--t/superuser--priority-upgrade.t116
1 files changed, 116 insertions, 0 deletions
diff --git a/t/superuser--priority-upgrade.t b/t/superuser--priority-upgrade.t
new file mode 100644
index 00000000..2486177e
--- /dev/null
+++ b/t/superuser--priority-upgrade.t
@@ -0,0 +1,116 @@
+#!/usr/bin/perl
+
+use strict;
+use lib '.', 't';
+use helper;
+use Expect;
+use urpm::util;
+use Test::More 'no_plan';
+
+need_root_and_prepare();
+
+$ENV{TESTING_priority_upgrade} = 1;
+my $name = 'priority-upgrade';
+
+test('a b', 'a', 'a', 'b');
+
+test('a-strict b', 'a-strict', 'a-strict b bb1', 'b',
+ [ 'What is your choice', "\n" ],
+ [ 'Proceed with the installation of the 2 packages?', "\n" ],
+ [ 'restarting urpmi', '' ],
+ );
+
+test_ab_auto_select('',
+ [ 'What is your choice', "\n" ],
+ [ 'Proceed with the installation of the 3 packages?', "\n" ],
+ );
+test_ab_auto_select('a',
+ [ 'Proceed with the installation of one package?', "\n" ],
+ [ 'restarting urpmi', '' ],
+ [ 'What is your choice', "\n" ],
+ [ 'Proceed with the installation of the 2 packages?', "\n" ],
+ );
+test_ab_auto_select('b',
+ [ 'What is your choice', "\n" ],
+ [ 'Proceed with the installation of the 2 packages?', "\n" ],
+ [ 'restarting urpmi', '' ],
+ [ 'Proceed with the installation of one package?', "\n" ],
+ );
+test_ab_auto_select('a,b',
+ [ 'What is your choice', "\n" ],
+ [ 'Proceed with the installation of the 3 packages?', "\n" ],
+ );
+
+
+sub test_ab_auto_select {
+ my ($priority_upgrade, @expected) = @_;
+ test('a b', undef, 'a b bb1', $priority_upgrade, @expected);
+}
+
+sub test {
+ my ($pkgs_v1, $wanted_v2, $pkgs_v2, $priority_upgrade, @expected) = @_;
+
+ unlink "$::pwd/media/$name";
+ symlink "$name-1", "$::pwd/media/$name";
+
+ urpmi_addmedia("$name $::pwd/media/$name");
+
+ if ($priority_upgrade) {
+ set_urpmi_cfg_global_options({ 'priority-upgrade' => $priority_upgrade });
+ }
+
+ urpmi($pkgs_v1);
+ my @pkgs_v1 = split(' ', $pkgs_v1);
+ is(`rpm -qa --root $::pwd/root | sort`, join('', map { "$_-1-1\n" } @pkgs_v1));
+
+ unlink "$::pwd/media/$name";
+ symlink "$name-2", "$::pwd/media/$name";
+
+ if ($wanted_v2) {
+ urpmi_update('-a');
+ urpmi_expected($wanted_v2, \@expected);
+ } else {
+ urpmi_expected('--auto-update', \@expected);
+ }
+
+
+ my @pkgs_v2 = split(' ', $pkgs_v2);
+ my @l = (
+ (map { "$_-2-1\n" } @pkgs_v2),
+ (map { "$_-1-1\n" } difference2(\@pkgs_v1, \@pkgs_v2)),
+ );
+ is(`rpm -qa --root $::pwd/root | sort`, join('', sort @l));
+
+ system_('rm -rf root');
+}
+
+sub urpmi_expected {
+ my ($options, $expected) = @_;
+
+ if (0) {
+ #- try it interactively for debugging
+ system_(urpm_cmd('urpmi', '-d') . " $options");
+ return;
+ }
+
+ my $cmd = urpmi_cmd() . " $options";
+ print "# $cmd\n";
+ my $expect = Expect->spawn($cmd);
+
+ foreach (@$expected) {
+ my ($msg, $to_send) = @$_;
+
+ my $ok = $expect->expect(2, # timeout in seconds
+ [ $msg => sub { $expect->send($to_send); } ]);
+ print "$to_send";
+ ok($ok, qq(expecting "$msg"));
+ $ok or return;
+ }
+
+ $expect->expect(2,
+ [ qr/restarting urpmi/ => sub { fail('not restarting urpmi') } ],
+ [ 'eof' => sub {} ]);
+
+ $expect->soft_close;
+ is($expect->exitstatus, 0, $cmd);
+}