diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-02-04 16:03:07 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-02-04 16:03:07 +0000 |
| commit | 19b5f3fb3cf80410cdd12784028242cf5956ca4f (patch) | |
| tree | b7db8f615bb1e1027b3dab7656d64ec08e1eeb39 /t/helper.pm | |
| parent | aaa119565207a6ee2f5cddb2730e51e2af49a21e (diff) | |
| download | urpmi-19b5f3fb3cf80410cdd12784028242cf5956ca4f.tar urpmi-19b5f3fb3cf80410cdd12784028242cf5956ca4f.tar.gz urpmi-19b5f3fb3cf80410cdd12784028242cf5956ca4f.tar.bz2 urpmi-19b5f3fb3cf80410cdd12784028242cf5956ca4f.tar.xz urpmi-19b5f3fb3cf80410cdd12784028242cf5956ca4f.zip | |
have urpmi quiet option "-q" for urpm_cmd()
Diffstat (limited to 't/helper.pm')
| -rw-r--r-- | t/helper.pm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/t/helper.pm b/t/helper.pm index 60f5de8d..870baa2b 100644 --- a/t/helper.pm +++ b/t/helper.pm @@ -51,11 +51,16 @@ my $urpmi_debug_opt = '-q'; sub urpm_cmd { my ($prog, $o_perl_para) = @_; $o_perl_para ||= ''; + "perl $o_perl_para -I.. ../$prog --urpmi-root $::pwd/root $urpmi_debug_opt"; +} +sub urpm_cmd_no_quiet { + my ($prog, $o_perl_para) = @_; + $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); + my $cmd = urpm_cmd_no_quiet($prog, $o_perl_para); print "# $cmd\n"; `$cmd`; } @@ -63,19 +68,19 @@ sub urpmi_cmd() { urpm_cmd('urpmi') } sub urpmi_addmedia { my ($para) = @_; - system_(urpm_cmd('urpmi.addmedia') . " $urpmi_debug_opt $para"); + system_(urpm_cmd('urpmi.addmedia') . " $para"); } sub urpmi_removemedia { my ($para) = @_; - system_(urpm_cmd('urpmi.removemedia') . " $urpmi_debug_opt $para"); + system_(urpm_cmd('urpmi.removemedia') . " $para"); } sub urpmi_update { my ($para) = @_; - system_(urpm_cmd('urpmi.update') . " $urpmi_debug_opt $para"); + system_(urpm_cmd('urpmi.update') . " $para"); } sub urpmi { my ($para) = @_; - system_(urpmi_cmd() . " --ignoresize $urpmi_debug_opt $para"); + system_(urpmi_cmd() . " --ignoresize $para"); } sub test_urpmi_fail { my ($para) = @_; |