diff options
Diffstat (limited to 't/helper.pm')
| -rw-r--r-- | t/helper.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/helper.pm b/t/helper.pm index 11614842..d7e6d802 100644 --- a/t/helper.pm +++ b/t/helper.pm @@ -8,7 +8,8 @@ our @EXPORT = qw(need_root_and_prepare urpm_cmd urpmi_cmd urpmi urpme urpmi_cfg set_urpmi_cfg_global_options system_ - check_installed_names check_installed_and_remove check_installed_and_urpme + check_installed_fullnames check_installed_names check_nothing_installed + check_installed_and_remove check_installed_and_urpme ); my $using_root; @@ -91,6 +92,11 @@ sub system_ { } +sub check_installed_fullnames { + my (@names) = @_; + is(`rpm -qa --root $::pwd/root | sort`, join('', map { "$_\n" } sort(@names))); +} + sub check_installed_names { my (@names) = @_; is(`rpm -qa --qf '%{name}\\n' --root $::pwd/root | sort`, join('', map { "$_\n" } sort(@names))); |