summaryrefslogtreecommitdiffstats
path: root/t/superuser--rpmnew.t
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-07-05 15:10:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-07-05 15:10:00 +0000
commit79a9cfca4f9e46fcb121194b8db5bcb8d528547d (patch)
treec625850f250ecc13cd275b34219482bf2cd26034 /t/superuser--rpmnew.t
parent70245f8746d11e83141d2320f57c53b698624a2e (diff)
downloadurpmi-79a9cfca4f9e46fcb121194b8db5bcb8d528547d.tar
urpmi-79a9cfca4f9e46fcb121194b8db5bcb8d528547d.tar.gz
urpmi-79a9cfca4f9e46fcb121194b8db5bcb8d528547d.tar.bz2
urpmi-79a9cfca4f9e46fcb121194b8db5bcb8d528547d.tar.xz
urpmi-79a9cfca4f9e46fcb121194b8db5bcb8d528547d.zip
add test on rpmnew creation for %config files
Diffstat (limited to 't/superuser--rpmnew.t')
-rw-r--r--t/superuser--rpmnew.t57
1 files changed, 57 insertions, 0 deletions
diff --git a/t/superuser--rpmnew.t b/t/superuser--rpmnew.t
new file mode 100644
index 00000000..9714d143
--- /dev/null
+++ b/t/superuser--rpmnew.t
@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+
+use strict;
+use lib '.', 't';
+use helper;
+use Test::More 'no_plan';
+
+my $medium_name = 'rpmnew';
+
+my @names = ('config-noreplace', 'config', 'normal');
+
+need_root_and_prepare();
+
+urpmi_addmedia("$medium_name $::pwd/media/$medium_name");
+
+test(['orig', 'orig', 'orig'],
+ ['orig', 'orig', 'orig'],
+ ['changed', 'changed', 'changed']);
+
+system("echo foo > $::pwd/root/etc/$_") foreach @names;
+
+test(['foo', 'foo', 'orig'],
+ ['foo', 'foo', 'orig'],
+ ['foo', 'foo', 'changed']);
+
+sub check_content {
+ my ($rpm, $config_noreplace, $config, $normal) = @_;
+
+ check_one_content($rpm, 'config-noreplace', $config_noreplace);
+ check_one_content($rpm, 'config', $config);
+ check_one_content($rpm, 'normal', $normal);
+}
+
+sub check_one_content {
+ my ($rpm, $name, $val) = @_;
+ my $s = `cat $::pwd/root/etc/$name`;
+ chomp $s;
+ is($s, $val, "$name for $rpm");
+}
+
+sub test {
+ my ($v1, $v2, $v3) = @_;
+
+ system_("rpm --root $::pwd/root -i media/$medium_name/a-1-*.rpm");
+ is(`rpm -qa --root $::pwd/root`, "a-1-1\n");
+ check_content('a-1', @$v1);
+
+ system_("rpm --root $::pwd/root -U media/$medium_name/a-2-*.rpm");
+ is(`rpm -qa --root $::pwd/root`, "a-2-1\n");
+ check_content('a-2', @$v2);
+
+ system_("rpm --root $::pwd/root -U media/$medium_name/a-3-*.rpm");
+ is(`rpm -qa --root $::pwd/root`, "a-3-1\n");
+ check_content('a-3', @$v3);
+
+ system_("rpm --root $::pwd/root -e a");
+}