wehub-resource-sync
83 lines
2.3 KiB
Perl
83 lines
2.3 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 %config;
|
|
|
|
my $root = abs_path(File::Spec->catdir(dirname(__FILE__), '..'));
|
|
chdir($root) or die "chdir($root): $!";
|
|
|
|
do './software/apt-lib.pl' or die $@ || $!;
|
|
|
|
is(strip_apt_package_arch('libtinfo6:amd64'), 'libtinfo6',
|
|
'strips native Debian architecture suffix');
|
|
is(strip_apt_package_arch('libgomp1:i386'), 'libgomp1',
|
|
'strips foreign Debian architecture suffix');
|
|
is(strip_apt_package_arch('ncurses-base'), 'ncurses-base',
|
|
'leaves unqualified package names unchanged');
|
|
|
|
{
|
|
no warnings qw(once redefine);
|
|
local *backquote_command = sub {
|
|
return "Inst libtinfo6:amd64 [6.3-2ubuntu0.1] ".
|
|
"(6.3-2ubuntu0.2 Ubuntu:22.04/jammy-updates [amd64])\n";
|
|
};
|
|
local *clean_language = sub { };
|
|
local *reset_environment = sub { };
|
|
|
|
my @ops = update_system_operations('libtinfo6');
|
|
is($ops[0]->{'name'}, 'libtinfo6',
|
|
'normalizes package names from simulated APT operations');
|
|
}
|
|
|
|
{
|
|
no warnings qw(once redefine);
|
|
my $apt_output = "Setting up libtinfo6:amd64 (6.3-2ubuntu0.2) ...\n";
|
|
my $yes_input = "";
|
|
local *additional_log = sub { };
|
|
local *backquote_logged = sub { return ""; };
|
|
local *clean_language = sub { };
|
|
local *html_escape = sub { return $_[0]; };
|
|
local *reset_environment = sub { };
|
|
local *text = sub { return $_[0]; };
|
|
local *transname = sub { return "/tmp/software-apt-test-yes"; };
|
|
local *open_tempfile = sub {
|
|
my ($fh) = @_;
|
|
no strict 'refs';
|
|
open(ref($fh) ? $fh : \*{$fh}, ">", \$yes_input)
|
|
or die "open temp input: $!";
|
|
};
|
|
local *print_tempfile = sub {
|
|
my ($fh, @text) = @_;
|
|
no strict 'refs';
|
|
my $handle = ref($fh) ? $fh : \*{$fh};
|
|
print $handle @text;
|
|
};
|
|
local *close_tempfile = sub {
|
|
my ($fh) = @_;
|
|
no strict 'refs';
|
|
close(ref($fh) ? $fh : \*{$fh});
|
|
};
|
|
local *open_execute_command = sub {
|
|
my ($fh) = @_;
|
|
no strict 'refs';
|
|
open(ref($fh) ? $fh : \*{$fh}, "<", \$apt_output)
|
|
or die "open simulated apt output: $!";
|
|
};
|
|
local $config{'package_system'} = 'debian';
|
|
|
|
my $printed = "";
|
|
open(my $stdout, ">", \$printed) or die "open captured stdout: $!";
|
|
local *STDOUT = $stdout;
|
|
my @installed = update_system_install('libtinfo6', undef, 1);
|
|
is_deeply(\@installed, [ 'libtinfo6' ],
|
|
'normalizes package names returned by apt install output');
|
|
}
|
|
|
|
done_testing();
|