Proxmox/proxmox-perl-rs
5
0
Fork 1
Code Pull Requests Releases Activity

pve: test: resource scheduling: add test with overcommitted node

Browse Source 
which will fail with librust-proxmox-resource-scheduling-dev=0.1.0-1

Reported-by: Dominik Csapak <d.csapak@proxmox.com>
Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
This commit is contained in:
Fiona Ebner 2023-03-21 13:33:45 +01:00 committed by Thomas Lamprecht
parent 24702d4472
commit 2246577a5d
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
pve-rs/test/resource_scheduling.pl
View File

@ -54,7 +54,40 @@ sub test_balance {
}
}
sub test_overcommitted {
my $static = PVE::RS::ResourceScheduling::Static->new();
$static->add_node("A", 4, 4_102_062_080);
$static->add_node("B", 4, 4_102_062_080);
$static->add_node("C", 4, 4_102_053_888);
$static->add_node("D", 4, 4_102_053_888);
my $service = {
maxcpu => 1,
maxmem => 536_870_912,
};
$static->add_service_usage_to_node("A", $service);
$static->add_service_usage_to_node("A", $service);
$static->add_service_usage_to_node("A", $service);
$static->add_service_usage_to_node("B", $service);
$static->add_service_usage_to_node("A", $service);
my $score_list = $static->score_nodes_to_start_service($service);
# imitate HA manager
my $scores = { map { $_->[0] => -$_->[1] } $score_list->@* };
my @nodes = sort {
$scores->{$a} <=> $scores->{$b} || $a cmp $b
} keys $scores->%*;
is($nodes[0], "C", 'first should be C');
is($nodes[1], "D", 'second should be D');
is($nodes[2], "B", 'third should be B');
is($nodes[3], "A", 'fourth should be A');
}
test_basic();
test_balance();
test_overcommitted();
done_testing();