28 lines
847 B
Diff
28 lines
847 B
Diff
|
Index: openssl-1.1.0c/test/recipes/99-test_suse_default_ciphers.t
|
||
|
|
===================================================================
|
||
|
|
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
|
||
|
|
+++ openssl-1.1.0c/test/recipes/99-test_suse_default_ciphers.t 2016-12-19 13:59:16.662066548 +0100
|
||
|
|
@@ -0,0 +1,22 @@
|
||
|
|
+#! /usr/bin/env perl
|
||
|
|
+
|
||
|
|
+use strict;
|
||
|
|
+use warnings;
|
||
|
|
+
|
||
|
|
+use OpenSSL::Test qw/:DEFAULT/;
|
||
|
|
+use OpenSSL::Test::Utils;
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+setup("test_default_ciphersuites");
|
||
|
|
+
|
||
|
|
+plan tests => 4;
|
||
|
|
+
|
||
|
|
+my @cipher_suites = ("DEFAULT_SUSE", "DEFAULT");
|
||
|
|
+
|
||
|
|
+foreach my $cipherlist (@cipher_suites) {
|
||
|
|
+ ok(run(app(["openssl", "ciphers", $cipherlist])),
|
||
|
|
+ "openssl ciphers works with ciphersuite $cipherlist");
|
||
|
|
+ ok(!grep(/(MD5|RC4|DES)/, run(app(["openssl", "ciphers", "DEFAULT_SUSE"]), capture => 1)),
|
||
|
|
+ "$cipherlist shouldn't contain MD5, DES or RC4\n");
|
||
|
|
+}
|
||
|
|
+
|