X-Git-Url: https://git.proxmox.com/?a=blobdiff_plain;f=test%2Farchive_info_test.pm;h=ce873b34836789168498ddcef1dbcaa573b7675c;hb=5df46bf2d512a4fc2d5264b1e6eef91c9e13d51e;hp=60d606eb38011aa17031ef6535da6246f29128a8;hpb=3dde6a9cb987f03af36459a76d93c3b990e42c6e;p=pve-storage.git

diff --git a/test/archive_info_test.pm b/test/archive_info_test.pm
index 60d606e..ce873b3 100644
--- a/test/archive_info_test.pm
+++ b/test/archive_info_test.pm
@@ -71,10 +71,10 @@ my $bkp_suffix = {
 };
 
 # create more test cases for backup files matches
-foreach my $virt (keys %$bkp_suffix) {
-    my ($format, $decomp) = @{ $bkp_suffix->{$virt} };
+for my $virt (sort keys %$bkp_suffix) {
+    my ($format, $decomp) = $bkp_suffix->{$virt}->@*;
 
-    foreach my $suffix (keys %$decomp) {
+    for my $suffix (sort keys %$decomp) {
 	my @arr = (
 	    {
 		description => "Backup archive, $virt, $format.$suffix",
@@ -101,7 +101,7 @@ my $non_bkp_suffix = {
 };
 
 # create tests for failed matches
-foreach my $virt (keys %$non_bkp_suffix) {
+for my $virt (sort keys %$non_bkp_suffix) {
     my $suffix = $non_bkp_suffix->{$virt};
     foreach my $s (@$suffix) {
 	my @arr = (