summaryrefslogtreecommitdiffstats
path: root/t/helper.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/helper.pm')
-rw-r--r--t/helper.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/t/helper.pm b/t/helper.pm
index 58c1e8c4..56005df1 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 urpmi_cmd urpmi test_urpmi_fail urpme
+ urpm_cmd run_urpm_cmd urpmi_cmd urpmi test_urpmi_fail urpme
urpmi_cfg set_urpmi_cfg_global_options
system_ system_should_fail
rpm_is_jbj_version
@@ -53,6 +53,12 @@ sub urpm_cmd {
$o_perl_para ||= '';
"perl $o_perl_para -I.. ../$prog --urpmi-root $::pwd/root";
}
+sub run_urpm_cmd {
+ my ($prog, $o_perl_para) = @_;
+ my $cmd = urpm_cmd($prog, $o_perl_para);
+ warn "# $cmd\n";
+ `$cmd`;
+}
sub urpmi_cmd() { urpm_cmd('urpmi') }
sub urpmi_addmedia {