Latest update.
This commit is contained in:
@@ -38,6 +38,43 @@ plan skip_all => 'OpenSSL is configured "no-autoerrinit" or "no-err"'
|
||||
# (this is documented)
|
||||
my @posix_errors = @{$Errno::EXPORT_TAGS{POSIX}};
|
||||
|
||||
if ($^O eq 'MSWin32') {
|
||||
# On Windows, these errors have been observed to not always be loaded by
|
||||
# apps/openssl, while they are in perl, which causes a difference that we
|
||||
# consider a false alarm. So we skip checking these errors.
|
||||
# Because we can't know exactly what symbols exist in a perticular perl
|
||||
# version, we resort to discovering them directly in the Errno package
|
||||
# symbol table.
|
||||
my @error_skiplist = qw(
|
||||
ENETDOWN
|
||||
ENETUNREACH
|
||||
ENETRESET
|
||||
ECONNABORTED
|
||||
EISCONN
|
||||
ENOTCONN
|
||||
ESHUTDOWN
|
||||
ETOOMANYREFS
|
||||
ETIMEDOUT
|
||||
EHOSTDOWN
|
||||
EHOSTUNREACH
|
||||
EALREADY
|
||||
EINPROGRESS
|
||||
ESTALE
|
||||
EUCLEAN
|
||||
ENOTNAM
|
||||
ENAVAIL
|
||||
ENOMEDIUM
|
||||
ENOKEY
|
||||
);
|
||||
@posix_errors =
|
||||
grep {
|
||||
my $x = $_;
|
||||
! grep {
|
||||
exists $Errno::{$_} && $x == $Errno::{$_}
|
||||
} @error_skiplist
|
||||
} @posix_errors;
|
||||
}
|
||||
|
||||
plan tests => scalar @posix_errors
|
||||
+1 # Checking that error 128 gives 'reason(128)'
|
||||
+1 # Checking that error 0 gives the library name
|
||||
|
||||
@@ -11,15 +11,17 @@ plan skip_all => "test_includes doesn't work without posix-io"
|
||||
if disabled("posix-io");
|
||||
|
||||
plan tests => # The number of tests being performed
|
||||
3
|
||||
5
|
||||
+ ($^O eq "VMS" ? 2 : 0);
|
||||
|
||||
ok(run(test(["conf_include_test", data_file("includes.cnf")])), "test directory includes");
|
||||
ok(run(test(["conf_include_test", data_file("includes-file.cnf")])), "test file includes");
|
||||
ok(run(test(["conf_include_test", data_file("includes-eq.cnf")])), "test includes with equal character");
|
||||
ok(run(test(["conf_include_test", data_file("includes-eq-ws.cnf")])), "test includes with equal and whitespaces");
|
||||
if ($^O eq "VMS") {
|
||||
ok(run(test(["conf_include_test", data_file("vms-includes.cnf")])),
|
||||
"test directory includes, VMS syntax");
|
||||
ok(run(test(["conf_include_test", data_file("vms-includes-file.cnf")])),
|
||||
"test file includes, VMS syntax");
|
||||
}
|
||||
ok(run(test(["conf_include_test", data_file("includes-broken.cnf"), "f"])), "test broken includes");
|
||||
ok(run(test(["conf_include_test", "-f", data_file("includes-broken.cnf")])), "test broken includes");
|
||||
@@ -0,0 +1,5 @@
|
||||
#
|
||||
# Example configuration file using includes.
|
||||
#
|
||||
|
||||
.include = conf-includes
|
||||
@@ -0,0 +1,5 @@
|
||||
#
|
||||
# Example configuration file using includes.
|
||||
#
|
||||
|
||||
.include=conf-includes
|
||||
Reference in New Issue
Block a user