summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/helper.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/t/helper.pm b/t/helper.pm
index e3c3a008..ba625ea8 100644
--- a/t/helper.pm
+++ b/t/helper.pm
@@ -5,7 +5,7 @@ use base 'Exporter';
our @EXPORT = qw(need_root_and_prepare
start_httpd httpd_port
urpmi_addmedia urpmi_removemedia urpmi_update
- urpm_cmd run_urpm_cmd urpmi_cmd urpmi test_urpmi_fail urpme
+ urpm_cmd run_urpm_cmd urpmi_cmd urpmi urpmi_partial test_urpmi_fail urpme
urpmi_cfg set_urpmi_cfg_global_options
system_ system_should_fail
rpm_is_jbj_version
@@ -78,6 +78,10 @@ sub urpmi_update {
my ($para) = @_;
system_(urpm_cmd('urpmi.update') . " $para");
}
+sub urpmi_partial {
+ my ($para) = @_;
+ system_should_partially_fail(urpmi_cmd() . " --ignoresize $para");
+}
sub urpmi {
my ($para) = @_;
system_(urpmi_cmd() . " --ignoresize $para");
@@ -106,6 +110,11 @@ sub system_ {
system($cmd);
ok($? == 0, $cmd);
}
+sub system_should_partially_fail {
+ my ($cmd) = @_;
+ system($cmd);
+ ok($? == 17 << 8, $cmd);
+}
sub system_should_fail {
my ($cmd) = @_;
system($cmd);