diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-04-09 15:01:22 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-04-28 20:58:59 +0200 |
commit | 7e61200dc4867f5b25d44c0d4d62ebb6525be1fa (patch) | |
tree | 3b8f171b04f68474956f7a1f78559e16f34ad15f /t/helper.pm | |
parent | ef70ebb63a9ca9fb1215d0a0d5f46dbbfa82f6fd (diff) | |
download | urpmi-7e61200dc4867f5b25d44c0d4d62ebb6525be1fa.tar urpmi-7e61200dc4867f5b25d44c0d4d62ebb6525be1fa.tar.gz urpmi-7e61200dc4867f5b25d44c0d4d62ebb6525be1fa.tar.bz2 urpmi-7e61200dc4867f5b25d44c0d4d62ebb6525be1fa.tar.xz urpmi-7e61200dc4867f5b25d44c0d4d62ebb6525be1fa.zip |
describe more tests to help pinpoint regressions
Diffstat (limited to 't/helper.pm')
-rw-r--r-- | t/helper.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/helper.pm b/t/helper.pm index 21bc4c6e..d9a5b7e7 100644 --- a/t/helper.pm +++ b/t/helper.pm @@ -25,7 +25,7 @@ sub need_root_and_prepare() { -d 'media' or die "02create_pkgs.t not done\n"; system('rm -rf root'); - isnt(-d 'root', "test root dir can not be removed $!"); + isnt(-d 'root', "test root dir can not be removed $!", "creating chroot"); system('mkdir -p root/etc/rpm'); system('echo "%_pkgverify_level none" >root/etc/rpm/macros'); $using_root = 1; @@ -117,7 +117,7 @@ sub urpmi_cfg() { sub set_urpmi_cfg_global_options { my ($options) = @_; require_ok('urpm::cfg'); - ok(my $config = urpm::cfg::load_config(urpmi_cfg())); + ok(my $config = urpm::cfg::load_config(urpmi_cfg()), "loading urpmi config"); $config->{global} = $options; ok(urpm::cfg::dump_config(urpmi_cfg(), $config), 'set_urpmi_cfg_global_options'); } @@ -143,16 +143,16 @@ sub system_should_fail { sub check_installed_fullnames { my (@names) = @_; - is(`rpm -qa --qf '%{NVR}\\n' --root $::pwd/root | sort`, join('', map { "$_\n" } sort(@names))); + is(`rpm -qa --qf '%{NVR}\\n' --root $::pwd/root | sort`, join('', map { "$_\n" } sort(@names)), 'pkgs are installed (fullnames)'); } sub check_installed_names { my (@names) = @_; - is(`rpm -qa --qf '%{name}\\n' --root $::pwd/root | sort`, join('', map { "$_\n" } sort(@names))); + is(`rpm -qa --qf '%{name}\\n' --root $::pwd/root | sort`, join('', map { "$_\n" } sort(@names)), 'pkgs are installed (fullnames)'); } sub check_nothing_installed() { - is(`rpm -qa --root $::pwd/root`, ''); + is(`rpm -qa --root $::pwd/root`, '', 'nothing is installed'); } sub check_installed_and_remove { |