Skip regression tests that require older OpenSSL versions, i.e. 1.x o…

…r earlier. The Linux container we're now using uses OpenSSL 3.x.
Castaglia · Dec 11, 2024 · a294b86 · a294b86
1 parent c726487
commit a294b86
Showing 1 changed file with 22 additions and 1 deletion.
diff --git a/t/lib/ProFTPD/Tests/Modules/mod_proxy/ssh.pm b/t/lib/ProFTPD/Tests/Modules/mod_proxy/ssh.pm
@@ -612,7 +612,28 @@ sub list_tests {
     }
   }
 
-  return testsuite_get_runnable_tests($TESTS);
+  my @tests = testsuite_get_runnable_tests($TESTS);
+
+  # These tests need to be skipped due to lack of support when using newer
+  # OpenSSL versions, i.e. 3.x or later.
+  my $skipped_tests = {
+    proxy_reverse_backend_ssh_cipher_3des_ctr => 1,
+    proxy_reverse_backend_ssh_cipher_arcfour128 => 1,
+    proxy_reverse_backend_ssh_cipher_arcfour256 => 1,
+    proxy_reverse_backend_ssh_cipher_blowfish_ctr => 1,
+  };
+
+  foreach my $key (keys(%$skipped_tests)) {
+    my $ntests = scalar(@tests);
+    for (my $i = 0; $i < $ntests; $i++) {
+      if ($tests[$i] eq $key) {
+        splice(@$tests, $i, 1);
+        last;
+      }
+    }
+  }
+
+  return @tests;
 }
 
 sub set_up {