mirror of
https://github.com/webmin/webmin.git
synced 2026-08-01 22:10:34 +01:00
ac62ad5f94
ⓘ Include partially installed dpkg packages in package listings and details while continuing to exclude removed and not-installed packages. Add regression coverage for all supported Debian package states.
277a919c27 (commitcomment-193125042)
83 lines
2.6 KiB
Perl
83 lines
2.6 KiB
Perl
#!/usr/local/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use File::Basename qw(dirname);
|
|
use File::Spec;
|
|
use Cwd qw(abs_path);
|
|
|
|
our (%packages, %text);
|
|
|
|
my $root = abs_path(File::Spec->catdir(dirname(__FILE__), '..'));
|
|
chdir($root) or die "chdir($root): $!";
|
|
|
|
do './software/debian-lib.pl' or die $@ || $!;
|
|
|
|
my $dpkg_output = <<'EOF';
|
|
Desired=Unknown/Install/Remove/Purge/Hold
|
|
| Status=Not/Inst/Conf-files/Unpacked/halF-conf/Half-inst/trig-aWait/Trig-pend
|
|
|/ Err?=(none)/Reinst-required (Status,Err: uppercase=bad)
|
|
+++-==============-=======-============-=================================
|
|
ii installed 1.0 amd64 Installed package
|
|
iH half-installed 1.1 amd64 Half-installed package
|
|
iU unpacked 1.2 amd64 Unpacked package
|
|
iF half-configured 1.3 amd64 Half-configured package
|
|
iW triggers-await 1.4 amd64 Package awaiting triggers
|
|
it triggers-pend 1.5 amd64 Package with pending triggers
|
|
rc config-only 0.9 amd64 Removed package configuration
|
|
un not-installed <none> <none> Package not installed
|
|
EOF
|
|
|
|
{
|
|
no warnings qw(once redefine);
|
|
local *open_execute_command = sub {
|
|
my ($fh) = @_;
|
|
no strict 'refs';
|
|
open(ref($fh) ? $fh : \*{$fh}, '<', \$dpkg_output)
|
|
or die "open simulated dpkg output: $!";
|
|
};
|
|
|
|
my $count = list_packages();
|
|
is($count, 6, 'lists installed and partially installed packages');
|
|
is_deeply(
|
|
[ map { $packages{$_,'name'} } 0 .. $count-1 ],
|
|
[ qw(installed half-installed unpacked half-configured
|
|
triggers-await triggers-pend) ],
|
|
'keeps every present package state and excludes removed packages');
|
|
}
|
|
|
|
sub package_info_for_status
|
|
{
|
|
my ($status) = @_;
|
|
no warnings qw(once redefine);
|
|
local *has_command = sub {
|
|
return $_[0] eq 'apt-cache' ? '/usr/bin/apt-cache' : undef;
|
|
};
|
|
local *html_escape = sub { return $_[0]; };
|
|
local *make_date = sub { return $_[0]; };
|
|
local *backquote_command = sub {
|
|
my ($command) = @_;
|
|
$? = 0;
|
|
return "$status php8.2-fpm 8.2.1 amd64 PHP FPM\n"
|
|
if ($command =~ /^dpkg --list/);
|
|
return "Package: php8.2-fpm\n".
|
|
"Version: 8.2.1\n".
|
|
"Architecture: amd64\n".
|
|
"Maintainer: Debian PHP Maintainers\n".
|
|
"Description: PHP FPM\n";
|
|
};
|
|
return [ package_info('php8.2-fpm') ];
|
|
}
|
|
|
|
foreach my $status (qw(ii iH iU iF iW it)) {
|
|
ok(@{package_info_for_status($status)},
|
|
"returns details for package status $status");
|
|
}
|
|
is_deeply(package_info_for_status('rc'), [],
|
|
'does not return details for a removed package');
|
|
is_deeply(package_info_for_status('un'), [],
|
|
'does not return details for a not-installed package');
|
|
|
|
done_testing();
|