diff options
Diffstat (limited to 't/helper.pm')
| -rw-r--r-- | t/helper.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/helper.pm b/t/helper.pm index eecf5e20..d7880b73 100644 --- a/t/helper.pm +++ b/t/helper.pm @@ -9,7 +9,7 @@ our @EXPORT = qw(need_root_and_prepare urpmi_cfg set_urpmi_cfg_global_options system_ system_should_fail check_installed_fullnames check_installed_names check_nothing_installed - check_installed_and_remove check_installed_and_urpme + check_installed_and_remove check_installed_fullnames_and_remove check_installed_and_urpme ); my $using_root; @@ -118,6 +118,13 @@ sub check_installed_and_remove { check_nothing_installed(); } +sub check_installed_fullnames_and_remove { + my (@names) = @_; + check_installed_fullnames(@names); + system_("rpm --root $::pwd/root -e " . join(' ', @names)); + check_nothing_installed(); +} + sub check_installed_and_urpme { my (@names) = @_; check_installed_names(@names); |