[pve-devel] [PATCH perl-rs v2 2/2] test: resource_scheduling: use score_nodes helper to imitate HA Manager

[Daniel Kral <d.kral@proxmox.com>]

Signed-off-by: Daniel Kral <d.kral@proxmox.com>
---
changes since v1:
 - new!

 pve-rs/test/resource_scheduling.pl | 24 +++---------------------
 1 file changed, 3 insertions(+), 21 deletions(-)

diff --git a/pve-rs/test/resource_scheduling.pl b/pve-rs/test/resource_scheduling.pl
index 42556bd..a332269 100755
--- a/pve-rs/test/resource_scheduling.pl
+++ b/pve-rs/test/resource_scheduling.pl
@@ -48,13 +48,7 @@ sub test_balance {
     };
 
     for (my $i = 0; $i < 15; $i++) {
-	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->%*;
+        my @nodes = score_nodes($static, $service);
 
 	if ($i % 3 == 2) {
 	    is($nodes[0], "A", 'first should be A');
@@ -133,13 +127,7 @@ sub test_overcommitted {
     $static->add_service_usage_to_node("B", "d", $service);
     $static->add_service_usage_to_node("A", "e", $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->%*;
+    my @nodes = score_nodes($static, $service);
 
     is($nodes[0], "C", 'first should be C');
     is($nodes[1], "D", 'second should be D');
@@ -168,13 +156,7 @@ sub test_balance_small_memory_difference {
     };
 
     for (my $i = 0; $i < 20; $i++) {
-	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->%*;
+        my @nodes = score_nodes($static, $service);
 
 	if ($i % 4 <= 1) {
 	    is($nodes[0], "A", 'first should be A');
-- 
2.47.3



_______________________________________________
pve-devel mailing list
pve-devel@lists.proxmox.com
https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel